Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

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

2016/01/04

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

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

　

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ソースを実行した結果

- Excel・ファイルの操作 Excel・ファイルの操作, Open ステートメント, Seek 関数, VBA基本, エクセルVBA, テキストファイル

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: ディレクトリまたはフォルダの作成（MkDir ステートメント）

ディレクトリまたはフォルダの作成新しいディレクトリまたはフォルダを作成するには …

: 開いているファイルのサイズ・位置の取得（LOF 関数・Loc 関数）

LOF 関数 Open ステートメントにより開かれたファイルのサイズをバイト単 …

: 「ファイルを開く」ダイアログボックスを表示（GetOpenFilename メソッド）

GetOpenFilename メソッドファイル名を取得するための、「ファイル …

: ファイルをコピー（FileCopy ステートメント）

FileCopy ステートメントファイルをコピーします。ただし、開いているファ …

: ファイルの検索・フォルダ内のファイル一覧を取得（Dir 関数）

Dir 関数 Dir 関数で、ファイルの存在を確認したり、指定したフォルダ内のフ …

: ディレクトリまたはフォルダの削除（RmDir ステートメント）

ディレクトリまたはフォルダの削除ディレクトリまたはフォルダを削除するには、Rm …

: Excelでテキストファイルを開く（OpenText メソッド）

Excelでテキストファイルを開く OpenText メソッドで、テキストファイ …

: テキストファイル：データを読み込む（Line Input # ステートメント）

Line Input # ステートメント Open ステートメントをシーケンシャ …

: 組み込みダイアログボックスの引数一覧

組み込みダイアログボックスの引数一覧 Excel の組み込みダイアログボックスを …

: 開いているファイルの読み取り位置または書き込み位置を設定（Seek ステートメント）

Seek ステートメント Open ステートメントで開いているファイルで、次に …

PREV: 開いているファイルのサイズ・位置の取得（LOF 関数・Loc 関数）
NEXT: テキストファイル：データを読み込む（Input # ステートメント）