正則表達(dá)式(RegExp)對象

提供簡單的正則表達(dá)式支持功能。

說明

下面的代碼說明了RegExp對象的用法：

Function RegExpTest(patrn, strng)  Dim regEx, Match, Matches      ' 建立變量。  Set regEx = New RegExp         ' 建立正則表達(dá)式。  regEx.Pattern = patrn         ' 設(shè)置模式。  regEx.IgnoreCase = True         ' 設(shè)置是否區(qū)分字符大小寫。  regEx.Global = True         ' 設(shè)置全局可用性。  Set Matches = regEx.Execute(strng)   ' 執(zhí)行搜索。  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"))