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 を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: FileDialogFilters コレクション・FileDialogFilter オブジェクト

FileDialogFilters コレクション FileDialog オブジェ …

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

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

: テキストファイル：データを書き込む（Put ステートメント）

Put ステートメント Open ステートメントをランダムアクセスモード（Ra …

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

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

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

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

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

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

: テキストファイル（Open ステートメント・Close ステートメント）

新規ブックを開かずにテキストファイルを開く OpenText ステートメントを …

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

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

: ファイルを削除（Kill ステートメント）

ファイルを削除するファイルを削除するには、Kill ステートメントを使用しま …

: Open ステートメントで使用できるファイル番号を取得（FreeFile 関数）

FreeFile 関数 Open ステートメントで使用するファイル番号（ 1 ～ …

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