亚洲乱码中文字幕综合,中国熟女仑乱hd,亚洲精品乱拍国产一区二区三区,一本大道卡一卡二卡三乱码全集资源,又粗又黄又硬又爽的免费视频

如何檢測字符串出現(xiàn)的次數(shù)?

 更新時間:2006年11月16日 00:00:00   作者:  

如何檢測字符串出現(xiàn)的次數(shù)?

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

 

相關(guān)文章

  • 如何編寫TOP 10之類的排行榜?

    如何編寫TOP 10之類的排行榜?

    如何編寫TOP 10之類的排行榜?...
    2006-11-11
  • 如何更好地保護我的網(wǎng)頁?

    如何更好地保護我的網(wǎng)頁?

    如何更好地保護我的網(wǎng)頁?...
    2006-11-11
  • 最新評論