试问有没有那种可以判断一个字符串或者是一个字符在另外一个字符串了出现的几次的函数啊？

[samyan]

如题

[KimSoft]

'str 字符串或字符
'strbesearched 被查找的字符串

ubound(split(strbesearched, str))

[zorou_fatal]

包装一下 instr
<%


function InstrCount(sourceStr,targetStr)

Dim strLength'字符串长度
Dim targetLength'目标字符串的长度

Dim strCount'出现的次数

Dim StartPosition'比较的开始位置

strlength=Len(sourceStr)

targetLength=Len(targetStr)

strCount=0

StartPosition=1



while(instr(StartPosition,sourceStr,targetStr)>0)

strlength=Len(sourceStr)
sourceStr=Right(sourceStr,strLength-instr(StartPosition,sourceStr,targetStr))
strCount=strCount+1

wend

InstrCount=strCount

end function

response.write InstrCount("abcdefgabcdefg","abcd")

%>

[笨笨兔兔兔兔兔]

虎子快点儿升级.....

[soft_2008]

hehe...

[zorou_fatal]

嘿咻嘿咻