Private Sub Command1_Click()
Dim a As String
Open "d:\a.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, a
Print a
Loop
Close #1
End Sub
和
Private Sub Command1_Click()
Dim a As String
Open "d:\a.txt" For Input As #1
Do While Not EOF(1)
Input #1, a
Print a
Loop
Close #1
End Sub
我都能输出在D盘a.txt文件里面的完整内容
∨、带 上 耳 机 世 界 与 我 无 关 .
∨、带 上 耳 机 世 界 与 我 无 关 .
∨、带 上 耳 机 世 界 与 我 无 关 .