Подсчет строк строк в массиве

Question

Я в основном вставляю это с другого форума, где я его видел (никто не отвечал). Это, по сути, то же самое, что я пытаюсь сделать:

В ASP classic существует ли способ подсчета количества строк, появляющихся в массиве строк, и вывода их на основе количества строк и совпадений?

Например, если у меня есть массив, который содержит следующее:
привета
счастливого
привета
привета
тестирования
привет
теста
счастливого

Выхода будет:

привет 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