asp match正则函数使用Matchs实例

说明

Match对象只能通过RegExp对象的Execute方法来创建，该方法实际上返回了Match对象的集合。所有的Match对象属性都是只读的。

在执行正则表达式时，可能产生零个或多个Match对象。每个Match对象提供了被正则表达式搜索找到的字符串的访问、字符串的长度，以及找到匹配的索引位置等。

下面的代码说明了Match对象的用法：

1. Function   RegExpTest(patrn,   strng)    
2.     Dim   regEx,   Match,   Matches '   建立变量。    
3.     Set   regEx   =   New   RegExp '   建立正则表达式。    
4.     regEx.Pattern   =   patrn '   设置模式。    
5.     regEx.IgnoreCase   =   True '   设置是否区分大小写。    
6.     regEx.Global   =   True '   设置全局替换。    
7.     Set   Matches   =   regEx.Execute(strng) '   执行搜索。    
8.     For   Each   Match   in   Matches '   遍历   Matches   集合。    
9.         RetStr   =   RetStr   &   "Match   "   &   I   &   "   found   at   position   "    
10.         RetStr   =   RetStr   &   Match.FirstIndex   &   ".   Match   Value   is   "'    
11.         RetStr   =   RetStr   &   Match.Value   &   "'."   &   vbCRLF    
12.     Next    
13.     RegExpTest   =   RetStr    
14. End   Function    
15.  
16. MsgBox(RegExpTest("is.",   "IS1   is2   IS3   is4"))