txtとかcsv読み込んで書き込み – OpenOffice BASIC 最弱プログラミング
txt読み書き込み – OpenOffice BASIC
sub Main
'読み込むコード開始
Dim fileNo As Integer
Dim lineText As String
Dim ddd As String
fileNo = Freefile
Open "C:\Users\abc\Desktop\1.csv" For InPut As #fileNo '絶対パスのみ要注意！！
While not eof(fileNo)
Line Input #fileNo, lineText
ddd = ddd & lineText & Chr(13) 'Chr(13)が改行コード ここら辺ミスってる、文字化けする。知りたい場合はコメントしてねー
Wend
'読み込むコード終了 csvのファイル読み込んだデータはdddに代入されてる。
'書き込むコード開始
Dim oFileAcc As Object
Dim oOutputStream As Object
oFileAcc = CreateUnoService("com.sun.star.ucb.SimpleFileAccess")
oOutputStream = CreateUnoService("com.sun.star.io.TextOutputStream")
Dim vData As Variant
vData = oFileAcc.openFileWrite("C:\Users\abc\Desktop\1.csv") '絶対パスのみ要注意！！
oOutputStream.setOutputStream(vData)
oOutputStream.setEncoding( "UTF-8" )
oOutputStream.writeString(ddd) 'ここでdddの数値を書き込んで行くー
oOutputStream.closeOutput()
'書き込むコード終了
End Subその他、OpenOffice BASIC 記事も見ていってくだされ。