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