VBA 中可以使用Array.Sort()方法吗？

jackyun

原帖由 lb_bn 于 2010-7-29 01:05 发表
睡不着，写个代码Sub bbb()
    Dim x&, y&, str1$, ar1()
   
    ar1 = [a1].Resize([a65536].End(3).Row, 3).Value
   
    x = UBound(ar1) - 1
    y = UBound(ar1, 2) - 1
    Set js = CreateObj ...

1. 在JavaScript中没有二维数组的概念
   
2. 
   
3. 在编写WebClinet端脚本时有时需要用到数组进行操作，javascript中声明数组的语法为
   
4. 
   
5. Dim 变量 = new Array();
   
6. 
   
7. 需要注意的是，在javascript中没有二维数组的概念，只有一维。
   
8. 
   
9. 例：
   
10. 
    
11. 一维数组生成、赋值、显示方法
    
12. function GetArray()
    
13. {
    
14.     var arr = new Array();
    
15.     arr[0] = "0";
    
16.     arr[1] = "1";
    
17.    
    
18.     for(i=0;i<arr.length;i++)
    
19.     {
    
20.         alert(arr[i]);
    
21.     }
    
22. }
    
23. 
    
24. // 二维数组生成、赋值、显示方法（此方法错误）
    
25. function Get2DArray()
    
26. {
    
27.     alert('此种声明、赋值、显示二维数组方法不合法');
    
28.     var arr = new Array();
    
29.     //int[][] arr = new Array();这种写法根本不成立，不符合javascript语法，这样写会导致整个页面的javascript脚本都不能执行
    
30.     arr[0][0] = 1;
    
31.     arr[0][1] = 2;
    
32.     arr[1][0] = 3;
    
33.     arr[1][1] = 4;
    
34.    
    
35.     for(i=0; i<arr.length;i++)
    
36.     {
    
37.         for(j=0; j<arr[i].length;j++)
    
38.         {
    
39.             alert(arr[i][j]);
    
40.         }
    
41.     }
    
42. }
    
43. 
    
44. 这样的写法是声明数组的普遍方法（在其他语言中，尤其是被注释掉的那种写法），但事实证明这样的写法是不合法的，进一步说明javascript中没有对二维数组的定义。
    
45. 
    
46. 想起一句老话“只有想不到，没有做不到，凡是都有解决方法”。
    
47. 
    
48. 一个变通的方法，给一维数组的每个元素复制，其值也是一个一维数组。
    
49. 
    
50. // 二维数组生成、赋值、显示方法（变通方法）
    
51. function Get2DArray2()
    
52. {
    
53.     var arr = new Array();
    
54.     arr[0] = new Array();
    
55.     arr[1] = new Array();
    
56.    
    
57.     arr[0][0] = "00";
    
58.     arr[0][1]="01";
    
59.     arr[1][0]="10";
    
60.     arr[1][1]="11";
    
61.    
    
62.     for(i=0; i<arr.length;i++)
    
63.     {
    
64.         for(j=0; j<arr[i].length;j++)
    
65.         {
    
66.             alert(arr[i][j]);
    
67.         }
    
68.     }
    
69. }
    
70. 
    

复制代码

针对7楼的问题，不知道本楼参考有没有用，摆渡的。

[ 本帖最后由 jackyun 于 2010-7-29 11:27 编辑 ]

lb_bn

1. Sub bbb()
   
2.     Dim x&, y&, str1$, ar1
   
3.    
   
4.     ar1 = [a2:d5] ' [a1].Resize([a65536].End(3).Row, 3).Value
   
5.    
   
6.     x = UBound(ar1) - 1
   
7.     y = UBound(ar1, 2) - 1
   
8.     Set js = CreateObject("scriptcontrol")
   
9.     js.Language = "javascript"
   
10. 
    
11.     str1 = "function aa(bb){var cc=new Array();aa=bb.toArray();for(i=0;i<=" & x & ";i++){cc[i]=new Array();for(j=0;j<=" & y & ";j++){cc[i][j]=aa[" & x + 1 & "*j+i];}}return cc.sort(function(x, y){a=new String(x[0]);b=new String(x[1]);return (x[1]==y[1])?(a.localeCompare(y[0])):(b.localeCompare(y[1]))});}"
    
12.     js.AddCode str1
    
13.     brr = Split(js.codeobject.aa(ar1), ",")
    
14.     For i = 1 To x + 1
    
15.         For j = 1 To y + 1
    
16.             ar1(i, j) = brr(j + (i - 1) * (y + 1) - 1)
    
17.         Next
    
18.     Next
    
19.    
    
20.     [a10].Resize(x + 1, y + 1).Value = ar1
    
21.    
    
22. End Sub
    

复制代码

jackyun

