[VBS]VBS替换正则表达式的内容

vbs替换字符串内容：
可以使用正则表达式自己写一个函数进行替换的：

Function ReplaceTest(str,patrn, replStr)
Dim regEx, str1                                   ' 建立变量。
Set regEx = New RegExp                            ' 建立正则表达式。
regEx.Pattern = patrn                             ' 设置模式。
regEx.IgnoreCase = True                           ' 设置是否区分大小写。
ReplaceTest = regEx.Replace(str, replStr)         ' 作替换。 
End Function