Foxtable(狐表)用户栏目专家坐堂 → [求助]我想问下如何能快速判断一个字符串里面分别有几个


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

主题:[求助]我想问下如何能快速判断一个字符串里面分别有几个

帅哥,在线噢!
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/10/17 16:39:00 [显示全部帖子]

Dim str As String = "aaaaaabbbbccddaaaabbdcddb"
Dim dict As new Dictionary(of Char,Integer)
For i As Integer = 0 To str.Length - 1
    If dict.ContainsKey(str(i)) Then
        dict(str(i)) += 1
    Else
        dict.Add(str(i),1)
    End If
Next

For Each k As Char In dict.Keys
    Output.Show(k & ": " & dict(k))
Next

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/10/17 17:39:00 [显示全部帖子]

那要看你的业务逻辑需要怎么处理了。如果仅仅是200W的字符,那没有什么问题。具体问题才能具体解决

 回到顶部
帅哥,在线噢!
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/10/17 17:43:00 [显示全部帖子]

上传例子,说明你的逻辑

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/10/17 18:04:00 [显示全部帖子]


 回到顶部
帅哥,在线噢!
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/10/17 20:51:00 [显示全部帖子]

Dim cjarr() As String = { "a","b","c","d" }
Dim fsarr() As Integer = { 10,8,6,4 }
For Each r As DataRow In DataTables("表A").DataRows
    Dim s As String = ""
    Dim sum As Integer = 0
    Dim sj As String = r("数据")
    Dim len As Integer = sj.Length
    Dim c As Integer = 0
    For i As Integer = 0 To cjarr.Length - 1
        c = len - sj.Replace(cjarr(i),"").Length
        s &= cjarr(i) & c & "个,"
        sum += c * fsarr(i)
    Next
    Output.Show( s & "总分" & sum)
Next

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1(2).table


[此贴子已经被作者于2016/10/18 8:23:49编辑过]

 回到顶部