- FunctionRegExpTest(patrn,strng)
- DimregEx,Matches
- SetregEx=NewRegExp
- regEx.Pattern=patrn
- regEx.IgnoreCase=True‘为真则忽略大小写,否则严格匹配大小写
- regEx.Global=True
- SetMatches=regEx.Execute(strng)
- RegExpTest=Matches.count
- EndFunction
- MsgBox(RegExpTest("is.","IS1is2IS3is4"))








发表评论
◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。