開いているファイルの現在の読み取り位置または書き込み位置を取得（Seek 関数）

サイト管理人

8年前

Seek 関数

Open ステートメントで開いたファイル内の現在の読み取り位置または書き込み位置を取得します。

【書式】

＜取得＞
Seek ( filenumber )

引数・戻り値

filenumber ・・・ Open ステートメントで、割り当てられたファイル番号を指定します。

戻り値・・・長整数型（Long）の値（ 1 ～ 2,147,483,647（= 2^31 ? 1）の範囲の数）。
Open ステートメントをランダムアクセスモード（Random）で開いている場合は、読み取りまたは書き込みが行われるレコードの番号（最後に読み書きを行ったレコードの次の番号）となります。
Open ステートメントをシーケンシャル入力モード（Input）、シーケンシャル出力モード（Output）、追加モード（Append）、バイナリモード（Binary）のいずれかで開いている場合は、読み取りまたは書き込みが行われるバイト位置（最後に読み書きを行ったバイト番号の次の番号）となります。

Loc 関数の場合
ランダムアクセスモード（Random）でファイルを開いた場合は、最後に読み書きを行ったレコード番号を返します。また、バイナリモード（Binary）でファイルを開いた場合は、最後に読み書きを行ったバイト番号を返します。シーケンシャルモード（Input、Output、Append）の場合は、現在のバイト位置を 128 で割った値を返します。

Seek 関数使用例

サンプルVBAソース

　
Sub Sample_SeekFunction()

    Dim FileName As String
    Dim FNum As Integer
    Dim buf As String
    Dim str As String
        
    FileName = "C:\Documents\mydata\test03.txt"
    FNum = FreeFile
    
    'ファイルを開く
    Open FileName For Input As #FNum
    
    Do Until EOF(FNum)
    
        Line Input #FNum, buf
        str = str & buf & "：" & Seek(FNum) & "バイト" & vbCrLf
    
    Loop
    
    'ファイルを閉じる
    Close #FNum

    MsgBox str
End Sub

Sub Sample_SeekFunction()

Dim FileName As String

Dim FNum As Integer

Dim buf As String

Dim str As String

FileName = "C:\Documents\mydata\test03.txt"

FNum = FreeFile

'ファイルを開く

Open FileName For Input As #FNum

Do Until EOF(FNum)

Line Input #FNum, buf

str = str & buf & "：" & Seek(FNum) & "バイト" & vbCrLf

Loop

'ファイルを閉じる

Close #FNum

MsgBox str

End Sub

実行結果

サンプルVBAソースで、読み込むファイル「test03.txt」の内容

サンプルVBAソースを実行した結果

Seek 関数

Seek 関数 使用例

サンプルVBAソース

実行結果

Seek 関数使用例