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

在VBScript中，可以通过以下步骤返回具有唯一计数的数组列表：

创建一个空数组用于存储唯一计数的元素。
遍历原始数组，对每个元素进行以下操作： a. 检查该元素是否已存在于新数组中。 b. 如果不存在，则将该元素添加到新数组，并将其计数设置为1。 c. 如果已存在，则将该元素的计数加1。
返回新数组。

下面是一个示例代码：

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", "B", "A", "C", "B", "A", "D"]，输出结果为：