读书人

读文件的时候行数的跳转,该如何解决

发布时间: 2012-02-01 16:58:19 作者: rapoo

读文件的时候,行数的跳转
我需要读一个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
[解决办法]
要是有频繁的跳转的话,还不如把文件读到数据库里,可以方便查询
[解决办法]

探讨
我需要读一个txt的文件,代码如下

Open strTemp For Input As #intFile

Do Until VBA.EOF(intFile)
Line Input #intFile, strline
...
Loop

我现在需要读到一半的时候,跳转到文件的第一行和上一行
需要怎么弄啊?

读书人网 >VB

热点推荐