Foxtable(狐表)用户栏目专家坐堂 → 怎样取得字符串中 相同字符的个数


  共有22371人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
kylin
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 F6
等级:狐精 帖子:3036 积分:19229 威望:0 精华:2 注册:2008/9/1 7:50:00
  发帖心情 Post By: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

 回到顶部
帅哥哟,离线,有人找我吗?
kylin
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 F6
等级:狐精 帖子:3036 积分:19229 威望:0 精华:2 注册:2008/9/1 7:50:00
  发帖心情 Post By:2009/5/19 9:48:00 [显示全部帖子]

以下是引用狐狸爸爸在2009-5-19 8:04:00的发言:
kylin兄这段代码的水平不是一般的高,初次接触代码,居然能这么利害,佩服佩服。


图片点击可在新窗口打开查看
[此贴子已经被作者于2009-5-19 8:08:58编辑过]

过奖了,偶然的,呵呵

[此贴子已经被作者于2009-5-19 9:48:14编辑过]

 回到顶部