開いているファイルの現在の読み取り位置または書き込み位置を取得(Seek 関数)
Seek 関数
Open ステートメント で開いたファイル内の現在の読み取り位置または書き込み位置を取得します。
<取得>
Seek ( filenumber )
引数・戻り値
- filenumber ・・・ Open ステートメント で、割り当てられたファイル番号を指定します。
- 戻り値 ・・・ 長整数型(Long)の値( 1 ~ 2,147,483,647(= 2^31 ? 1)の範囲の数)。
Open ステートメント をランダムアクセスモード(Random)で開いている場合は、読み取りまたは書き込みが行われるレコードの番号(最後に読み書きを行ったレコードの次の番号)となります。
Open ステートメント をシーケンシャル入力モード(Input)、シーケンシャル出力モード(Output)、追加モード(Append)、バイナリモード(Binary) のいずれかで開いている場合は、読み取りまたは書き込みが行われるバイト位置(最後に読み書きを行ったバイト番号の次の番号)となります。
- 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ソース
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 の組み込みダイアログボックス(Dialog, Dialogs)
Excel の組み込みダイアログボックスを表示 Dialog オブジェクト を使 …
-
-
ファイルをコピー(FileCopy ステートメント)
FileCopy ステートメント ファイルをコピーします。ただし、開いているファ …
-
-
テキストファイル:データを書き込む(Print # ステートメント)
Print # ステートメント Open ステートメント をシーケンシャル出力モ …
-
-
Excel を終了する(Quit メソッド)
Excel を終了する(Quit メソッド) Quit メソッドを実行すると、E …
-
-
Excelでテキストファイルを開く(OpenText メソッド)
Excelでテキストファイルを開く OpenText メソッドで、テキストファイ …
-
-
ファイルを削除(Kill ステートメント)
ファイルを削除する ファイルを削除するには、Kill ステートメント を使用しま …
-
-
「ファイルを開く」ダイアログボックスを表示(GetOpenFilename メソッド)
GetOpenFilename メソッド ファイル名を取得するための、「ファイル …
-
-
フォルダ名・ファイル名を変更(Name ステートメント)
フォルダ名およびファイル名を変更 Name ステートメント で、ファイル、ディレ …
-
-
テキストファイル:データを読み込む(Input 関数・InputB 関数)
Input 関数・InputB 関数 Open ステートメントをシーケンシャル入 …
-
-
XlBuiltInDialog 列挙型
XlBuiltInDialog 列挙型 Excel の組み込みダイアログボックス …