vbs:能算出一个字符在一字段里共出现有几次的函数

1. Function RegExpTest(patrn, strng)   
2. Dim regEx, Matches   
3. Set regEx = New RegExp   
4. regEx.Pattern = patrn   
5. regEx.IgnoreCase = True ‘为真则忽略大小写，否则严格匹配大小写   
6. regEx.Global = True   
7. Set Matches = regEx.Execute(strng)   
8. RegExpTest = Matches.count   
9. End Function   
10. MsgBox(RegExpTest("is.", "IS1 is2 IS3 is4"))