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

'新建一个Replace.vbs脚本，脚本内容如下，程序运行时输入三个参数：查找内容，替换内容，文件

复制代码 代码如下: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