Copy string array for pasting to LibreOffice Calc

Question

How do I copy an array of strings to the clipboard to paste to OpenOffice or LibreOffice?

This CSV version works for Excel, but not for OpenOffice or LibreOffice.

Input example = "A" "B" "C" "D" "E" "F" "G" "H" "I" "J"

Desired output (next row after every 8 columns)

Here is my current code:

 Private Sub SaveToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SaveToolStripMenuItem.Click

    ' This returns array of strings for csv
    Dim csvparts As String() = RichTextBox1.Text.Split(ControlChars.CrLf.ToCharArray(), StringSplitOptions.RemoveEmptyEntries)

    Dim csv As String = ""

    Dim rowCounter As Integer = 0
    For Each part As String In csvparts

        csv += ("""")

        For x As Integer = 0 To spinbox.SelectedIndex
            csv += (part)
            If spinbox.SelectedIndex > x Then csv += (vbLf)
        Next
        csv += ("""")

        rowCounter += 1

        'Next row after every 8th column
        If rowCounter > 7 Then
            rowCounter = 0
            csv += (vbLf)
        Else
            csv += (",")
        End If
    Next

    Dim dataObject = New System.Windows.DataObject()

    Dim bytes = System.Text.Encoding.UTF8.GetBytes(csv)
    Dim stream = New System.IO.MemoryStream(bytes)
    dataObject.SetData(System.Windows.DataFormats.CommaSeparatedValue, stream)

    System.Windows.Clipboard.SetDataObject(dataObject, True)
End Sub

csv is csv. If it works in excel it should work in openoffice. Can you show the csv file that you create. — washcloth
– washcloth, Commented Feb 12, 2014 at 2:14

user1815222 · Accepted Answer · 2014-02-12 16:43:20Z

1

Ok I got it working. Save your csv as Unicode Text to the clipboard. I did csv(for Excel) and UnicodeText(for Open/LibreOffice)

    Dim dataObject = New DataObject()

    Dim cbytes = System.Text.Encoding.UTF8.GetBytes(csv)
    Dim cstream = New System.IO.MemoryStream(cbytes)
    dataObject.SetData(DataFormats.CommaSeparatedValue, cstream)

    Dim bytes = System.Text.Encoding.Unicode.GetBytes(csv)
    Dim stream = New System.IO.MemoryStream(bytes)
    dataObject.SetData(DataFormats.UnicodeText, stream)

    Clipboard.Clear()

    Clipboard.SetDataObject(dataObject, True)

answered Feb 12, 2014 at 16:43

user1815222

315 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

Copy string array for pasting to LibreOffice Calc

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related