- '============================================
- 'code by lcx 修改网上原有的一个小程序,不知作者,那个程序没有对目录实现递归查找
- '将本程序放在你要查找的目录下,或把查找的目录拖到此脚本上,估计还有bug
- '=======================================================================================
- On Error Resume next
- Do Until False
- Findstr=InputBox("请输入你要查找的字符(串):", "请输入")
- If Findstr <> "" Then
- Exit do
- End If
- Loop
- repwith=InputBox("请输入你要替换的字符(串):,如果留空则只为查找", "请输入")
- If Wscript.Arguments.Count <> 0 Then
- For i=0 To WScript.Arguments.Count-1
- folderpath=WScript.Arguments(i)
- find(folderpath)
- Next
- Else
- '处理当前目录
- Set objShell = CreateObject("WScript.Shell")
- folderpath=objShell.CurrentDirectory
- find(folderpath)
- End If
- '替换主程序
- Sub find(path)
- set fso=CreateObject("Scripting.FileSystemObject")
- set current=fso.GetFolder(path)
- For Each file In current.Files
- set fsofile=fso.OpenTextFile(file, 1, true)
- On Error Resume next
- tempstr=fsofile.Readall
- If InstrRev(tempstr,Findstr, -1, 0)<>0 And repwith = "" Then
- with Fso.opentextfile(left(Wscript.ScriptFullName,len(Wscript.ScriptFullName)-len(Wscript.ScriptName))&"\re.txt",8,true)
- .writeline file
- .close
- end with
- End If
- If repwith <> "" Then
- tempstr=replace(tempstr, Findstr, repwith)
- set fsofile1=fso.OpenTextFile(file, 2, true)
- fsofile1.WriteLine tempstr
- fsofile.close
- End if
- Next
- for each folder in current.subfolders
- Call find(folder.path)
- next
- set fso=nothing
- End Sub
- msgbox "OK,查找的文件名保存在re.txt"
批量文件查找替换功能的vbs脚本
2020-07-18 11:31VBS教程网 VBS
用vbs实现的批量文件的查找替换的功能,有需要的朋友可以参考下
延伸 · 阅读
- 2022-03-07如何替换@PathVariable中的变量
- 2022-03-06在Linux中如何查找最大的10个文件方法汇总
- 2022-03-04python二分法查找实例代码
- 2022-03-02易语言查找指定颜色并将鼠标移动到指定坐标的
- 2022-02-13Python中搜索和替换文件中的文本的实现(四种)
- 2022-01-24Python如何将给定字符串中的大写英文字母按以下
精彩推荐
- VBS
vbs base64 解密脚本代码
解密base64的vbs小函数,支持英文与数字不支持中文。...
- VBS
VBS教程:属性-AvailableSpace 属性
VBS教程:属性-AvailableSpace 属性 ...
- VBS
脚本 MsAgent组件 微软精灵 揪出系统自带的宠物
你知道系统里有一个隐藏的宠物吗? 将以下代码保存为后缀为.vbs的文件,再双击运行,看看出来什么?一个可爱的魔法老人!还会说话、移动、吹喇叭…...
- VBS
VBS教程:对象-Folders 集合
VBS教程:对象-Folders 集合...
- VBS
VBS教程:正则表达式简介 -建立正则表达式
建立正则表达式 构造正则表达式的方法和创建数学表达式的方法一样。也就是用多种元字符与操作符将小的表达式结合在一起来创建更大的表达式。 可以...
- VBS
可以定时自动关机的vbs脚本
这篇文章主要分享一段可以定时自动关机的vbs脚本代码,有需要的童鞋可以学习下...
- VBS
VBS教程:属性-VolumeName 属性
VBS教程:属性-VolumeName 属性...
- VBS
提供个可以显示农历的VBS代码
本文主要分享一段可以显示农历的VBS代码,具有一定的参考价值,有需要的朋友可以了解一下...