Dim strTem
Open "C:\test.txt" For Input As #1
For Count = 1 To n 'n是要读的第几行
Line Input #1, strTem
Next Count
Line Input #1, strTem '此时的strTem就是你要读的信息
Close #1
对于这种文件没有更好的方法,看情况,可以考虑用数据库,可以移动n行
dim i as long,j as longdim js as string
i=50 '假设从第50行开始
open 路径 for input as #1
do while eof(1)=false and j<i-1
j=j+1
line input #1,js
loop
if j=i-1 then
line input #1,js
else
end if
close #1
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)