读文本文件问题：输入超出文件尾

[mailfj]

Private Sub Form_Load()
Open "d:\ftdata\flute.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, notetxt$
Line Input #1, note1$‘报错，输入超出文件尾
Line Input #1, note2$
Line Input #1, note3$
Loop
note.Text = notetxt
num1.Text = note1
num2.Text = note2
num3.Text = note3
Close #1
End Sub

[射天狼]

你既然用循环来读取文件就不要在循环体里写那么多的输入语句了。

Private Sub Form_Load()
Dim s() As String, i As Long

Open "d:\ftdata\flute.txt" For Input As #1
i = 0
Do While Not EOF(1)
ReDim Preserve s(i + 1)
Input #1, s(i)
i = i + 1
Loop

Close #1
End Sub

[lingll]

你的一次循环是读入4行,
而如果flute.txt是有5行(不是4的倍数)
那么第一次循环的时候,读取了4行,还有一行,EOF(1)=false
接着是Line Input #1, notetxt$
此时EOF(1)=true,已是文件末尾了
因此接着的Line Input #1, note1$肯定报错

[Reker熊]

Private Sub Form_Load()
Open "d:\ftdata\flute.txt" For Input As #1
'Do While Not EOF(1)
If Not EOF(1) Then Line Input #1, notetxt$
If Not EOF(1) Then Line Input #1, note1$
If Not EOF(1) Then Line Input #1, note2$
If Not EOF(1) Then Line Input #1, note3$
'Loop
note.Text = notetxt
num1.Text = note1
num2.Text = note2
num3.Text = note3
Close #1
End Sub

[smilingchen]

9494,楼上的说得不错

[射天狼]

楼主已经犯了一个严重的错误，就是已经通过循环读取文件中的值，就不要再写那么多条的读文件语句了。否则为什么用循环，还只写了四句，难道事先知道文件中有多少句吗？！

而tdl982324(石井坚) 却在楼主的错误想法的基础上犯了一个更加严重的错误，在循环中做过多的判断（严重影响执行速度），你这样的语句执行完之后不论文件中有多少行，那四个变量取出的永远只是最好的四行。那你用循环干什么，直接取最后四行就完了呗~~
一堆蠢人。

[lingll]

唉,楼主要的是结果,不是错误原因
早知我也写代码