在一个数组中计数字符串的出现

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