利用vbscript脚本修改文件内容，此适用于自动化的操作中

DimFileName,Find,ReplaceWith,FileContents,dFileContents
Find=WScript.Arguments(0)
ReplaceWith=WScript.Arguments(1)
FileName=WScript.Arguments(2)

''读取文件
FileContents=GetFile(FileName)

''用“替换内容”替换文件中所有“查找内容”
dFileContents=replace(FileContents,Find,ReplaceWith,1,-1,1)

''比较源文件和替换后的文件
ifdFileContents<>FileContentsThen
''保存替换后的文件
WriteFileFileName,dFileContents

Wscript.Echo"Replacedone."
IfLen(ReplaceWith)<>Len(Find)Then
''计算替换总数
Wscript.Echo_
((Len(dFileContents)-Len(FileContents))/(Len(ReplaceWith)-Len(Find)))&_
"replacements."
EndIf
Else
Wscript.Echo"SearchedstringNotInthesourcefile"
EndIf

''读取文件
functionGetFile(FileName)
IfFileName<>""Then
DimFS,FileStream
SetFS=CreateObject("Scripting.FileSystemObject")
onerrorresumeNext
SetFileStream=FS.OpenTextFile(FileName)
GetFile=FileStream.ReadAll
EndIf
EndFunction

''写文件
functionWriteFile(FileName,Contents)
DimOutStream,FS

onerrorresumeNext
SetFS=CreateObject("Scripting.FileSystemObject")
SetOutStream=FS.OpenTextFile(FileName,2,True)
OutStream.WriteContents
EndFunction