如何利用vbscript脚本修改文件内容-创新互联

这篇文章主要讲解了“如何利用vbscript脚本修改文件内容”，文中的讲解内容简单清晰，易于学习与理解，下面请大家跟着小编的思路慢慢深入，一起来研究和学习“如何利用vbscript脚本修改文件内容”吧！

成都创新互联公司专注于铜川企业网站建设,响应式网站开发,商城网站建设。铜川网站建设公司,为铜川等地区提供建站服务。全流程按需求定制制作，专业设计，全程项目跟踪，成都创新互联公司专业和态度为您提供的服务

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

感谢各位的阅读，以上就是“如何利用vbscript脚本修改文件内容”的内容了，经过本文的学习后，相信大家对如何利用vbscript脚本修改文件内容这一问题有了更深刻的体会，具体使用情况还需要大家实践验证。这里是创新互联网站建设公司，，小编将为大家推送更多相关知识点的文章，欢迎关注！

新闻名称：如何利用vbscript脚本修改文件内容-创新互联
转载源于：http://bjjierui.cn/article/jigso.html