手机
当前位置:查字典教程网 >脚本专栏 >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来添加ip策略 自动封IP

清除垃圾的VBS文件 自动查找多个盘

vbs,hta中选择文件夹对话框实现代码

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

vbscript自动配置IIS的代码

用vbscript脚本实现返回 IP 配置数据的代码

VBScript开发自动化测试脚本的方法分析

用vbs产生的若干个随机数并写入到一个.txt中的代码

VBScript 文件操作代码小结

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

精品推荐
分类导航