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

gzhuu 2009-08-27 05:45:04

文本：a.txt
内容：
11111111111 测试1 4321
22222222222 测试2 5634
33333333333 测试3 2132
44444444444 测试4 6545

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

...全文

194 1 打赏收藏转发到动态举报

写回复

用AI写文章

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

hookee 2009-08-27

打赏
举报



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 If

Loop

oFile.Close

Set oFile = oFSO.OpenTextFile(sTargetName,2,True)

oFile.Write s

oFile.Close

Set oFile = Nothing

Set oFSO = Nothing