Question

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

Type test
aaa As String * 30
End Type

Private Sub test()

Dim i As Integer
Dim atest As test
Dim DataNo As Integer

For i = 1 To 3
atest.aaa = "我是中国人" & i & "次"
Open App.Path & "\123.txt" For Random As #1 Len = Len(atest)
Put #1, i, atest
Close #1
Next i

i = 1
Open App.Path & "\123.txt" For Random As #1 Len = Len(atest)
DataNo = LOF(1) / Len(atest)
Debug.Print "有" & DataNo & "条记录"

Do While Not EOF(1)
Get #1, i, atest
Debug.Print "循环第" & i & "次：" & atest.aaa
i = i + 1
Loop
Close #1

End Sub

立即窗口中的显示：

有3条记录
循环第1次：我是中国人1次
循环第2次：我是中国人2次
循环第3次：我是中国人3次
循环第4次：

也就是说在Do循环中多循环一次，Do While Not EOF(1)有什么问题么？

难道要计算出来要用for i=1 to DataNo？

我记得是eof()函数检测要比计算 DataNo = LOF(1) / Len(atest) 来的记录数准确啊？

求解答，感谢！！！

Answer 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

Answer 2

你的语法没有错，你打开123.txt就会发现，每段文字后面加了制表符，第4次循环，读取的是制表符。语法判断是否到记录的末尾，制表符结束才是末尾。

追问

这个我也看过，可是最后多出的空白正好是用来占满30个字节用的啊。

Answer 3

Do While Not EOF(1)-1

追问

仅仅是从问题来说，这样做可以解决。

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