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

function strnum(patrn, strng)
  dim regex, match, matches,xx
    xx=0
  set regex = new regexp
  regex.pattern = patrn
  regex.ignorecase = true            ' 设置是否区分大小写。
  regex.global = true
  set matches = regex.execute(strng)
  for each match in matches
    xx=xx+1
  next
  strnum = xx
end function