概要

Seek関数は、Excel VBAでファイル内の現在の読み書き位置を取得したり、指定の位置に設定するための関数です。ファイル操作において、データの読み込みや書き込みを効率的に行うための位置指定が可能で、ランダムアクセスファイルやバイナリファイルの操作時に特に有効です。

構文

Seek(ファイル番号 [, 位置])

パラメータ

• ファイル番号

  操作対象のファイル番号を指定します。これはOpenステートメントで割り当てられたファイル番号です。

• 位置（オプション）

  ファイル内の新しい位置を示すバイト単位の数値です。このパラメータを指定すると、ファイルポインタがその位置に移動します。

戻り値

• 位置を指定しない場合、Seek関数は現在のファイル内の位置をバイト単位で返します。

• 位置を指定した場合、ファイルポインタが指定された位置に移動します。

説明

Seek関数は、ファイル内のデータ操作時に重要な位置制御を行います。現在のファイルポインタの位置を取得することで、データの読み込み・書き込みの進行状況を確認したり、任意の位置に移動することで効率的なファイル操作が可能です。

• バイナリモード: バイナリファイルでは、位置はバイト単位で指定されます。

• ランダムアクセスモード: ランダムファイルでは、位置はレコード単位です。

使用例

現在のファイル位置を取得する

Sub GetFilePosition()
    Dim fileNum As Integer
    Dim currentPosition As Long

    fileNum = FreeFile
    Open "C:\example.txt" For Binary As #fileNum
    currentPosition = Seek(fileNum)
    MsgBox "現在のファイル位置: " & currentPosition
    Close #fileNum
End Sub

この例では、Seek関数を使用してファイル内の現在の位置を取得し、表示します。

ファイルの特定の位置に移動してデータを書き込む

Sub WriteToFileAtPosition()
    Dim fileNum As Integer

    fileNum = FreeFile

    Open "C:\example.txt" For Random As #fileNum Len = 20
    Seek #fileNum, 5  ' 5番目のレコード位置に移動
    Put #fileNum, , "Hello"
    Close #fileNum
End Sub

この例では、5番目のレコード位置に移動してから「Hello」を書き込みます。

バイナリモードでファイルの読み書き位置を設定

Sub BinaryReadWrite()
    Dim fileNum As Integer
    Dim data As String

    fileNum = FreeFile
    Open "C:\example.dat" For Binary As #fileNum
    Seek #fileNum, 10  ' 10バイト目に移動
    Put #fileNum, , "A"  ' 指定位置にデータを書き込む
    Seek #fileNum, 10
    Get #fileNum, , data  ' 指定位置からデータを読み込む
    MsgBox "10バイト目のデータ: " & data
    Close #fileNum
End Sub

この例では、バイナリモードで10バイト目に移動し、データの書き込みと読み込みを行います。

注意点

• ファイルが適切に開かれていない場合、Seek関数を使用するとエラーが発生します。必ずOpenステートメントで正しくファイルを開いてから使用してください。

• 読み取り専用モードでファイルを開いている場合、Seekで指定した位置にデータを書き込むことはできません。

• Seek関数は、適切な位置指定を行わないとデータが上書きされるリスクがあるため、使用時には十分に注意してください。

Seek関数は、ファイル操作において非常に強力な機能を提供し、特にデータのランダムアクセスや特定の位置への効率的な読み書きに役立ちます。正確な位置制御を行うことで、ファイルの処理速度と柔軟性を高めることができます。