手机
当前位置:查字典教程网 >脚本专栏 >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命令实现定时关机

用vbs读取index.dat内容的实现代码

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

vbscript下调用 Dir 命令的方法

VBScript之通过对比注册表查找隐藏的服务

VBS脚本和BAT批处理删除自身的方法

用vbs脚本来关闭 HTML 页面的代码

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

使用vbs脚本定时删除N天前的文件

用vbscript把 Word 文档保存为文本文件的代码

精品推荐
分类导航