EOF 函数

项目
08/18/2008

更新：2007 年 11 月

当到达以 Random 或顺序 Input 模式打开的文件尾时，返回 Boolean 值 True。

Public Function EOF(ByVal FileNumber As Integer) As Boolean

参数

FileNumber
必选。一个包含任何有效文件号的 Integer。

异常

异常类型	错误号	条件
IOException	52	FileNumber 不存在。
IOException	54	文件模式无效。

如果正在升级使用无结构错误处理的 Visual Basic 6.0 应用程序，请参见“错误号”一列。（您可以根据 Number 属性（Err 对象）比较错误号。）然而，如果可能，应当考虑用 Visual Basic 的结构化异常处理概述替换这种错误控制。

备注

使用 EOF 可避免因试图使输入超出文件尾而产生的错误。

在到达文件尾之前，EOF 函数始终返回 False。对于以 Random 或 Binary 访问模式打开的文件，EOF 始终返回 False，直到最后一次执行的 FileGet 函数无法读取整个记录。

对于以 Binary 访问模式打开的文件，如果试图在 EOF 返回 True 之前用 Input 函数读取整个文件，则会产生错误。在用 Input 读取二进制文件时，用 LOF 和 Loc 函数代替 EOF 函数，在使用 EOF 函数时则使用 Get 函数。对于以 Output 模式打开的文件，EOF 始终返回 True。

示例

本示例使用 EOF 函数来检测文件尾。本示例假设 Testfile 是包含几行文本的文本文件。

Dim TextLine As String
' Open file.
FileOpen(1, "TESTFILE", OpenMode.Input)
' Loop until end of file.
Do While Not EOF(1) 
' Read line into variable.
   TextLine = LineInput(1)
' Display result in a message box.
   MsgBox("End of file reached at " & TextLine)
Loop
FileClose(1)