VB 读取随机文件 Do While Not EOF(1)循环多一次

VB 读取随机文件 Do While Not EOF(1)循环多一次

返回一个 Integer，它包含 Boolean 值 True，表明已经到达为 Random
或顺序 Input 打开的文件的结尾。
直到到达文件的结尾，EOF 函数都返回 False。对于为访问 Random 或 Binary 而打开的文件，直到最后一次执行的 Get
语句无法读出完整的记录时，EOF 都返回 False。
以上摘自VB6.0帮助文件。从描述上看，循环第3次后，EOF并不会返回True，所以会继续循环第4次，然后EOF才会返回True。可以在Debug前面加上If Not Eof(1) Then对最后一次进行屏蔽即可追问但是最后一次执行的 Get 语句怎么会无法读出完整的记录？？？

那是不是说用EOF（）函数来控制循环次数不可靠，要用DataNo = LOF(1) / Len(atest)来控制？？？

既然有了EOF这个函数，怎么又不可靠？追答EOF肯定是可靠的。使用
Do While Not Eof(1)
Get #1,,atest
If Not Eof(1) Then i = i + 1
Loop
Debug.Print i
你会发现输出结果为3

Do While Not EOF(1)-1追问仅仅是从问题来说，这样做可以解决。

但是为什么是这样子？？？

你的语法没有错，你打开123.txt就会发现，每段文字后面加了制表符，第4次循环，读取的是制表符。语法判断是否到记录的末尾，制表符结束才是末尾。追问这个我也看过，可是最后多出的空白正好是用来占满30个字节用的啊。