EOF 関数

Random またはシーケンシャル Input で開かれたファイルの末尾に達した場合、BooleanTrue を含む整数を返します。

構文

EOF(filenumber)

必須の filenumber引数は、任意の有効なファイル番号を含む整数です。

解説

EOF を使用して、ファイルの末尾を越える入力によるエラーが発生しないようにします。

ファイルの末尾に達するまで、EOF 関数は False を返します。 Random または Binary アクセスで開かれたファイルの場合、最後に実行した Get ステートメントでレコード全体を読み取れなくなるまで、EOFFalse を返します。

Binary アクセス用に開かれたファイルでは、Input 関数を使って、EOFTrue を返すまでファイルを読み取ろうとすると、エラーが発生します。 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 のサポートおよびフィードバックを参照してください。