目次
索引 🔎︎

# Get Statement

相対編成ファイルのレコードないし、バイナリファイルのバイトシーケンスを読み取って、変数に代入します。

次も参照してください: 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 バリアント型変数が必要
    Dim aFile As String
        aFile = "c:\data.txt"
        iNumber = Freefile
        Open aFile For Random As #iNumber Len=32
        Seek #iNumber,1 REM 開始位置
        Put #iNumber,, "ここはテキストの始めの行です。" REM テキストで行を埋める
        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