JScript 字符串数组另类排序

ldy

1. 
   
2. Function sortarr(arr)
   
3.     Dim s As String
   
4.     Static sp1 As Object
   
5.     If sp1 Is Nothing Then
   
6.         s = s & "function Sortarr(arr)" & vbCrLf
   
7.         s = s & "{" & vbCrLf
   
8.         s = s & "var a, b ;" & vbCrLf
   
9.         s = s & "a = arr.toArray();" & vbCrLf
   
10.         s = s & "b = a.sort();" & vbCrLf
    
11.         s = s & "return(b);" & vbCrLf
    
12.         s = s & "}"
    
13.         Set sp1 = CreateObject("ScriptControl")
    
14.         sp1.Language = "JScript"
    
15.         sp1.AddCode s
    
16.     End If
    
17.     sortarr = Split(sp1.Run("Sortarr", arr), ",")
    
18. End Function
    
19. 
    
20. 
    
21. Sub Mytest()
    
22. 'aa = [a1:a60000] ' 60000个约0.5秒
    
23.     aa = Array("张", "王", "李", "赵", "钱", "孙", "周", "吴", "郑", "王")
    
24.     t = Timer
    
25.     aa = sortarr(aa)
    
26.     Debug.Print Timer - t
    
27.     '排序结果  吴,周,孙,张,李,王,王,赵,郑,钱
    
28.     '说明 排序结果与EXCEL的不同，这个方法的是按照ASC码排序的
    
29. End Sub
    

复制代码

彭希仁

学习了.你这方法够高效的

wudixin96

JS的SORT方法可以不只这么点哦。

fdd

很高深哟！但很经典。学习，暂时不懂。

ldy

原帖由 wudixin96 于 2009-2-14 09:49 发表
JS的SORT方法可以不只这么点哦。

JS 纯属初学乍练，大概知道 VBS 像 ＶＢ　ＪＳ　像　ＶＣ，

   用 b = a.sort().reverse() 可以实现倒序排列，没学过VC，其他就不知道了。

通过 JS 可以把 VC中的一些高效实用的方法 引入到VBA中。

吴兄（呵呵猜得）如果懂 JS或 VC，弄点例子来学学。

Flush

~~~~~~~学习

ldy

1. 
   
2. Function sortarr(arr)
   
3.     Dim s As String
   
4.     Static sp1 As Object
   
5.   ' s = "function sortarr(arr){return(arr.toArray().sort().reverse());}" '倒序
   
6.     s = "function sortarr(arr){return(arr.toArray().sort());}"    '顺序
   
7.     If sp1 Is Nothing Then
   
8.         Set sp1 = CreateObject("ScriptControl")
   
9.         sp1.Language = "JScript"
   
10.     End If
    
11.     sp1.AddCode s
    
12.     sortarr = Split(sp1.Run("sortarr", arr), ",")
    
13. End Function
    

复制代码

coby001

'排序结果  吴,周,孙,张,李,王,王,赵,郑,钱
    '说明 排序结果与EXCEL的不同，这个方法的是按照ASC码排序的
--------------------------------------- -----------------------------------------------
请问楼主大大，在你的代码里没看见有转换字符到编码的语句啊？
汉字在ASCII里有编码吗？是不是 Unicode 啊？
不懂阿，特来请教

ldy

JS中的sort方法 就是按照ASCII码排序

print asc("好")
-17725
print chr(-17725 )
好

coby001

我搜了一下 JavaScript String 对象参考手册 ，只发现有2个比较接近
哪里有更全面点的啊？？？

charAt()                         返回在指定位置的字符。
charCodeAt()              返回在指定的位置的字符的 Unicode 编码。