对于这样的txt文本文件,我们怎么一行一行去读取数据呢?
#00001 65536
*00001 65536
说说常用的两种方法,一种是把txt文本文档读到Excel中,然后获取最大行数,做个循环来遍历这个文件。一种是用Line Input这个方法遍历整个txt文本文件。
第一种方法就用Workbooks.open Filename:= (文件路径)就可以了,举个例子,如果你知道文件路径(path)和文件名(name)的话,就可以Workbooks.open Filename:=path & "\" & name。
注意:上面的path 和 name 均为自己定义的变量。
①Workbook.open Filename:=path & "\" & name
②Maxrow=Range("A10000").End(xlup).row
③Do While NowRow <= Maxrow
④ src=Range("A" & NowRow)
⑤ ......
⑥Loop
①把文件以Excel的形式打开,②获取文件的最大行,③-⑥做一个循环,其中NowRow为自己定义的变量,代表着当前的行数,记得在做循环之前对变量NowRow初始化,NowRow=1。
第二种方法也是我们今天要着重说明的Line Input方法。
①Open Inpath For Input As #1
②Do Until EOF(1)
③ Line Input #1,src
④ ......
⑤Loop
⑥Close #1
①把inpath这个文件打开作为#1,inpath是变量,同上面讲述的文件路径一样,就不在赘述,②-⑤做了一个do until循环,循环读取这个文件,直到把文件读完,其中③是核心,逐行来读取数据,把读取到的数据放到src中,src也是自己定义的变量,可以定义成其他名字,④我们就可以对src这个每一行的数据进行其他你想要的处理。⑥关闭文件。
![78b25988e6e80165c39cf887888c7e28.png](https://i-blog.csdnimg.cn/blog_migrate/1d6d572868c30ca55c28b8cd48eccc5b.jpeg)