- 帖子
- 17
- 积分
- 143
- 技术
- 0
- 捐助
- 0
- 注册时间
- 2009-10-13
|
这个是我自己照猫画虎弄的,不太好使!:RegExp.Pattern="[\uff10-\uff190]"这一行不理解怎么写!
:On Error Resume Next
:set fso=CreateObject("scripting.filesystemobject")
:Sub bat
echo off&cls
cscript -nologo -e:vbs "%0"
Exit Sub
:End Sub
set RegExp=new RegExp
set stdin=wscript.stdin
:RegExp.IgnoreCase=1:RegExp.Global=1
:file="1.LRC"
:RegExp.Pattern="[\uff10-\uff190]"
:var=fso.opentextfile(file).readall
:var=RegExp.Replace (var,empty)
:RegExp.Pattern="([\W\da-z]{15})"
:var=RegExp.Replace (var,"$1"&vbcrlf)
:fso.createtextfile("new.txt").write var
wsh.echo var
stdin.readline |
|