Zählen Vorkommen von Strings in einem Array

Question

Ich bin im Grunde das Einfügen von einem anderen Forum, wo ich sah, fragte (mit niemandem zu antworten). Es ist im Wesentlichen genau die gleiche Sache, die ich versuche zu tun:

In ASP classic, gibt es eine Möglichkeit, die Anzahl der Male, die eine Zeichenfolge in einem Array von Zeichenfolgen angezeigt wird und sie basierend auf Zeichenfolge und Anzahl der Vorkommen zu zählen?

Zum Beispiel, wenn I eine Anordnung haben, die die folgende enthält:
Hallo
glücklich
Hallo
Hallo
Test
Hallo
Test wäre
glücklich

Der Ausgang:

hallo 4
glücklich 2
Test 1
Prüfung 1

Dank!

Answer 1

Ich nehme an, die Sprache ist VBScript (da das ist, was die meisten Leute mit klassischen ASP verwenden).

können Sie ein Dictionary-Objekt verwenden, den Überblick über die einzelnen zählt zu halten:

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