asp RegExp对象正则表达式功能用法

 RegExp对象的用法：

Function  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 Value is ' "  
RetStr  =  RetStr  &  Match.Value  &   " '. "   &  vbCRLF 
Next  
RegExpTest  =  RetStr 
End Function  

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

　　 RegExp 对象的属性

　　◎ Global属性

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

　　Global 属性的用法（改变赋予 Global 属性的值并观察其效果）：

Function  RegExpTest(patrn, strng) 
Dim  regEx  '  建立变量。 
Set  regEx  =   New  RegExp  '  建立规范表达式。 
regEx.Pattern  =  patrn  '  设置模式。 
regEx.IgnoreCase  =   True   '  设置是否区分字母的大小写。 
regEx.Global  =   True   '  设置全程性质。 
RegExpTest  =  regEx.Execute(strng)  '  执行搜索。 
End Function  

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

　　◎ IgnoreCase属性

　　IgnoreCase属性设置或返回一个Boolean值，指明模式搜索是否区分大小写。

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

　　IgnoreCase 属性的用法（改变赋予 IgnoreCase 属性的值以观察其效果)：

Function  RegExpTest(patrn, strng) 
Dim  regEx  '  建立变量。 
Set  regEx  =   New  RegExp  '  建立正则表达式。 
regEx.Pattern  =  patrn  '  设置模式。 
regEx.IgnoreCase  =   True   '  设置是否区分大小写。 
RegExpTest  =  regEx.Execute(strng)  '  执行搜索。 
End Function  

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