txtとかcsv読み込んで書き込み – OpenOffice BASIC 最弱プログラミング

2020年6月27日2021年12月7日

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　記事も見ていってくだされ。

https://kanagawa16.sakura.ne.jp/wp/?cat=6