这篇文章主要介绍了VBS脚本实现遍历批量替换多目录多文件内容的代码,主要是结合了bat,实现这种效果,需要的朋友可以参考一下

有时候我们需要将一个目录与子目录中的多个htm网页文件实现批量替换,这里就为大家分享一下

将以下代码复制到一个文本文档中,并将文本文档的后缀修改为.vbs,直接运行即可

Set WshShell = CreateObject("Wscript.Shell")
WshShell.Run "cmd /c dir /s/b *.htm > list.htm",vbHide
Wscript.Sleep 1000

sFile = "list.htm"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set oFile = objFSO.OpenTextFile(sFile,1)
Do While Not oFile.AtEndOfStream
  strLine = oFile.ReadLine
  If Len(strLine) > 0 Then
   Set File = objFSO.OpenTextFile(strLine, 1)
   aryLines = File.ReadAll
   File.Close
   aryLines = Replace(aryLines, "需要替换的内容", "替换后的内容")
   Set File = objFSO.OpenTextFile(strLine, 2)
   File.Write aryLines
   File.Close
  End If
Loop
oFile.Close

objFSO.DeleteFile sFile
Set objFSO = Nothing

cmd /c dir /s/b *.htm > list.htm就是将子目录中所哟的htm文件列出来保存到list.htm文件中。

文件替换就是通过vbs中的FileSystemObject实现批量替换,具体的可以参考这篇文章

如果替换的内容中包含有转义字符的话,需要注意转义一下

 PS:VBScript的相关转义字符:

 "/" (反斜杠)
 VbCrLf (换行符,用来表示重起一行)
 VbTab (水平制表符)
 Chr(8) (退格符)
  vbCr (回车符)
 "'" (单引号)
/" - > "" (双引号)

最新资讯
媒体会挤满滴滴高管 顺风车依旧无上线时间表

媒体会挤满滴滴高管

但即使做了这么多有关安全的调整,包括柳青在内的滴滴高
小鹏汽车连发补救措施挽人心

小鹏汽车连发补救措施

小鹏汽车正在制定新的补偿方案,包括三年6折保值换购或
亚马逊败走 图书电商巨头四进三

亚马逊败走 图书电商

用户增长的红利正逐渐消失。为了能够稳定自身的业务规
滴滴取消顺风车附近接单

滴滴取消顺风车附近接

未来将在白天试运行顺风车,并在试运行期间免收车主信息
北京ETC卡不必担心被盗刷

北京ETC卡不必担心被

北京地区近几年发行的ETC速通卡并不具有金融功能,只能
欧盟批准220亿美元收购 沃达丰成欧洲最大综合运营商

欧盟批准220亿美元收

去年5月,沃达丰宣布将收购Liberty Global的德国和中欧
最新文章
vbs 自制数字益智游戏实现代码

vbs 自制数字益智游戏

这篇文章主要介绍了vbs 自制数字益智游戏实现代码,需
vbs实现的tasklist效果代码

vbs实现的tasklist效

这个简短的脚本使用wmi显示与工具“tasklist”中相同
用vbs脚本获取网卡MAC,CPUID,硬盘序列号的实现代码

用vbs脚本获取网卡MAC

这篇文章主要介绍了用vbs脚本获取网卡MAC,CPUID,硬盘
VBS基础篇 - 循环(for、Do、While)

VBS基础篇 - 循环(for

经常地,当编写代码时,我们希望将一段代码执行若干次,我们
VBS基础篇 - VBScript过程(使用sub 与 Function定义函数)

VBS基础篇 - VBScript

在 VBScript 中,过程被分为两类:Sub 过程和 Function 过
VBS基础篇 - vbscript class类的定义与使用

VBS基础篇 - vbscript

vbs Class就是声明一个类的名称,以及组成该类的变量、