[ASP]RegExp对象提供简单的正则表达式支持功能使用

RegExp对象的用法： 
 RegExpTest(patrn, strng) 
Dim regEx, Match, Matches ' 建立变量。 
Set regEx = New RegExp ' 建立正则表达式。 
regEx.Pattern = patrn ' 设置模式。 
regEx.IgnoreCase = True ' 设置是否区分字符大小写。 
regEx.Global = True ' 设置全局可用性。 
Set Matches = regEx.Execute(strng) ' 执行搜索。 
For Each Match in Matches ' 遍历匹配集合。 
RetStr = RetStr & "Match found at position " 
RetStr = RetStr & Match.FirstIndex & ". Match  is '" 
RetStr = RetStr & Match. & "'." & vbCRLF 
Next 
RegExpTest = RetStr 
End  

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

　　RegExp 对象的属性 

　　◎ Global属性 

　　Global属性设置或返回一个 Boolean 值，该值指明在整个搜索字符串时模式是全部匹配还是只匹配第一个。 
　　语法 
object.Global [= True | False ] 
　　object 参数总是 RegExp 对象。如果搜索应用于整个字符串，Global 属性的值为 True，否则其值为 False。默认的设置为 True。 

　　Global 属性的用法（改变赋予 Global 属性的值并观察其效果）： 
 RegExpTest(patrn, strng) 
Dim regEx ' 建立变量。 
Set regEx = New RegExp ' 建立规范表达式。 
regEx.Pattern = patrn ' 设置模式。 
regEx.IgnoreCase = True ' 设置是否区分字母的大小写。 
regEx.Global = True ' 设置全程性质。 
RegExpTest = regEx.Execute(strng) ' 执行搜索。 
End  

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

　　◎ IgnoreCase属性 

　　IgnoreCase属性设置或返回一个Boolean值，指明模式搜索是否区分大小写。 
　　语法 
object.IgnoreCase [= True | False ] 
　　object 参数总是一个 RegExp 对象。如果搜索是区分大小写的，则 IgnoreCase 属性为 False；否则为 True。缺省值为 True。 

　　IgnoreCase 属性的用法（改变赋予 IgnoreCase 属性的值以观察其效果)： 
 RegExpTest(patrn, strng) 
Dim regEx ' 建立变量。