页面导航： 首页 → 网络编程 → 正则表达式 → 正文内容

发布：dxy 字体：[增加 减小] 类型：转载

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"))  

文章评论

共有 位脚本之家网友发表了评论我来说两句