0

私は基本的に、それが尋ねられたのを見た別のフォーラムからこれを貼り付けています（誰も答えていません）。それは本質的に私がやろうとしていることとまったく同じです:

ASPクラシックで、文字列の配列に文字列が出現する回数をカウントし、文字列と出現回数に基づいて出力する方法はありますか?

たとえば、次を含む配列があるとします:
hello
happy
hello
hello
testing
hello
test
happy

出力は次のようになります。

こんにちは 4
ハッピー 2
テスト 1
テスト 1

ありがとう！

4

1 に答える 1

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
于 2012-04-14T19:25:29.473 に答える