VB提示 实时错误‘62’ 输入超出文件尾 怎么解决

Question

Dim i(1 To 100) As IntegerPrivate Sub Cmd1_Click()Dim j As Integerj = 0Open App.Path & "\in.txt" For Input As #1For j = 1 To 100   Input #1, i(j)NextClose #1For j = 1 To 100   Text1.Text = Text1.Text & i(j) & Space(5)NextEnd SubPrivate Sub Cmd2_Click()Dim temp As LongDim j As IntegerText1.Text = ""For j = 1 To 50   Text1.Text = Text1.Text & i(j) & Space(5)Nextputdata i, 50End Sub这是整段代码，每当执行到“Input #1, i(j)”这句话时就提示超出文件尾，请问如何解决？

Answer 1

Open App.Path & "\in.txt" For Input As #1
Do While Not EOF(1)
a=a+1
redim i(a) as pinfo
Input #1, i(a)
Loop
close #1
加个判断Not EOF(1)，判断是不是到了文件的尾部
看看是不是你要的。

Answer 2

‘可用一次读入文件的方法解决这个问题，给你写个测试例自己修改一下：
Dim arr
Private Sub Cmd1_Click()
Open App.Path & "\in.txt" For Input As #1
arr = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbNewLine)
Close #1
Text1.Text = Join(arr, Space(5))
End Sub

Answer 3

in.txt的元素<100了，到文件尾了