注意: 如果 Microsoft Jet 表达式服务在沙盒模式下运行,则禁用本主题中所述的函数、方法、对象或属性,这会阻止计算潜在的不安全表达式。 有关沙盒模式的详细信息,请在“帮助”中搜索“沙盒模式”。
返回一个 Integer,其中包含 布尔 值 True 时,打开的 随机 或顺序 输入 的文件的末尾已到达。
语法
EOF ( filenumber )
所需的 filenumber参数 是包含任何有效 文件编号 的 整数 。
备注
使用 EOF 可避免通过尝试获取超过文件末尾的输入而生成的错误。
EOF 函数在到达文件末尾之前返回 False。 打开文件进行 随机 或 二进制 访问时, EOF 返回 False ,直到上次执行的 Get 语句无法读取整个记录。
打开文件进行 二进制 访问时,尝试使用 Input 函数读取文件,直到 EOF 返回 True 将生成错误。 使用 Input 读取二进制文件时,请使用 LOF 和 Loc 函数而不是 EOF 函数,或使用 EOF 函数时使用 Get。 打开文件进行 输出时, EOF 始终返回 True。
示例
注意: 下面的示例演示了如何在 Visual Basic for Applications (VBA) 模块中使用此函数。 有关使用 VBA 的详细信息,请在搜索旁边的下拉列表中选择“开发人员参考”,并在搜索框中输入一个或多个术语。
此示例使用 EOF 函数检测文件的末尾。 此示例假定 MYFILE 是一个包含几行文本的文本文件。
Dim InputData
' Open file for input. Open "MYFILE" For Input As #1 ' Check for end of file. Do While Not EOF(1) ' Read line of data. Line Input #1, InputData ' Print to the Immediate window. Debug.Print InputData Loop ' Close file. Close #1