EOF 関数
EOF 関数
Open ステートメント をランダムアクセスモード(Random)またはシーケンシャル入力モード(Input)で開いたファイルで、読み込み位置が末尾に到達したとき、True を返します。
result = EOF ( filenumber )
引数・戻り値
- filenumber ・・・ Open ステートメント で、割り当てられたファイル番号を指定します。
- result ・・・ ファイル内の読み込み位置が末尾に到達するまでの間は、False、末尾に到達すると True。
Open ステートメント、ランダムアクセスモード(Random)、シーケンシャル入力モード(Input) 等に関しての詳細は、テキストファイル(Open ステートメント・Close ステートメント) を参照してください。
- filenumber ・・・ Open ステートメント で、割り当てられたファイル番号を指定します。
- result ・・・ ファイル内の読み込み位置が末尾に到達するまでの間は、False、末尾に到達すると True。
Open ステートメント、ランダムアクセスモード(Random)、シーケンシャル入力モード(Input) 等に関しての詳細は、テキストファイル(Open ステートメント・Close ステートメント) を参照してください。
EOF 関数 使用例
サンプル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 |
Sub Sample_EOF() Dim FileName As String Dim FileNumber As Integer Dim buf(2) Dim str As String FileName = "C:\Documents\user01.txt" FileNumber = FreeFile Open FileName For Input As #FileNumber Do Until EOF(FileNumber) Input #FileNumber, buf(0), buf(1), buf(2) str = str & buf(0) & vbTab & buf(1) & vbTab & buf(2) & vbCrLf Loop Close #FileNumber MsgBox str End Sub |
実行結果
関連記事
-
Excelでテキストファイルを開く(OpenText メソッド)
Excelでテキストファイルを開く OpenText メソッドで、テキストファイ …
-
テキストファイル:データを読み込む(Get ステートメント)
Get ステートメント Open ステートメント をランダムアクセスモード(Ra …
-
「ファイルを開く」ダイアログボックス(FindFile メソッド)
FindFile メソッド 「ファイルを開く」ダイアログボックスを表示します。G …
-
テキストファイル:データを読み込む(Input 関数・InputB 関数)
Input 関数・InputB 関数 Open ステートメントをシーケンシャル入 …
-
「ファイル」ダイアログボックスを表示・設定(FileDialog オブジェクト)
FileDialog オブジェクト FileDialog オブジェクト のメソッ …
-
開いているファイルの現在の読み取り位置または書き込み位置を取得(Seek 関数)
Seek 関数 Open ステートメント で開いたファイル内の現在の読み取り位置 …
-
テキストファイル:データを読み込む(Input # ステートメント)
Input # ステートメント Open ステートメント をシーケンシャル入力モ …
-
「ファイルを開く」ダイアログボックスを表示(GetOpenFilename メソッド)
GetOpenFilename メソッド ファイル名を取得するための、「ファイル …
-
ファイルをコピー(FileCopy ステートメント)
FileCopy ステートメント ファイルをコピーします。ただし、開いているファ …
-
ファイルを削除(Kill ステートメント)
ファイルを削除する ファイルを削除するには、Kill ステートメント を使用しま …