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

答案：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 

上一个：PHP 正则 email语句详解
下一个：[a] 1 [/a]转换为网址的UBB的正则