如何计算一个字符在一个字符串中出现的次数

[fzdcn]

如何计算一个字符在一个字符串中出现的次数

[zjwz001]

用个循环mid再比较累加起来就OK了

[zjwz001]

dim i,j
str="abcabc"
s="a"
for i=0 to leg(str)
f=mid(str,i,1)
if f=s then
j=j+1
end if
next
response.write j

[a_zhe_20]

用instr函数吧

然后根据出现的位置截断字符串。循环。

[chenxdb]

<%
str1="aabcadeaagfaaagahahaaaaa"'要计算的字符串
for i=1 to len(str1)
if Mid(str1, i, 1)="a" then con=con+1
next
'con就是要统计的字个数
%>

[zjwz001]

打错字了,更正:leg--->len

[若白师妹]

<%str="aabcabaaabbccccca"
tmp=split(str,"a")
response.write ubound(tmp)&"次"
%>

[Brookes]

set re = new RegExp
re.pattern="d"
re.global=true
arr = re.execute("cdbBdbsbdbdz").Count
response.Write(arr)

[ghlfllz]

<%
sourcestr="asdalkjfsafowerwlkernafadwerlkndvlarewor"
startposition=0
findstr="a"
findcount=0
do while startposition<len(sourcestr)
if startposition=0 then
searchstr=instr(sourcestr,findstr)
else
searchstr=instr(startposition,sourcestr,findstr)
end if
if searchstr<>0 then
findcount=findcount+1
startposition=searchstr+len(findstr)
else
exit do
end if
loopcount=loopcount+1
loop
response.write("结果："&findcount)
%>

[7teeth]

ghostzp(风中一头猪)的思路好
up