asp vbs Matchs asp match正则函数使用Matchs实例

  说明   
  Match   对象只能通过   RegExp   对象的   Execute   方法来创建，该方法实际上返回了   Match   对象的集合。所有的   Match   对象属性都是只读的。   
  在执行正则表达式时，可能产生零个或多个   Match   对象。每个   Match   对象提供了被正则表达式搜索找到的字符串的访问、字符串的长度，以及找到匹配的索引位置等。   

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

  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 '   遍历   Matches   集合。   
          RetStr   =   RetStr   &   "Match   "   &   I   &   "   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"))