以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  [求助]计数  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=157334)

--  作者：天一生水 --  发布时间：2020/10/12 16:57:00 --  [求助]计数 老师好！ 怎样获取不同字符串出现的次数？ 谢谢！ Dim Value As String = "AA|B|AA|DD|C|C|AA" Dim Names() As String  = Value.Split("|") For Each name As String In Names Next ------------- 结果为： AA,2 B,1 DD,1 C,2

--  作者：有点蓝 --  发布时间：2020/10/12 17:08:00 --   Dim Value As String = "AA|B|AA|DD|C|C|AA" Dim Names() As String  = Value.Split("|") Dim dd As new Dictionary(of String,Integer) For Each name As String In Names     If dd.ContainsKey(name) Then         dd(name) +=1     Else         dd.Add(name, 1)     End If Next