arrays - 计算数组中字符串的出现次数

Question

我基本上是从另一个论坛粘贴这个我看到它被问到（没有人回答）。这基本上与我试图做的事情完全相同：

在 ASP 经典中，有没有办法计算字符串在字符串数组中出现的次数并根据字符串和出现次数输出？

例如，如果我有一个包含以下内容的数组：
你好
快乐
你好
你好
测试
你好
测试
快乐

输出将是：

你好 4
快乐 2
测试 1
测试 1

谢谢！

Answer 1

我假设语言是 VBScript（因为这是大多数人使用经典 ASP 的语言）。

您可以使用Dictionary对象来跟踪各个计数：

Function CountValues(pArray)
    Dim i, item
    Dim dictCounts
    Set dictCounts = Server.CreateObject("Scripting.Dictionary")

    For i = LBound(pArray) To UBound(pArray)
        item = pArray(i)
        If Not dictCounts.Exists(item) Then
            dictCounts.Add item, 0
        End If
        dictCounts.Item(item) = dictCounts.Item(item) + 1
    Next

    Set CountValues = dictCounts
End Function