功能：用于批量替换文本文件的内容
说明：有时用文本文档替换大批量内容比较慢，用vbs实现则会快很多
 
set fso=createobject("scripting.filesystemobject")
set file=fso.opentextfile("c:\test.txt")
s=file.readall
file.close
s=replace(s,vbCrLf,"○")
set file=fso.createtextfile("#text.txt")
file.write s
file.close
msgbox "请查看#text.txt文件！"