Question

vb如何删除文本文件中带##的行，并提取某个数值到新文件

For M5|Adr 647|TO Reading E327 3| | | |
For M5|Adr 648|KD1 35 1 2 3|Rf 1.19199 m |HD 23.236 m | |
For M5|Adr 649|KD1 34 1 2 3|Rb 1.17469 m |HD 23.778 m | |
For M5|Adr 650|KD1 35 1 3| | |Z 0.03141 m |
For M5|Adr 651|KD1 36##### 2 3|Rf 1.74724 m |HD 8.323 m | |
For M5|Adr 652|KD1 35##### 2 3|Rb 1.21646 m |HD 8.404 m | |

Answer 1

1.删除
Open "d:\test.txt" For Input As #8 '打开需要修改的文件
Open "d:\test_o.txt" For Output As #9 '重新输入到新文件
While Not EOF(8)
Line Input #8, sline
If InStr(1, sline, "#") = 0 Then '判断该行是否有 # 字符
Print #9, sline '无则输出
End If
Wend
Close
2.提取
Open "d:\test.txt" For Input As #8 '打开需要提取的文件
Open "d:\test_o.txt" For Output As #9 '新文件
While Not EOF(8)
Line Input #8, sline
strt = Split(sline) '拆分数据
'根据需要存储,此处存储 M5|Adr 列数据
Print #9, strt(1)
Wend
Close