利用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
您可能感兴趣的文章:

• ASP、vbscript编码模板
• ASP中一个用VBScript写的随机数类
• asp,VBscript语法错误,史上最全最详细最精确
• vbscript脚本编程教程2利用fso来进行文件操作
• 使用vbscript脚本在表单中进行选择的代码
• 用vbscript脚本实现返回 IP 配置数据的代码
• ASP里面令人震撼地Debug类（VBScript）
• 调试JavaScript/VBScript脚本程序（IE篇）
• JavaScript/VBScript脚本程序调试（Wscript篇）
• 枚举域内计算机个数vbscript脚本（没环境，没测试）
• ASP/VBScript中CHR(0)的由来以及带来的安全问题分析
• ASP(VBScript)中整除和取余
• ASP基础知识VBScript基本元素讲解
• ASP基础入门第四篇(脚本变量、函数、过程和条件语句)

本文由 华域联盟 原创撰写：华域联盟 » 利用vbscript脚本修改文件内容，此适用于自动化的操作中

转载请保留出处和原文链接：https://www.cnhackhy.com/14313.htm