读文件的时候,行数的跳转
我需要读一个txt的文件,代码如下
Open strTemp For Input As #intFile
Do Until VBA.EOF(intFile)
Line Input #intFile, strline
...
Loop
我现在需要读到一半的时候,跳转到文件的第一行和上一行
需要怎么弄啊?
[解决办法]
直接用字符串数组保存数据,要什么数据直接取数组值!
[解决办法]
保存第一行内容
保存当前行和上一行内容
[解决办法]
如果不想缓存的话,重新打开文件,定位到需要的行:
Open strTemp For Input As #intFile
Line_Num = 15 '指定行号
Line_Pointer = 0
Do Until VBA.EOF(intFile)
Line Input #intFile, strline
If Line_Num = Line_Pointer Then Exit Do
strLine = ""
Line_Pointer = Line_Pointer + 1
Loop
Close #1
[解决办法]
要是有频繁的跳转的话,还不如把文件读到数据库里,可以方便查询
[解决办法]