原帖由 lb_bn 于 2010-7-29 11:46 发表
Sub bbb()
    Dim x&, y&, str1$, ar1
   
    ar1 = [a2:d5] ' [a1].Resize([a65536].End(3).Row, 3).Value
   
    x = UBound(ar1) - 1
    y = UBound(ar1, 2) - 1
    Set js = CreateObject("script ...

呵呵，看样子JavaScript的sort不能直接得到二维数组了...
你的解题想法和我想的一块去了，用循环得到排序后的数组。

1. Sub bbb()
   
2.     Dim x&, y&, str1$, ar1, brr, crr, i%, j%
   
3.    
   
4.     ar1 = [a2:d5] ' [a1].Resize([a65536].End(3).Row, 3).Value
   
5.    
   
6.     x = UBound(ar1) - 1
   
7.     y = UBound(ar1, 2) - 1
   
8.     Set js = CreateObject("scriptcontrol")
   
9.     js.Language = "javascript"
   
10.     '按数字排序
    
11.     'str1 = "function aa(bb){var cc=new Array();aa=bb.toArray();for(i=0;i<=" & x & ";i++){cc[i]=new Array();for(j=0;j<=" & y & ";j++){cc[i][j]=aa[" & x + 1 & "*j+i];}}return cc.sort(function(x, y){return (x[1]==y[1])?(x[0]-y[0]):(x[1]-y[1])});}"
    
12.     '按字符排序
    
13.     str1 = "function aa(bb){var cc=new Array();aa=bb.toArray();for(i=0;i<=" & x & ";i++){cc[i]=new Array();for(j=0;j<=" & y & ";j++){cc[i][j]=aa[" & x + 1 & "*j+i];}}return cc.sort(function(x, y){a=new String(x[0]);b=new String(x[1]);return (x[1]==y[1])?(a.localeCompare(y[0])):(b.localeCompare(y[1]))});}"
    
14.     js.AddCode str1
    
15.     brr = Split(js.codeobject.aa(ar1), ",")
    
16.    
    
17.     ReDim crr(1 To UBound(ar1), 1 To UBound(ar1, 2))
    
18.    
    
19.     For i = 0 To UBound(brr) Step 4
    
20.        For j = 1 To 4
    
21.         crr(i / 4 + 1, j) = brr(i + j - 1)
    
22.        Next
    
23.     Next
    
24.     [g2].Resize(UBound(crr), UBound(crr, 2)) = crr
    
25. 
    
26. End Sub

复制代码

另外再请教一下，如果以第4列为关键字排序，str1 该怎么该，JavaScript的语法有点看不懂，不知道该怎么改。
非常感谢

[ 本帖最后由 jackyun 于 2010-7-29 12:40 编辑 ]

jackyun

原帖由 alzeng 于 2010-7-29 11:31 发表

RecordSet的容量有多大，不用多言；问题是Application.Transpose的能力有限，但通过其他方法可以避免这个应用上的缺陷。

RecordSet的容量应该是很大的。

getrows 取值的容量好像有限制，不能太大，网上查到的大致都是这个说法，如下面的

GetRows 方法通常比一次读一笔记录的回圈要来得快些，但使用这方法时，必须确定Recordset未包含太多记录；否则，会很容易以一个非常大的变数阵列来填满所有记忆体。基於相同的原因，得小心不要包括任何BLOB（Binary Large Object）或CLOB（Character Large Object）栏位；若如此做的化，应用程式一定会爆掉，特别是对於较大的Recordset而言。最后，记住此方法传回的变数阵列是以0为基底的；传回记录的笔数是UBound(values,2)+1，传回栏位数是UBound(value, 1)+1。

Application.Transpose的能力有限，但通过其他方法可以避免这个应用上的缺陷

怎么避免呢？用循环？这个一念兄能否指点一下吗? 有什么好方法共享一下，学习学习。

lb_bn

1. Sub bbb()
   
2.     Dim x&, y&, str1$, ar1
   
3.    
   
4.     ar1 = [a2:d5] ' [a1].Resize([a65536].End(3).Row, 3).Value
   
5.    
   
6.     x = UBound(ar1) - 1
   
7.     y = UBound(ar1, 2) - 1
   
8.     Set js = CreateObject("scriptcontrol")
   
9.     js.Language = "javascript"
   
10. 
    
11.     str1 = "function aa(bb){var cc=new Array();aa=bb.toArray();for(i=0;i<=" & x & ";i++){cc[i]=new Array();for(j=0;j<=" & y & ";j++){cc[i][j]=aa[" & x + 1 & "*j+i];}}return cc.sort(function(x, y){a=new String(x[0]);b=new String(x[3]);return (x[3]==y[3])?(a.localeCompare(y[0])):(b.localeCompare(y[3]))});}"
    
12.     js.AddCode str1
    
13.     brr = Split(js.codeobject.aa(ar1), ",")
    
14.     For i = 1 To x + 1
    
15.         For j = 1 To y + 1
    
16.             ar1(i, j) = brr(j + (i - 1) * (y + 1) - 1)
    
17.         Next
    
18.     Next
    
19.    
    
20.     [a10].Resize(x + 1, y + 1).Value = ar1
    
21.    
    
22. End Sub

复制代码

jackyun

原帖由 lb_bn 于 2010-7-29 12:44 发表
Sub bbb()
    Dim x&, y&, str1$, ar1
   
    ar1 = [a2:d5] ' [a1].Resize([a65536].End(3).Row, 3).Value
   
    x = UBound(ar1) - 1
    y = UBound(ar1, 2) - 1
    Set js = CreateObject("script ...

多谢多谢，这下明白了，lb_bn兄牛人啊，呵呵，非常感谢lb_bn兄热心帮助，学习了。

Qinqinjiang

记号，以后消化

bluexuemei

向大师们学习！

LIUZHU

lb_bn 发表于 2010-5-6 15:37
不可以但可以调用javascript的sort方法

可以告诉我sort方法排序时，参数是怎样工作的吗？

PurpleIdea

留言收藏，向大佬学习！