怎么用vbs提取文本文档里面的数据并保存为文本文档

如何用vbs提取文本文档里面的数据并保存为文本文档
文本：a.txt
内容：
11111111111 测试1 4321
22222222222 测试2 5634
33333333333 测试3 2132
44444444444 测试4 6545

提取后保存为b.txt
内容：
11111111111
22222222222
33333333333
44444444444

[解决办法]

VBScript code

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