揍个热闹
on error resume next
set fso=createobject("scripting.filesystemobject")
set file=fso.opentextfile("1.txt",1)
do while file.AtEndOfStream <> True
a=file.readline
do until instr(a," ")=0
a=replace (a," "," ")
loop
b=b & replace(a," ","|")& vbcrlf
loop
file.close
set file=fso.createtextfile("222.txt")
file.write b
file.close
msgbox "文件处理完毕,请查看222.txt文件",48+4096,"操作成功"