EOF 函数
应用对象
Microsoft 365 专属 Access Access 2024 Access 2021 Access 2019 Access 2016
注意
如果 Microsoft Jet 表达式服务在沙盒模式下运行，则禁用本主题中所述的函数、方法、对象或属性，从而阻止计算潜在的不安全表达式。 有关沙盒模式的详细信息，请在“帮助”中搜索“沙盒模式”。
当已到达为随机或顺序输入打开的文件的末尾时，返回包含布尔值 True 的 Integer。
语法
EOF (filenumber)
所需的 filenumber参数是包含任何有效文件编号的 Integer。
备注
使用 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