VB循环读写TXT文件

前端之家收集整理的这篇文章主要介绍了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(文件号):返回文件的长度

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

代码经测试是可行的。

猜你在找的VB相关文章