Question

vb 输入超出文件尾怎么解决

Private Sub Form_Load()
Dim str1 As String
Open App.Path & "\dr441.dat" For Input As #1
Do While Not EOF(1)
Input #1, str1
Txt1.Text = Txt1.Text + str1
Loop
Close #1
End Sub

Answer 1

Private Sub Form_Load()
Dim str1 As String
Open App.Path & "\dr441.dat" For Input As #1
While Not EOF(1)
Line Input #1, str1
Txt1.Text = Txt1.Text + str1 + Chr（10） + Chr（13）
Wend Close #1
End Sub