2011-10-17 79 views

回答

0

嘗試用下面的代碼

Dim TextLine As String 
FileOpen(1, "TESTFILE", OpenMode.Input) ' Open file. 
Do While Not EOF(1) ' Loop until end of file. 
    TextLine = LineInput(1) ' Read line into variable. 
    Debug.WriteLine(TextLine) ' Print to the Command window. 
Loop 
FileClose(1) 
0

不完全是你要找的,但有一個內置的功能:

工具 - >選項

環境 - >文件 - >檢查負載上的一致的行結尾

+0

這就是我現在使用的,但它唯一的檢查,當文件被打開,不斷關閉和重新打開文件被證明是麻煩的。 – Mizipzor