正则表达式(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 = RetStrEnd FunctionMsgBox(RegExpTest("is.", "IS1 is2 IS3 is4"))