FirstIndex 属性

[code]~Function RegExpTest(patrn, strng)  Dim regEx, Match, Matches[/code]         [code]' [/code]建立变量。[code]  Set regEx = New RegExp[/code]         [code]' [/code]建立正则表达式。[code]  regEx.Pattern = patrn[/code]         [code]' [/code]设置模式。[code]  regEx.IgnoreCase = True[/code]         [code]' [/code]设置是否区分大小写。[code]  regEx.Global = True[/code]            [code]' [/code]设置全局可用性。[code]  Set Matches = regEx.Execute(strng)[/code]      [code]' [/code]执行搜索。[code]  For Each Match in Matches[/code]         [code]' [/code]遍历[code] Matches [/code]集合。[code]    RetStr = RetStr & "[/code]匹配[code] " & I & " [/code]位于[code] "[/code][code]    RetStr = RetStr & [b]Match.FirstIndex[/b] & ". 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]