Question

VB中EOF函数怎么用？它有什么用？急用谢谢啊。

Answer 1

返回一个 Integer，它包含 Boolean 值 True，表明已经到达为 Random 或顺序 Input 打开的文件的结尾。

语法

EOF(filenumber)

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

说明

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

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

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

Answer 2

是否到文件结尾，是则返回True，反之返回False
例子：读出#1文件的所有内容到Text1中
Dim s As String，str As String
s = ""
Do Until EOF(1) '注意，这里不可以用#1
Line Input #1, str
s = s & str & vbCrLf
Loop
Text1.Text = s

Answer 3

vb垃圾要学就学Delphi