vbs计算字符串在一个文本中出现次数的函数

给出一个应用vbs计算字符串在一个文本中出现次数的函数，如下所示

'Str：字符串内容

'toSearch:需要查找的字符或字符串

Function FindCount(Str,toSearch)
Dim Times,WordLen
Times = 0
WordLen = Len(toSearch)
For i = 1 To Len(Str)+1-WordLen
If Mid(Str,i,WordLen) = toSearch Then
Times = Times + 1
End If
Next
FindCount = Times
end function

'查找"as"在字符串"adfasdfasdfasdfasdfasdfasdfa"中出现的次数

msgbox FindCount("adfasdfasdfasdfasdfasdfasdfa","as")

弹出框结果：6 ，有兴趣的可以将代码拷出来在QTP或其它工具中运行一下。