VB循环读写TXT文件

这个问题看似简单，可实际上在网上搜索后给出的解答基本都是下面这种。

Do While Not EOF(1) ' 循环至文件尾。 
Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。 
Debug.Print TextLine ' 在调试窗口中显示数据。 

可这种方法却忽略了一种情况，导致会出错。

新建一个TXT文档，随便输入一行，回车换行，保存退出。这时候用上面这种代码读取这个TXT文档，会报错，不信可以试下。

因为最后的那个回车换行也被VB认为是一个字符在文件中，比如前面输入了“12345678”，那么用line input读完一行后，这时候用Seek查看文件指针的位置，值是9。可实际上整个文件也就8个字符，这时候用EOF判断的话，它是认为文件未结束，那么返回值就是FALSE，可是再用line input读取的时候，会报“超出文件尾”的错，也就是line input是不认这个回车换行的，它认为文件结束了。

下面是我找的一种解决这个报错的方法：

    Open App.Path & "\1.txt" For Binary As #1
    
    Do While Loc(1) <> LOF(1)
        Line Input #1, strTest
        Debug.Print strTest
    Loop
    Close #1

借助Loc和LOF函数来判断。

Loc(文件号)：返回指定文件的当前读写位置

LOF(文件号)：返回文件的长度

通过判断读写位置与文件的长度是否相等来判断是否读取到文件尾。

代码经测试是可行的。