标签：排序算法

Scripting.Dictionary字典对象按键名Key进行冒泡排序

最近加班比较多，代码写得有点乱，结果今天出现了个低级错误，原本想把Scripting.Dictionary对象的Item按照指定fnCompare函数作用的Key字段排序，原本以为很简单，于是就拿了个普通的冒泡排序就用了起来，结果问题就出现了，这里有问题的代码如下：

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45

Option Explicit
 
Function fnCompare(key1, key2)
 If CInt(key1)>CInt(key2) Then
   fnCompare = 1
 ElseIf CInt(key1)<CInt(key2) Then
  fnCompare = -1
 Else
  fnCompare = 0
 End If
End Function
 
Function Sort(dict)
  Dim i,j, temp
  Dim keys,items
 
  For i = 0 To  dict.Count-1
    For j = i+1 To dict.Count - 1
	  keys = dict.Keys
	  items = dict.Items
      If fnCompare(keys(i), keys(j))>0 Then
        ' 交换Item项目
        temp = items(i)
        dict.Item(keys(i)) = items(j)
        dict.Item(keys(j)) = temp        
        ' 交换Key键名
        temp = keys(i)
        dict.Key(keys(i)) = keys(j)
        dict.Key(keys(j)) = temp
      End If
    Next
  Next
End Function
 
Sub VBMain()
  Dim dict
  Set dict = WSH.CreateObject("Scripting.Dictionary")
    dict.Add "2", "a"
    dict.Add "8", "b"
    dict.Add "1", "c"
    Sort dict
  Set dict = Nothing
End Sub
 
Call VBMain()

貌似这样看上去很正常，算法没有什么问题，交换Item后交换Key，貌似也没有问题，但是偏偏运行时出现了下面这个错误框。

继续阅读“Scripting.Dictionary字典对象按键名Key进行冒泡排序”