文字列の配列をクリップボードにコピーして、OpenOffice または LibreOffice に貼り付けるにはどうすればよいですか?
この CSV バージョンは Excel では機能しますが、OpenOffice や LibreOffice では機能しません。
入力例=「A」「B」「C」「D」「E」「F」「G」「H」「I」「J」
これが私の現在のコードです:
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