2011-10-17 51 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