OOobbs/65
質問
OOo1.0.3を使っていますがHelpの中に「Get ステートメント」 という項目がありまして、その中に以下の例文があります。 Sub ExampleRandomAccess Dim iNumber As Integer Dim sText As Variant REM Must be a variant Dim aFile As String aFile = "c:\data.txt" iNumber = Freefile Open aFile For Random As #iNumber Len=32 Seek #iNumber,1 REM Position at beginning Put #iNumber,, "This is the first line of text" REM Fill line with text Put #iNumber,, "This is the second line of text" Put #iNumber,, "This is the third line of text" Seek #iNumber,2 Get #iNumber,,sText Print sText Close #iNumber iNumber = Freefile Open aFile For Random As #iNumber Len=32 Get #iNumber,2,sText Put #iNumber,,"This is a new text" Get #iNumber,1,sText Get #iNumber,2,sText Put #iNumber,20,"This is the text in record 20" Print Lof(#iNumber) Close #iNumber end sub これを実行してもうまくうごきません。 これを動くようにするにはどうしたらいいでしょうか? ちなみにOOo1.1.4のヘルプにも同じようにGet ステートメント についてがあります。 よろしくお願いいたします。 回答
Get ステートメントは使わない方がよさそうです。 テキストファイルを作成するときには私の場合にはもっぱら com.sun.star.io モジュールのサービスを利用しています。
Open aFile For Random Access Read As #iNumber Len=32 データは消えませんが,読み込み専用で開いているので Put による書き込みができません。Open ステートメントで For Random を指定して Access Writer または Access Read Write の場合にはデータが削除されてしまいます。 これも使えませんね。普通にテキストファイルの読み書き時には読み込みも書き込みもうまくいくんですが。
|