EOF 関数
Random またはシーケンシャル Input で開かれたファイルの末尾に達した場合、Boolean 値 True を含む整数を返します。
構文
EOF(filenumber)
必須の filenumber引数は、任意の有効なファイル番号を含む整数です。
解説
EOF を使用して、ファイルの末尾を越える入力によるエラーが発生しないようにします。
ファイルの末尾に達するまで、EOF 関数は False を返します。 Random または Binary アクセスで開かれたファイルの場合、最後に実行した Get ステートメントでレコード全体を読み取れなくなるまで、EOF は False を返します。
Binary アクセス用に開かれたファイルでは、Input 関数を使って、EOF が True を返すまでファイルを読み取ろうとすると、エラーが発生します。 Input でバイナリ ファイルを読み取るときは、EOF の代わりに LOF 関数と Loc 関数を使用します。または、EOF 関数を使用しているときは Get を使用します。 Output で開かれたファイルの場合、EOF は常に True を返します。
例
この例では、EOF 関数を使用してファイルの末尾を検出します。 この例では、MYFILE
は数行のテキストを含むテキスト ファイルであると仮定しています。
Dim InputData
Open "MYFILE" For Input As #1 ' Open file for input.
Do While Not EOF(1) ' Check for end of file.
Line Input #1, InputData ' Read line of data.
Debug.Print InputData ' Print to the Immediate window.
Loop
Close #1 ' Close file.
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。