ASP VBScript正则表达式RegExp对象

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

MsgBox(ReplaceTest("fox", "cat"))
'' 将 ''fox'' 替换为 ''cat''。

;另外，Replace 方法在模式中替换 subexpressions 。 下面对以前示例中函数的调用，替换了原字符串中的所有字对：
MsgBox(ReplaceText("(\S+)(\s+)(\S+)", "$3$2$1")) '' Swap pairs of words.

　　◎ Test方法

　　Test方法对指定的字符串执行一个正则表达式搜索，并返回一个 Boolean 值指示是否找到匹配的模式。
　　语法
object.Test(string)
　　语法部分描述
object 必需的。总是一个 RegExp 对象的名称。
string 必需的。要执行正则表达式搜索的文本字符串。

说明
　　正则表达式搜索的实际模式是通过RegExp对象的Pattern属性来设置的。RegExp.Global属性对Test方法没有影响。
　　如果找到了匹配的模式，Test方法返回True;否则返回False。

　　Test 方法的用法：
Function RegExpTest(patrn, strng)
Dim regEx, retVal '' 建立变量。
Set regEx = New RegExp '' 建立正则表达式。
regEx.Pattern = patrn '' 设置模式。
regEx.IgnoreCase = False '' 设置是否区分大小写。
retVal = regEx.Test(strng) '' 执行搜索测试。
If retVal Then
RegExpTest = "找到一个或多个匹配。"
Else
RegExpTest = "未找到匹配。"
End If
End Function

MsgBox(RegExpTest("is.", "IS1 is2 IS3 is4"))