欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

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

程序员文章站 2022-04-28 16:53:53
利用vbscript脚本修改文件内容,此适用于自动化的操作中 '新建一个replace.vbs脚本,脚本内容如下,程序运行时输入三个参数:查找内容,替换内容,文件 ...
利用vbscript脚本修改文件内容,此适用于自动化的操作中

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

复制代码 代码如下:
dim filename, 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)  

'比较源文件和替换后的文件  
if dfilecontents <> filecontents then  
'保存替换后的文件  
writefile filename, dfilecontents  

wscript.echo "replace done."  
if len(replacewith) <> len(find) then  
'计算替换总数  
wscript.echo _  
( (len(dfilecontents) - len(filecontents)) / (len(replacewith)-len(find)) ) & _  
" replacements."  
end if  
else  
wscript.echo "searched string not in the source file"  
end if  

'读取文件  
function getfile(filename)  
if filename<>"" then  
dim fs, filestream  
set fs = createobject("scripting.filesystemobject")  
on error resume next  
set filestream = fs.opentextfile(filename)  
getfile = filestream.readall  
end if  
end function  

'写文件  
function writefile(filename, contents)  
dim outstream, fs  

on error resume next  
set fs = createobject("scripting.filesystemobject")  
set outstream = fs.opentextfile(filename, 2, true)  
outstream.write contents  
end function