VBS正则表达式

删除字符串中指定的内容

Dim pathStr, newPathStr
pathStr = "c:\windows;%My%\tool;e:\test;%Tg%\ff;d:\mm"
set regEx = New RegExp
regEx.Pattern = ";%[a-zA-Z]+%(\\[a-zA-Z]+)*"
regEx.Global = True
newPathStr = regEx.Replace(pathStr, "")
MsgBox(newPathStr)