来帮忙看看怎么取这个txt文件中的数据
文本文件的内容是这样的格式:
E:\容器\10.DTA
DiSP (r) Location Version
E:\容器\10.DTA
DiSP (r) Location Version
Version E1.8
AEwin for DiSP
Thu Jan 08 12:47:23 2004
ID SSSSSSSS.mmmuuun
2 0.0104193
ID SSSSSSSS.mmmuuun CH RISE COUN ENER DURATION AMP PCNTS
1 0.0141927 1 1 1 0 1 61 1
1 0.0203083 8 10 1 0 11 65 1
1 0.4857988 8 3 2 0 18 62 1
1 0.9780492 1 3 1 0 6 62 1
1 0.9859860 8 1 1 0 1 61 1
ID SSSSSSSS.mmmuuun
2 1.0100445
ID SSSSSSSS.mmmuuun CH RISE COUN ENER DURATION AMP PCNTS
1 1.0333533 6 2 2 0 15 63 1
1 1.0333800 5 1 1 0 1 61 1
1 1.0335188 1 21 4 0 169 62 1
ID SSSSSSSS.mmmuuun
2 2.0100440
ID SSSSSSSS.mmmuuun CH RISE COUN ENER DURATION AMP PCNTS
1 2.0217802 7 11 9 10 62 71 2
1 2.0351552 8 23 6 0 37 63 4
数据有很多,中间我删了一部分.主要要求是根据CH一列的数据,把相同数据的行提取出来.但文本的写入格式不明,最后我试出了那列数据的位置(大概为用空格分割后的第14个数据)
Private Sub Command1_Click()
wenjian = Text1.Txt
For i = 1 To 8 '先后搜集1到8的数据行
Open wenjian For Input As 1
Do While Not EOF(1)
Line Input #1, shujv
b = Split(shujv, " ")
a = UBound(b) '得到b的上限
If a >= 43 Then '排除没用的行
DUISHU = CDbl(b(13)) '将字符转换为数字
If DUISHU = i Then '挑出数据
duchu = duchu + shujv + vbCrLf
End If
End If
Loop
Close #1
Next
'输出整理的结果
Open wenjian + ".txt" For Output As 2
Write #2, duchu
Close #2
End Sub
但中间这个语句出毛病了:
DUISHU = CDbl(b(13)) '将字符转换为数字
因为在排除没用的行时,有些不是数据的行没有排除掉,比如这样的行:
ID SSSSSSSS.mmmuuun CH RISE COUN ENER DURATION AMP PCNTS
在字符转换为数字时就会出错,我该怎么解决啊,同志们帮个忙~~