个人中心
gpt4 book ai didi

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

转载 作者：qq735679552 更新时间：2022-09-29 22:32:09 26 4
gpt4 key购买 nike

CFSDN坚持开源创造价值，我们致力于搭建一个资源共享平台，让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章利用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脚本修改文件内容，此适用于自动化的操作中的内容请搜索CFSDN的文章或继续浏览相关文章，希望大家以后支持我的博客！ 。

26 4 0
文章推荐： 浅谈java异常处理之空指针异常
文章推荐： 批量替换快捷方式目的路径的VBS脚本
文章推荐： Wscript.Shell 对象详细介绍！！特好的东西
文章推荐： VBS教程：VBScript 基础-VBScript 数据类型
qq735679552
个人简介

我是一名优秀的程序员,十分优秀！

滴滴打车优惠券免费领取
滴滴打车优惠券
全站热门文章
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com