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

1楼

mr725 发表于：2009/5/18 16:38:00

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

2楼

狐狸爸爸 发表于：2009/5/18 16:49:00

留个你们练习，我打分。

3楼

don 发表于：2009/5/18 17:07:00

相信楼主能解决.

4楼

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

5楼

don 发表于：2009/5/18 17:15:00

呵呵,这个思路不对

6楼

mr725 发表于：2009/5/18 17:21:00

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

[此贴子已经被作者于2009-5-18 17:21:59编辑过]

7楼

don 发表于：2009/5/18 17:34:00

结合Replace和Length及IndexOf

[此贴子已经被作者于2009-5-18 17:37:55编辑过]

8楼

mr725 发表于：2009/5/18 17:45:00

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

[此贴子已经被作者于2009-5-18 17:45:09编辑过]

9楼

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

10楼

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

学习收藏!

共20 条记录, 每页显示 10 条, 页签: [1] [2]

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

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