dim s as string
s=ts.readall
dim a
a=split(s,vbcrlf)
dim ss as string
ss=a(0) '第1行
ss=a(2) '第3行
ss=a(4) '第5行
大致就这样
FSO模型中的TextStream对象： Dim FSO As New FileSystemObject Dim ts As TextStream
dim s as string
s=ts.readall
dim a
a=split(s,vbcrlf)
dim ss as string
ss=a(0) '第1行
ss=a(2) '第3行
ss=a(4) '第5行
大致就这样
FSO模型中的TextStream对象： Dim FSO As New FileSystemObject Dim ts As TextStream