EOF

返回一个Integer，当已到达以Random或顺序Input模式打开的文件末尾时，包含Boolean值True。

语法：EOF( filenumber )

filenumber

必需 Integer，包含任何有效的文件号。

备注

使用EOF可避免在文件末尾之后尝试获取输入时产生的错误。

EOF函数在到达文件末尾之前返回False。对于以Random或Binary访问模式打开的文件，EOF在最后执行的Get语句无法读取完整记录之前返回False。

对于以Binary访问模式打开的文件，尝试使用Input函数读取文件直到EOF返回True会产生错误。使用Input读取二进制文件时，请使用LOF和Loc函数代替EOF，或在使用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.

另请参阅

• LOF函数