如何检测字符串出现的次数?

 更新时间:2006年11月16日 00:00:00   作者:  

如何检测字符串出现的次数?

Function CheckTheChar(TheChar,TheString)
' TheChar="
要检测的字符串".
' TheString="
待检测的字符串".
if inStr(TheString,TheChar) then
for n =1 to Len(TheString)
if Mid(TheString,n,Len(TheChar))=TheChar then
CheckTheChar=CheckTheChar+1
End if
Next
CheckTheChar="
这个字符"&CheckTheChar&""
else
CheckTheChar="0
"
end if
End Function

 

相关文章

最新评论