本帖最后由 Nsqs 于 2016-12-22 21:53 编辑
- :on error resume next
- :sub class_bat
- ' 2>nul&echo off&cls
- cscript -nologo -e:vbs "%~0"
- pause
- exit sub
- :end sub
- set fso=CreateObject("Scripting.FileSystemObject")
- set regexp=new regexp
- file="1.txt"
- RegExp.Global=0:RegExp.IgnoreCase=-1
- RegExp.Pattern="(.*关键字.*)" '关键字
- t=timer
- read=fso.opentextfile(file).readall
- s="abc" '替换后
- result=RegExp.Replace(read,"$1"&s)
- wsh.echo timer-t &" 秒"
- fso.createtextfile("new.txt").write result
- set fso=nothing:set regexp=nothing
复制代码 保存bat即可 |