重复数据统计 - 编程论坛

风吹过b2020-12-31 16:43

先确认数据范围，
如果范围比较小，那么直接建立一个包含所有的可能的数组，
循环这个数组，比较，等于哪个值，那么这个值所代表的计数+1.最后输出结果：所有非零的计数。

如果范围比较大，那么建立一个与这个数组元素个数相同的二维数组，或结构体的一维数组
一个保存值，一个保存计数。
循环这个数组，与保存值进行比较，找到，计数+1，
如果最终没找到，那么在未启用的数组元素中保存值，同时计数+1.
输出结果，对启用元素进行输出。

或与非12021-03-04 23:25

程序代码：

Private Function strCount(strA As String, strB As String) As Long   '统计字符串出现的次数
    Dim lngA As Long
    Dim lngB As Long
    Dim lngC As Long
    lngA = Len(strA)
    lngB = Len(strB)
    lngC = Len(Replace$(strA, strB, ""))
    strCount = (lngA - lngC) / lngB
End Function

这是网页采集时用到的字符串统计函数，可能无法实现您的需求啊。

[此贴子已经被作者于2021-3-4 23:31编辑过]