给字典排序如何做呢

snowfly1112

请教一下大家，定义了字典

Set ZAD = CreateObject("Scripting.Dictionary")
ZAD 生成了数据

但是 里面包含的数值是2，1，3，9，7

我想给他排序，如何做呢。
排序之后是为了其他的计算。

        ERX = ZAD.keys
        For X = 0 To UBound(ERX)

wangtk1982

Sub RandomDictSort()
    Dim dict As Object
    Set dict = CreateObject("Scripting.Dictionary")
   
    ' 随机生成字典
    dict.Add "key1", "value1"
    dict.Add "key2", "value2"
    dict.Add "key4", "value4"
    dict.Add "key5", "value5"
    dict.Add "key3", "value3"

   
    ' 打印原始字典
    PrintDict dict
   
    ' 按键排序
    SortDictByKey dict
    PrintDict dict
   
    ' 按值排序
    SortDictByValue dict
    PrintDict dict
End Sub

' 打印字典
Sub PrintDict(dict As Object)
    Dim key As Variant
    For Each key In dict.keys
        Debug.Print key & ": " & dict(key)
    Next key
    Debug.Print "----------------------"
End Sub

' 按键排序字典
Sub SortDictByKey(dict As Object)
    Dim keys() As Variant
    Dim key As Variant
    Dim i As Long
   
    ' 获取字典的键
    ReDim keys(0 To dict.Count - 1)
    i = 0
    For Each key In dict.keys
        keys(i) = key
        i = i + 1
    Next key
   
    ' 排序键
    BubbleSort keys
   
    ' 重新构建字典
    Set dict = CreateObject("Scripting.Dictionary")
    For i = LBound(keys) To UBound(keys)
        dict.Add keys(i), "value" & Right$(keys(i), 1)
    Next i
End Sub

' 按值排序字典
Sub SortDictByValue(dict As Object)
    Dim keys() As Variant
    Dim key As Variant
    Dim i As Long
   
    ' 获取字典的键
    ReDim keys(0 To dict.Count - 1)
    i = 0
    For Each key In dict.keys
        keys(i) = key
        i = i + 1
    Next key
   
    ' 排序键
    BubbleSortByValue dict, keys
   
    ' 重新构建字典
    Set dict = CreateObject("Scripting.Dictionary")
    For i = LBound(keys) To UBound(keys)
        dict.Add keys(i), "value" & Right$(keys(i), 1)
    Next i
End Sub

' 冒泡排序算法（按键排序）
Sub BubbleSort(arr() As Variant)
    Dim i As Long
    Dim j As Long
    Dim temp As Variant
   
    For i = LBound(arr) To UBound(arr) - 1
        For j = i + 1 To UBound(arr)
            If arr(i) > arr(j) Then
                temp = arr(j)
                arr(j) = arr(i)
                arr(i) = temp
            End If
        Next j
    Next i
End Sub

' 冒泡排序算法（按值排序）
Sub BubbleSortByValue(dict As Object, arr() As Variant)
    Dim i As Long
    Dim j As Long
    Dim temp As Variant
   
    For i = LBound(arr) To UBound(arr) - 1
        For j = i + 1 To UBound(arr)
            If dict(arr(i)) > dict(arr(j)) Then
                temp = arr(j)
                arr(j) = arr(i)
                arr(i) = temp
            End If
        Next j
    Next i
End Sub

ykcbf1100

你没上附件，那我也发个图片算了。

大致就这个意思，你自己理解一下好了。

micch

既然要排序，那就在生成字典钱排个序再存字典好了

gwjkkkkk

字典赋给数组，数组排序，按序写入字典。。。

morpheus126

都是“字典”了，为什么还要排序