如何用vbs提取文本文档里面的数据并保存为文本文档
文本:a.txt
内容:
11111111111 测试1 4321
22222222222 测试2 5634
33333333333 测试3 2132
44444444444 测试4 6545
提取后保存为b.txt
内容:
11111111111
22222222222
33333333333
44444444444
[解决办法]
sFilename = "c:\a.txt"sTargetName = "c:\b.txt"s = ""Set oFSO = CreateObject("Scripting.FileSystemObject")Set oFile = oFSO.OpenTextFile(sFilename,1,True)Do While Not oFile.AtEndOfStream line = oFile.ReadLine() If line<>"" Then s = s & Split(line, " ")(0) & VbCrLf End IfLoopoFile.CloseSet oFile = oFSO.OpenTextFile(sTargetName,2,True)oFile.Write soFile.CloseSet oFile = NothingSet oFSO = Nothing