主题：怎样取得字符串中 相同字符的个数

aaa2bbbawwwbb22 
a 4个
2 3个
b 5个
w 3个

留个你们练习，我打分。

相信楼主能解决.

我只能找到第一个字符的个数
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

呵呵,这个思路不对

第一次的测试啊～   对我来说太复杂了，～ 能给思路就好了

结合Replace和Length及IndexOf

今晚要去打球了，明儿再试了～ 谢谢don老师。

以下运行通过
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

学习收藏!