一个检测一个字符串在另一个字符串当中出现几次的函数
作者：佚名 文章来源：网络转载 更新时间
：2005-11-26 11:45:35
U2 Forum rautinee原创$
$http://u2bbs.126.com$
一个网友问就写了一个,:)
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
'++++++++++++++++
example:
Response.write CheckTheChar("大家","a224大家4a434a4大家654arewr4a4a")
----------------------------------------------------
ok enjoy it and good luck
上一篇文章： Remote Scripting进阶教程---使用 Remote Scripting 下一篇文章： 聊天室自做 Follow Me 百度搜索： 一个检测一个字符串在另一个字符串当中出现几次的函数
【发表评论】【打印此文】【关闭窗口】【点击数： 】
$http://u2bbs.126.com$
一个网友问就写了一个,:)
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
'++++++++++++++++
example:
Response.write CheckTheChar("大家","a224大家4a434a4大家654arewr4a4a")
----------------------------------------------------
ok enjoy it and good luck
【发表评论】【打印此文】【关闭窗口】【点击数： 】
★好玩的休闲小游戏★
网友评论：
数据载入中，请稍后……