txtファイルを書き込み csvにも – OpenOffice BASIC 最弱プログラミング

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

txtファイルを書き込み csvにも

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("ファイルのパス")'絶対パスのみ要注意！！
  oOutputStream.setOutputStream(vData) 
  oOutputStream.setEncoding("UTF-8")

oOutputStream.writeString("ここに書き込むデーター")'改行はされません。
oOutputStream.closeOutput()

その他、OpenOffice BASIC　記事も見ていってくだされ。関連記事もあるよ。

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