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 のサポートおよびフィードバックを参照してください。