如何在VBScript中返回具有唯一计数的数组列表

Function GetUniqueCountArray(inputArray)
    Dim uniqueArray()
    ReDim uniqueArray(-1)
    
    For Each element In inputArray
        Dim found
        found = False
        
        For i = 0 To UBound(uniqueArray)
            If uniqueArray(i)(0) = element Then
                uniqueArray(i)(1) = uniqueArray(i)(1) + 1
                found = True
                Exit For
            End If
        Next
        
        If Not found Then
            ReDim Preserve uniqueArray(UBound(uniqueArray) + 1)
            uniqueArray(UBound(uniqueArray)) = Array(element, 1)
        End If
    Next
    
    ReDim Preserve uniqueArray(UBound(uniqueArray) - 1)
    GetUniqueCountArray = uniqueArray
End Function

' 示例用法
Dim inputArray
inputArray = Array("A", "B", "A", "C", "B", "A", "D")

Dim resultArray
resultArray = GetUniqueCountArray(inputArray)

For Each item In resultArray
    WScript.Echo item(0) & ": " & item(1)
Next

A: 3
B: 2
C: 1
D: 1