首页
学习
活动
专区
工具
TVP
发布
精选内容/技术社群/优惠产品,尽在小程序
立即前往

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

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

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

下面是一个示例代码:

代码语言:txt
复制
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"],输出结果为:

代码语言:txt
复制
A: 3
B: 2
C: 1
D: 1

这个方法可以用于统计数组中各个元素的出现次数,并返回具有唯一计数的数组列表。

腾讯云相关产品和产品介绍链接地址:

请注意,以上链接仅供参考,具体产品选择应根据实际需求进行评估和决策。

页面内容是否对你有帮助?
有帮助
没帮助

相关·内容

16分8秒

人工智能新途-用路由器集群模仿神经元集群

领券