使用ADO对数组排序

leolee82

网上看到的，代码如下，比自己常用的慢5-10倍，效率还是不错的。二维数组排序没测试应该也差不多是这水平，自己的一二维数组排序是同样思路实现的，都是先得到排序后的index再调整数组。用ADO操作主要是简单通用，还能进行筛选等SQL操作。

1. '* ************************************** *
   
2. '* 模块名称：modSort.bas
   
3. '* 模块功能：使用ADO实现数组排序
   
4. '* 作者：http://blog.csdn.net/lyserver
   
5. '* ************************************** *
   
6. Sub main()
   
7.     Dim pstr As String
   
8.    
   
9.     pstr = "4aaaa/5.1hhhhhh/1.2pppppp/4.1ttttttt/5.2dddddddd"
   
10.     Dim t As Long
    
11.    
    
12.     Dim v As Variant, v_array As Variant, rs As Object
    
13.     v_array = CreateObject("EXDIY.f").GenRandomStrArray(10, 20, 100000)'生成10-20长度随机字符串10万个
    
14.     t = Timer
    
15.     CreateObject("EXDIY.f").Array1D_SortByIndex (v_array)
    
16.     Debug.Print Timer - t
    
17.    
    
18.     t = Timer
    
19.     Set rs = CreateObject("ADODB.Recordset")
    
20.     rs.Fields.Append "zd1", 129, 100
    
21.     rs.Open
    
22.     For Each v In v_array
    
23.         rs.AddNew "zd1", v
    
24.     Next
    
25.    
    
26.     rs.Sort = "zd1 ASC"
    
27.     rs.MoveFirst
    
28. '    Do While Not rs.EOF
    
29. '        'Debug.Print rs.AbsolutePosition, , rs!zd1
    
30. '        rs.MoveNext
    
31. '    Loop
    
32.     'arr = rs.getrows
    
33.     rs.Close
    
34.     Debug.Print Timer - t
    
35. End Sub
    

复制代码