手机
当前位置:查字典教程网 >脚本专栏 >vbs >利用vbscript脚本修改文件内容,此适用于自动化的操作中
利用vbscript脚本修改文件内容,此适用于自动化的操作中
摘要:利用vbscript脚本修改文件内容,此适用于自动化的操作中'新建一个Replace.vbs脚本,脚本内容如下,程序运行时输入三个参数:查找...

利用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

【利用vbscript脚本修改文件内容,此适用于自动化的操作中】相关文章:

利用vbscript的for命令实现定时关机

vbscript下调用 Dir 命令的方法

用VBS脚本删除指定以外的文件或文件夹

利用VBS脚本修改联想笔记本BIOS密码的代码分享

文件夹定时自动备份 AutoBackUpFolder.vbs

VBScript 文件操作代码小结

用vbscript合并多个文本文件的代码

用vbs删除某些类型文件和磁盘空间报告的脚本

用vbs实现的简单的服务器文件备份办法压缩文件名自动按日期命名

vbs脚本实现批量转换文件编码

精品推荐
分类导航