0514-86177077
9:00-17:00(工作日)
返回在字符串搜索中找到的匹配的长度。
object.Length
object 参数总是一个 Match 对象。
下面的代码说明了 Length 属性的用法:
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 ' 遍历 Matches 集合。 RetStr = RetStr "匹配 " I " 位于 " RetStr = RetStr Match.FirstIndex "。匹配的长度为" RetStr = RetStr Match.Length RetStr = RetStr "个字符。" vbCRLF Next RegExpTest = RetStrEnd FunctionMsgBox(RegExpTest("is.", "IS1 is2 IS3 is4"))
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 '
Matches
RetStr = RetStr "
" I "
"
RetStr = RetStr Match.FirstIndex "
RetStr = RetStr Match.Length
" vbCRLF
Next
RegExpTest = RetStr
End Function
MsgBox(RegExpTest("is.", "IS1 is2 IS3 is4"))
标签:丹东 柳州 张掖 内蒙古 达州 鹤壁 资质挂靠 南京
上一篇:VBS教程:VBscript属性-Number 属性
下一篇:VBS教程:VBscript属性-IgnoreCase 属性