你的意思就是取最下面的几行(十行吧):我想这样
测试文本总行数x,if (x-10)>0 then 跳到 x-10 处
实现方法 dim x x=0
do while not AtEndOfStream
x=x+1
loop
判断(x-10) 如果 >0 则
for i=1 to (x-10)
SkipLine
next
跳到相应行,上边相应变量定义以及边界值,要实测一下,本文只提供思路,x是否差1或2的
你试一下吧
1\建议使用数据库为后台
2、textStream可使用skipline(n)方法
dim s as int..
set aa=fso.opentextfile("...")
while not aa.atendofline
aa.skip(5)
wend
s=aa.line
aa.close
set aa=fso.opentextfile("...")
n=s-20
aa.skip(n)
do while aa.atendofline
str=aa.readline
loop