배열의 문자열 카운팅

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