有一个TEXT文件,文件先要提取其中特定的数据,该如何提取?并输出写入到另一个新的TEXT文件中去?求大神指导?解救!!!TEXT文件如下:
1480 AJ01 0.3112 26.436
1481 AJ01 0.3116 26.405
1482 AJ02 1.6686 25.277
1483 AJ02 1.6687 25.266
1484 AJ02 1.1376 63.191
1485 AJ02 1.1372 63.201
1486 AJ03 2.3321 62.425
1487 AJ03 2.3324 62.417
1488 AJ03 1.7681 20.694
1489 AJ03 1.768 20.704
1490 AJ04 1.3917 20.738
1491 AJ04 1.3917 20.74
1492 AJ04 1.6977 20.618
1493 AJ04 1.6976 20.629
1494 AJ05 1.2634 22.497
1495 AJ05 1.2633 22.505
1496 AJ05 2.286 54.279
1497 AJ05 2.2859 54.28
1498 AJ06 0.7745 52.883
需要提取的信息:所有的A01~06,以及所有最后一列的数据。
求大神指导!!!万分感谢
想要输出 所有的AJ01~06的数据(就是AJ01~06那一列),以及最后一列的数据(每行最后一个空格之后的数据)!请问您还可以多说明一下吗?因为还需要写入到一个新的text文件当中去。
追答追答的内容不能过多,只给修改了最后一部分的代码及解释
fn = FreeFile
Open "d:\output.txt" For Output As fn '在这一句指明输出文件,你可以改成你需要的文件名
'你要的数据存放在s的name字段和num2字段中,下面代码码输出指定的2个字段
For i = 1 To total
Print #fn, s(i).name & vbTab & s(i).num2
Next i
Close fn
End Sub
能给一个联系方式,QQ可以么?我的毕业设计在搞VB,实在不懂。所以想向您再请教
追答懒得开Q,有事私信我