首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

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

2012-02-01 
读文件的时候,行数的跳转我需要读一个txt的文件,代码如下Open strTemp For Input As #intFileDo Until VBA

读文件的时候,行数的跳转
我需要读一个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

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

热点排行