以文本方式查看主题 -  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=130133)

--  作者：99473593 --  发布时间：2019/1/14 11:57:00 --  求教：如何统计一段文本中，指定字符串出现的次数 比如我有这样一段文本，“中华人民共和国，中华民族，” ，我要统计其中字符串“中华”出现的次数，该怎么做。好像只能统计单个字符出现次数，统计不了字符串，请老大帮忙看下，在线等，拜托拜托！！！

--  作者：有点甜 --  发布时间：2019/1/14 12:16:00 --   Dim str As String = "中华中华人民共和国,中华民族" Dim s As String = "中华" Dim i As Integer = str.IndexOf(s) Dim count As Integer = 0 Do While i >= 0     count += 1     str = str.SubString(i+s.length)     i = str.IndexOf(s) Loop msgbox(count)

--  作者：99473593 --  发布时间：2019/1/14 12:28:00 --   谢谢，老大