Match 对象

[code]Function RegExpTest(patrn, strng)  Dim regEx, Match, Matches         ' [/code]建立变量。[code]  Set regEx = New RegExp         ' [/code]建立正则表达式。[code]  regEx.Pattern = patrn         ' [/code]设置模式。[code]  regEx.IgnoreCase = True         ' [/code]设置是否区分大小写。[code]  regEx.Global = True            ' [/code]设置全局替换。[code]  Set Matches = regEx.Execute(strng)      ' [/code]执行搜索。[code]  For Each Match in Matches         ' [/code]遍历[code] Matches [/code]集合。[code]    RetStr = RetStr & "Match " & I & " found at position "[/code][code]    RetStr = RetStr & [b]Match[/b].FirstIndex & ". Match Value is "'[/code][code]    RetStr = RetStr & [b]Match[/b].Value & "'." & vbCRLF[/code][code]  Next[/code][code]  RegExpTest = RetStr[/code][code]End Function[/code][code]MsgBox(RegExpTest("is.", "IS1 is2 IS3 is4"))[/code]