IBM Lotus Symphony
|
相対ファイルからレコードを読み取るかバイナリファイルからバイトシーケンスを読み取って、変数に入れます。
次も参照してください: PUT ステートメント
Get [#] FileNumber As Integer, [Position], Variable
FileNumber: ファイル番号を決定する任意の整数式。
Position: Random モードで開かれたファイルの場合、Position は読み取りたいレコードの番号です。
Binary モードで開かれたファイルの場合、Position はファイル内の読み取りを開始するバイト位置です。
Position を省略した場合、ファイルの現在のデータレコードの現在の位置が使用されます。
Variable: 読み取る変数の名前。 オブジェクト変数は例外として、任意の変数タイプを使用できます。
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