IBM Lotus Symphony


Eof 函数 [运行时]

确定文件指针是否已到达文件末尾。

语法:

Eof (intexpression As Integer)

返回值:

布尔值

参数:

Intexpression:对打开的文件编号进行求值的任何整型表达式。

使用 EOF 可避免尝试使输入超出文件末尾而产生的错误。当使用 Input 或 Get 语句从文件读取值时,文件指针会前进所读取的字节数。在到达文件末尾时,EOF 会返回值“True”(-1)。

错误代码

5 无效的过程调用

52 错误的文件名称或编号

示例:

Sub ExampleWorkWithAFile

Dim iNumber As Integer

Dim sLine As String

Dim aFile As String

Dim sMsg as String

aFile = "c:\data.txt"

iNumber = Freefile

Open aFile For Output As #iNumber

Print #iNumber, "First line of text"

Print #iNumber, "Another line of text"

Close #iNumber

iNumber = Freefile

Open aFile For Input As iNumber

While not eof(iNumber)

Line Input #iNumber, sLine

If sLine <>"" then

sMsg = sMsg & sLine & chr(13)

end if

wend

Close #iNumber

Msgbox sMsg

End Sub


产品反馈 | 其他文档 | 商标