通过

EOF 函数

  • 项目

当到达一个已经打开的用于进行随机或顺序 Input 的文件的末尾时，将返回一个包含 Boolean 值 True 的 Integer。

语法

EOF (filenumber)

所需的 filenumber参数是包含任何有效文件编号的Integer。

备注

使用 EOF 可避免在尝试超出文件的末尾来获取输出时产生错误。

EOF 函数返回 False，直到到达文件的末尾。 打开文件进行 随机 或 二进制 访问时， EOF 返回 False ，直到上次执行的 Get 语句无法读取整个记录。

打开文件进行 二进制 访问时，尝试使用 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.

另请参阅

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。