计算一个字符串在另一字符串中出现的次数函数

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