Length 属性

[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 & "[/code]匹配[code] " & I & " [/code]位于[code] "[/code][code]    RetStr = RetStr & Match.FirstIndex & "[/code]。匹配的长度为[code]"[/code][code]    RetStr = RetStr & [b]Match.Length[/b] [/code][code]    RetStr = RetStr & "[/code]个字符。[code]" & vbCRLF[/code][code]  Next[/code][code]  RegExpTest = RetStr[/code][code]End Function[/code][code]MsgBox(RegExpTest("is.", "IS1 is2 IS3 is4"))[/code]