GO-AHEADの日記

GO-AHEADで出版した書籍の紹介をします

Re4:50歳から始めるラズベリーパイ-9

Re4:50歳から始めるラズベリーパイ

LibreOfficeVBAプログラミング入門

amazon kindleを出版しました。


 5.6 ファイルに入出力
 data.txtファイルに"Hello World"を書き込みます。

Option VBAsupport 1 'VBAと互換性

Sub Main

Dim s as String 'sを文字型として宣言
Dim t as String 'sを文字型として宣言

   s="Hello World"
   Cells(1,1).Value=s
'/home/piにdata.txtを書き込みで開く
   Open "data.txt" For Output As #1

   Print #1,s

   Close #1
'/home/piにdata.txtを読み込みで開く
   Open "data.txt" For Input As #1

   Line Input #1,t

   Close #1

   Cells(3,1).Value=t

 End Sub

f:id:GO-AHEAD:20200324145439p:plain

が出力されました。

f:id:GO-AHEAD:20200324145454p:plain

Hello Worldが出力できています。

この、data.txtを変数tに読み込んで
Cells(3,1).Value=t
で表示すると

f:id:GO-AHEAD:20200324145508p:plain



tにHello Worldが読み込まれていることが確認できます。