EOF函数

EOF是End Of File 的缩写，表示“文件结束”。返回一个 Integer，它包含 Boolean 值 True，表明已经到达为 Random 或顺序 Input 打开的文件的结尾。

语法

EOF (filenumber)

必要的 filenumber 参数是一个 Integer，包含任何有效的文件号。

说明

使用EOF是为了避免因试图在文件结尾处进行输入而产生的错误。

从输入流读取数据，如果到达文件末尾（遇到文件结束符），eof函数值为非零值（表示真），否则为0（表示假）。

直到到达文件的结尾，EOF 函数都返回 False。对于为访问 Random 或 Binary 而打开的文件，直到最后一次执行的 Get 语句无法读出完整的记录时EOF都返回 False。

对于为访问 Binary 而打开的文件，在EOF函数返回 True 之前，试图使用 Input 函数读出整个文件的任何尝试都会导致错误发生。在用 Input 函数读出二进制文件时，要用 LOF 和 Loc 函数来替换EOF函数，或者将 Get 函数与EOF函数配合使用。对于为 Output 打开的文件，EOF总是返回 True。

函数示例

本示例使用 EOF 函数来检测文件尾。示例中假设 MYFILE 为有数个文本行的文本文件。

Dim InputData

Open "MYFILE" For Input As #1 ' 为输入打开文件。

Do While Not EOF(1) ' 检查文件尾。

Line Input #1, InputData ' 读入一行数据。

Debug.Print InputData ' 在立即窗口中显示。

Loop

Close #1 ' 关闭文件。

相关基础知识：

Integer 数据类型

一种数据类型，将整型变量作为 2 字节整数存储起来，范围是 -32,768 到 32,767 之间的数字。Integer 数据类型也可表示列举值。在 Visual Basic 可用百分比符号 (%) 的类型声明字符来表示一个 Integer。

Boolean 数据类型

只有两种值的数据类型，这两种值分别为 True(-1) 或 False(0)。布尔变量是以 16 位 ( 2 字节 ) 数字存储的。

参数

传递给一个过程的常数、变量或表达式。

在 Open 语句中用来打开文件的号码。对不能访问其它应用程序的文件，使用1–255 范围内的文件号，对可由其它应用程序访问的文件，使用256–511 范围内的文件号。