以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  如何提取字符串中重复次数最多的元素  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=110449)

--  作者：xujie80 --  发布时间：2017/12/3 15:21:00 --  如何提取字符串中重复次数最多的元素 有一字条串，值为"aaabfffcccccjjjjjjjhhyz", 如何提取其中重复最多的“jjjjjjj”？

--  作者：y2287958 --  发布时间：2017/12/3 19:40:00 --   用集合或字典

--  作者：有点甜 --  发布时间：2017/12/3 23:32:00 --   Dim str As String = "aaabfffcccccjjjjjjjhhyz" Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "(.)\\1+") Dim max As Integer = 0 Dim ns As String = "" For i As Integer = 0 To mc.count-1     Dim s As String = mc(i).value     If s.length > max Then         max = s.length         ns = s     End If Next msgbox(ns)

--  作者：xujie80 --  发布时间：2017/12/5 15:15:00 --   谢谢甜老师

--  作者：诚学思行 --  发布时间：2019/4/25 16:45:00 --   这个正则表达式是什么意思？起什么作用？

--  作者：有点蓝 --  发布时间：2019/4/25 17:03:00 --   按重复的字符分隔字符串