用VBSCRIPT读文本文档

[yuejun]

假设文档如下：


价格： 5000，
时间：2003-11-13
机箱 联志 世纪之梦M2L 带电源 280
电源 航嘉 磐石355 210
大水牛 400 165
CPU AMD AthlonXP 2500+（散） 710
AMD AthlonXP 2500+（盒/三年质保） 800
AMD AthlonXP 1800+（散） 420
AMD Duron 1600（散） 330
主板 华硕 A7V600 (kt600) 890
华擎 K7S8XE （sis 748） 395
磐正 EP-8KRAI(kt600) 590
捷波 J-N2PA800 (nf2 u400) 688
微星 KT6 DELTA-LSR 660
硕泰克 SL-KT600-RL 750
内存 kingston 512M ddr400 715
kingston 512M ddr333 670
硬盘 西部数据 WD1200BB 765
希捷 120G/酷鱼7200.7 755
光驱 华硕 银豹S520 188
软驱 SONY MPF920-E 70
键鼠 微软套装 190
罗技光电高手 160
音箱 漫步者R321T 180
显卡 迪兰恒进 镭姬杀手9200加强版 610
铭瑄 狂镭9200白金版 5ns 669
盈通 镭龙R9200 VIVO 4ns 629
铭瑄 狂镭9200白金版64M 5ns 559
翔升 镭钻9200 4ns 460
显示器 飞利浦107P 203M 1650
LG F702P 203M 1488
优派 P75f+ 203M 1750
优派 G72f+ 125M 1450




用VBSCRIPT读取的
text = fso.opentextfile("c:\t.txt",forreading)
s = text.readline 这是第一行，
s2 = text.readline 这是第二行吗？

s3 怎么获得下面部份全部

[rainstormmaster]

Option Explicit
Dim FSO As New FileSystemObject
Private Sub Command1_Click()
Dim TEXT As TextStream
Set TEXT = FSO.OpenTextFile("c:\mydata.txt")
Dim s3 As String
s3 = TEXT.ReadAll
Set TEXT = Nothing
Set FSO = Nothing
End Sub

[yuejun]

s3 不要获得1，2，行的内容，

另外一个，我要取最后一行， 或者倒数第二行怎么取呢？

[rainstormmaster]

那就这样：
Option Explicit
Dim FSO As New FileSystemObject
Private Sub Command1_Click()
Dim TEXT As TextStream
Set TEXT = FSO.OpenTextFile("c:\mydata.txt")
Dim s3 As String
s3 = TEXT.ReadAll
dim arr
arr=split(s3,vbcrlf)
'分割后arr(i),就是第i+1行的内容
'dim i as long
'i=ubound(arr)
'arr(i)为最后一行的内容，arr(i-1)为倒数第二行的内容
'至于取出第3行后的内容，用循环就可以了
Set TEXT = Nothing
Set FSO = Nothing
End Sub