正则表达式(RegExp)对象

[code]Function RegExpTest(patrn, strng)  Dim regEx, Match, Matches      ' [/code]建立变量。[code]  Set regEx = New [b]RegExp[/b][/code]         [code]' [/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]    RetStr = RetStr & "Match found at position "[/code][code]    RetStr = RetStr & Match.FirstIndex & ". Match Value is '"[/code][code]    RetStr = RetStr & Match.Value & "'." & vbCRLF[/code][code]  Next[/code][code]  RegExpTest = RetStr[/code][code]End Function[/code][code]MsgBox(RegExpTest("is.", "IS1 is2 IS3 is4"))[/code]