如何检测字符串出现的次数？
更新时间：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
相关文章
如何获取文件的名称和扩展名？...2006-11-11
如何让计数器只对新进用户计数？...2006-11-11
如何获知并显示文件的大小？...2006-11-11
如何编写一个最简单的聊天程序？...2006-11-11
网上考试设计思路是怎样的？...2006-11-11
如何验证字符串是否包含有效字符？...2006-11-11
如何实现电子邮件的自动发送？...2006-11-11
如何使用数组来显示下拉菜单？...2006-11-11
如何实时获知多少人在线？...2006-11-11
如何用组件实现自动发送电子邮件？...2006-11-11
最新评论