OpenOfficeBasic_4(getCellByPosition)の概要（１）テキストファイルへの書き込みと読み出しを行います。
OpenOfficeBasic_4(getCellByPosition)作成方法（１） 「OpenOfficeBasic_2.ods」ファイルを複製します。
（２）ファイル名を「OpenOfficeBasic_5.ods」に変更します。
（３）「OpenOfficeBasic_5.ods」ファイルをダブルクリックで起動します。
（４）OpenOffice-セキュリティ警告が表示されるので「マクロの有効化」ボタンを押します。
（５）メニューの「ツール」＿「マクロ」＿「マクロの管理」＿「OpenOffice Basic」を選択します。
（６）OpenOffice Basic マクロダイアログで「 OpenOfficeBasic_5.ods」＿「 Stndard 」＿「Module1」＿「Main」 を選択します。
（７）「編集」ボタンを押します。
（８）プログラムコードを以下のように変更します。
Sub Main
aFile =ThisWorkbookPath+ "\data.txt"
iNumber = Freefile
Open aFile For Output As #iNumber
Print #iNumber, "This is a line of text"
Print #iNumber, "This is another line of text"
Close #iNumber
iNumber = Freefile
Open aFile For Input As iNumber
While not eof(iNumber)
Line Input #iNumber, sLine
If sLine <>"" then
sMsg = sMsg & sLine & chr(13)
end if
Wend
Close #iNumber
Msgbox sMsg
End Sub
' このブックの存在するフォルダをフルパスで返す。
' Excel VBAでの ThisWorkbook.Pathに相当
Function ThisWorkbookPath
windows_filepath = ConvertFromUrl(ThisComponent.URL )
vntURL = Split(windows_filepath, "\")
i = UBound(vntURL)
ReDim Preserve vntURL(i - 1)
windows_dir_path = Join(vntURL, "\")
ThisWorkbookPath = windows_dir_path
End Function
（９）「BASIC プログラムの実行」ボタンを押します。
（１０）以下のメッセージが表示されます。
（１１）「OK」ボタンを押すとプログラムを終了します。
（１２）ワークブックの同一フォルダー内に「data.txt」が作成されます。
（１３）data.txt内に以下の文字列が書き込まれています。
This is a line of text
This is another line of text
プログラムコードの保存（１）メニューの「ファイル」＿「保存」を選択します。
（２）OpenOfficeＣａｌｃを終了します。
OpenOfficeBasic_5(テキストファイル入出力)の解説（１） Windows10では、Usersフォルダー以外のファイルへのデータ書き込みが禁止されているようです。
（２）従って、このブックの存在するフォルダ内に“data.txt”ファイルを作成します。
（３） iNumber = Freefileは（iNumber = 1）となります。
（４） Open aFile For Output As #iNumberは出力モードで“data.txt”をオープンします。（無い場合は作成します。）
（５） Print #iNumber, “This is a line of text”で文字列を出力します。
（６） Close #iNumberでファイルを閉じます。
（７） Open aFile For Input As iNumberは入力モードで“data.txt”をオープンします。
（８）While not eof(iNumber)はEOFを検出するまで繰り返します。
（９） Line Input #iNumber, sLineは“data.txt”から1行読み込みます。
（１０） sMsg = sMsg & sLine & chr(13)で読み込んだ文字列を合成します。
（１１） Msgbox sMsgで読み込んだ文字列を表示します。
OpenOfficeBasic_5.odsのダウンロードOpenOfficeBasic_5.odsは以下からダウンロードできます。
OpenOfficeBasic_5.odsをダウンロードする。
７章： OpenOfficeBasic_6(セルデータのテキストファイルへの出力と入力)に行く。