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
上一篇:如何验证字符串是否包含有效字符?
下一篇:如何准确地获得一个整数?