vbs:能算出一个字符在一字段里共出现有几次的函数
更新时间:2007年04月06日 00:00:00 作者:
Function RegExpTest(patrn, strng)
Dim regEx, Matches
Set regEx = New RegExp
regEx.Pattern = patrn
regEx.IgnoreCase = True ‘为真则忽略大小写,否则严格匹配大小写
regEx.Global = True
Set Matches = regEx.Execute(strng)
RegExpTest = Matches.count
End Function
MsgBox(RegExpTest("is.", "IS1 is2 IS3 is4"))
Dim regEx, Matches
Set regEx = New RegExp
regEx.Pattern = patrn
regEx.IgnoreCase = True ‘为真则忽略大小写,否则严格匹配大小写
regEx.Global = True
Set Matches = regEx.Execute(strng)
RegExpTest = Matches.count
End Function
MsgBox(RegExpTest("is.", "IS1 is2 IS3 is4"))
相关文章
Javascript正则表达式验证账号、手机号、电话和邮箱的合法性
这篇文章主要介绍了Javascript正则表达式验证账号、手机号、电话和邮箱的合法性,本文通过实例代码给大家介绍的非常详细,具有一定的参考借鉴价值,需要的朋友可以参考下2019-04-04


最新评论