以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  怎样取得字符串中 相同字符的个数  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=2822)
--  作者：mr725
--  发布时间：2009/5/18 16:38:00
--  怎样取得字符串中 相同字符的个数
aaa2bbbawwwbb22 
a 4个
2 3个
b 5个
w 3个
--  作者：狐狸爸爸
--  发布时间：2009/5/18 16:49:00
--  
留个你们练习，我打分。
--  作者：don
--  发布时间：2009/5/18 17:07:00
--  
相信楼主能解决.
--  作者：mr725
--  发布时间：2009/5/18 17:10:00
--  
我只能找到第一个字符的个数
dim gs as string ="aaa2bbbawwwbb22 "
dim gs1 as string =""
dim n as integer
for i as integer = 0 to gs.length -1
for ii as integer =gs.length -1 to 0 step -1
if gs(i) = gs(ii) then
gs1 = gs1 & gs(i)
n = gs1.length
end if
next
output.show(n)  \'显示结果 4
exit for
next
--  作者：don
--  发布时间：2009/5/18 17:15:00
--  
呵呵,这个思路不对
--  作者：mr725
--  发布时间：2009/5/18 17:21:00
--  
第一次的测试啊～   对我来说太复杂了，～ 能给思路就好了
[此贴子已经被作者于2009-5-18 17:21:59编辑过]
--  作者：don
--  发布时间：2009/5/18 17:34:00
--  

结合Replace和Length及IndexOf

[此贴子已经被作者于2009-5-18 17:37:55编辑过]
--  作者：mr725
--  发布时间：2009/5/18 17:45:00
--  
今晚要去打球了，明儿再试了～ 谢谢don老师。
[此贴子已经被作者于2009-5-18 17:45:09编辑过]
--  作者：kylin
--  发布时间：2009/5/18 17:56:00
--  
以下运行通过
dim m as integer
dim n as integer
dim gs as string ="aaa2bbbawwwbb22"
Do While gs.length>0
    dim gs1 as string =left(gs,1)
    m = gs.length
    gs= gs.Replace(gs1,"")
    n = m-gs.length
    output.show(gs1 & n)
 Loop
--  作者：yangming
--  发布时间：2009/5/18 18:49:00
--  
以下是引用kylin在2009-5-18 17:56:00的发言：
以下运行通过
dim m as integer
dim n as integer
dim gs as string ="aaa2bbbawwwbb22"
Do While gs.length>0
    dim gs1 as string =left(gs,1)
    m = gs.length
    gs= gs.Replace(gs1,"")
    n = m-gs.length
    output.show(gs1 & n)
 Loop

学习收藏!