- Functionstrnum(patrn,strng)
- DimregEx,Match,Matches,xx
- xx=0
- SetregEx=NewRegExp
- regEx.Pattern=patrn
- regEx.IgnoreCase=True'设置是否区分大小写。
- regEx.Global=True
- SetMatches=regEx.Execute(strng)
- ForEachMatchinMatches
- xx=xx+1
- Next
- strnum=xx
- EndFunction
如果您对该产品感兴趣，请填写办理（客服微信：xiaoxiongyidong）
发表评论
◎欢迎参与讨论，请在这里发表您的看法、交流您的观点。