次の方法で共有

Loc 関数

  • [アーティクル]

開いているファイル内の現在の読み取り位置または書き込み位置を示す Long を返します。

構文

Loc(filenumber)

必須の filenumber引数 は、任意の有効な 整数ファイル番号です。

解説

各ファイル アクセス モードの戻り値を次に示します。

モード 戻り値
Random ファイルに対して最後に読み取りまたは書き込みを行ったレコードの番号。
Sequential ファイル内の現在のバイト位置を 128 で割った値。 ただし、Loc から返されるシーケンシャル ファイルについての情報は使用されることはなく、必須でもありません。
Binary 最後に読み取りまたは書き込みを行ったバイトの位置。

例

この例では、Loc 関数を使用して、開いているファイル内の現在の読み取り位置または書き込み位置を取得します。 この例では、TESTFILE は数行のサンプル データを含むテキスト ファイルであると仮定しています。

Dim MyLocation, MyLine
Open "TESTFILE" For Binary As #1    ' Open file just created.
Do While MyLocation < LOF(1)    ' Loop until end of file.
    MyLine = MyLine & Input(1, #1)    ' Read character into variable.
    MyLocation = Loc(1)    ' Get current position within file.
' Print to the Immediate window.
    Debug.Print MyLine; Tab; MyLocation
Loop
Close #1    ' Close file.

関連項目

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。