日期:2014-05-16  浏览次数:20967 次

ASP 统计字符串访问题
现在有一随机字符串 有A、B 组成  长度随机 A、B出现位置随机  

AABABBBBBABBBBAAAAAABABBABABABABBAABABABABBBABABABA

请问有什么好方法 统计出 A 与 B的出现次数呀? 
------解决方案--------------------

Dim strValue 
Dim intACnt
Dim intBCnt

strValue = "AABABBBBBABBBBAAAAAABABBABABABABBAABABABABBBABABABA"

intACnt = Len(strValue) - Len(Replace(strValue, "A", ""))
intBCnt = Len(strValue) - intACnt
Response.Write "A的出现次数=“ & CStr(intACnt) & "<br />"
Response.Write "A的出现次数=“ & CStr(intBCnt) & "<br />"


------解决方案--------------------
楼上的+1。我只是写写玩的。

strValue = "AABABBBBBABBBBAAAAAABABBABABABABBAABABABABBBABABABA"
ar = split(strValue, "B")
b_counter =  ubound(ar)
a_counter = len(strValue)-b_counter
Response.Write "A的出现次数=“ & CStr(a_counter) & "<br />"
Response.Write "B的出现次数=“ & CStr(b_counter) & "<br />"

------解决方案--------------------

Dim str
str="AABABBBBBABBBBAAAAAABABBABABABABBAABABABABBBABABABA"
Response.Write "A的出现次数="& UBound(Split(str,"A")) & "<br />"
Response.Write "B的出现次数="& UBound(Split(str,"B")) & "<br />"

------解决方案--------------------
len(replace('AABABBBBBABBBBAAAAAABABBABABABABBAABABABABBBABABABA','B',''))