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

jackyun · 发表于 2010-7-29 11:26

原帖由 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 ...

在JavaScript中没有二维数组的概念
在编写WebClinet端脚本时有时需要用到数组进行操作，javascript中声明数组的语法为
Dim 变量 = new Array();
需要注意的是，在javascript中没有二维数组的概念，只有一维。
例：
一维数组生成、赋值、显示方法
function GetArray()
{
var arr = new Array();
arr[0] = "0";
arr[1] = "1";
for(i=0;i<arr.length;i++)
{
alert(arr[i]);
}
}
// 二维数组生成、赋值、显示方法（此方法错误）
function Get2DArray()
{
alert('此种声明、赋值、显示二维数组方法不合法');
var arr = new Array();
//int[][] arr = new Array();这种写法根本不成立，不符合javascript语法，这样写会导致整个页面的javascript脚本都不能执行
arr[0][0] = 1;
arr[0][1] = 2;
arr[1][0] = 3;
arr[1][1] = 4;
for(i=0; i<arr.length;i++)
{
for(j=0; j<arr[i].length;j++)
{
alert(arr[i][j]);
}
}
}
这样的写法是声明数组的普遍方法（在其他语言中，尤其是被注释掉的那种写法），但事实证明这样的写法是不合法的，进一步说明javascript中没有对二维数组的定义。
想起一句老话“只有想不到，没有做不到，凡是都有解决方法”。
一个变通的方法，给一维数组的每个元素复制，其值也是一个一维数组。
// 二维数组生成、赋值、显示方法（变通方法）
function Get2DArray2()
{
var arr = new Array();
arr[0] = new Array();
arr[1] = new Array();
arr[0][0] = "00";
arr[0][1]="01";
arr[1][0]="10";
arr[1][1]="11";
for(i=0; i<arr.length;i++)
{
for(j=0; j<arr[i].length;j++)
{
alert(arr[i][j]);
}
}
}

复制代码

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

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

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("scriptcontrol")
js.Language = "javascript"
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]))});}"
js.AddCode str1
brr = Split(js.codeobject.aa(ar1), ",")
For i = 1 To x + 1
For j = 1 To y + 1
ar1(i, j) = brr(j + (i - 1) * (y + 1) - 1)
Next
Next
[a10].Resize(x + 1, y + 1).Value = ar1
End Sub

复制代码

jackyun · 发表于 2010-7-29 12:30

原帖由 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不能直接得到二维数组了...
你的解题想法和我想的一块去了，用循环得到排序后的数组。

Sub bbb()
Dim x&, y&, str1$, ar1, brr, crr, i%, j%
ar1 = [a2:d5] ' [a1].Resize([a65536].End(3).Row, 3).Value
x = UBound(ar1) - 1
y = UBound(ar1, 2) - 1
Set js = CreateObject("scriptcontrol")
js.Language = "javascript"
'按数字排序
'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])});}"
'按字符排序
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]))});}"
js.AddCode str1
brr = Split(js.codeobject.aa(ar1), ",")
ReDim crr(1 To UBound(ar1), 1 To UBound(ar1, 2))
For i = 0 To UBound(brr) Step 4
For j = 1 To 4
crr(i / 4 + 1, j) = brr(i + j - 1)
Next
Next
[g2].Resize(UBound(crr), UBound(crr, 2)) = crr
End Sub

复制代码

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

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

jackyun · 发表于 2010-7-29 12:38

原帖由 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 · 发表于 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("scriptcontrol")
js.Language = "javascript"
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]))});}"
js.AddCode str1
brr = Split(js.codeobject.aa(ar1), ",")
For i = 1 To x + 1
For j = 1 To y + 1
ar1(i, j) = brr(j + (i - 1) * (y + 1) - 1)
Next
Next
[a10].Resize(x + 1, y + 1).Value = ar1
End Sub

复制代码

jackyun · 发表于 2010-7-29 13:32

原帖由 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 · 发表于 2011-1-25 15:07

记号，以后消化

bluexuemei · 发表于 2012-3-28 10:46

向大师们学习！

LIUZHU · 发表于 2017-6-12 11:30

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

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

PurpleIdea · 发表于 2024-9-23 09:44

留言收藏，向大佬学习！

		自动登录	找回密码
密码			免费注册

[求助] VBA 中可以使用Array.Sort()方法吗？

回复 13楼 jackyun 的帖子