关于LINE INPUT #问题

Question

想在一个文本文件中进行逐行数据比较，代码如下：
Private Sub Command1_Click()
Dim preStr As String, curStr As String, aa As String
Open "c:\windows\desktop\errswsj" For Input As #1
Open "c:\windows\desktop\a" For Output As #2
Do While Not EOF(1)
    Line Input #1, curStr
    If curStr <> preStr Then
        Print #2, curStr
    End If
    preStr = curStr
Loop
Close #1
Close #2
MsgBox ("ok")
Unload Me
End Sub
但用LINE INPUT #只能读取整个文件数据，不能逐行读取，不知为何？请教各位！

Answer 1

如果你的所有内容只有一行，当然也就只读取了一行。line input认是的回车换行符。