本篇文章主要介绍了"VB循环读写TXT文件"，主要涉及到方面的内容，对于VBjrs看球网直播吧_低调看直播体育app软件下载_低调看体育直播感兴趣的同学可以参考一下：
这个问题看简单，可实际上在网上搜索后给出的解答基本都是下面这种。Do While Not EOF(1) 循环至文件尾。
Line Input #1, Tex...
这个问题看似简单，可实际上在网上搜索后给出的解答基本都是下面这种。
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循环读写TXT文件，包括了方面的内容，希望对VBjrs看球网直播吧_低调看直播体育app软件下载_低调看体育直播有兴趣的朋友有所帮助。
本文网址链接：http://www.codes51.com/article/detail_101042.html
