JScript 字符串数组另类排序

彭希仁 · 发表于 2009-2-14 17:46

如果借助ListView1也可以实现,不过效率比LDY版主的要低些

t = Timer
Z = Cells(65536, 1).End(xlUp).Row
arr = Application.Transpose(Range("A1:A" & Z))
For i = 1 To Z
      Set ITM = ListView1.ListItems.Add()
      ITM.Text = "" & arr(i)
Next i
Set ITM = Nothing
For i = 1 To Z
   arr(i) = ListView1.ListItems(i)
Next i
Range("A1:A" & Z) = Application.Transpose(arr)
MsgBox Timer - t

coby001 · 发表于 2009-2-14 21:08

原帖由 ldy 于 2009-2-14 16:04 发表
JS中的sort方法就是按照ASCII码排序

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

严重怀疑版主以上几句是来自 VBScript

我找了半天 JS 的，都没有相同的

ldy · 发表于 2009-2-14 21:24

这是VBA 立即窗口的结果

你问的是汉字在ASCII里有编码吗？
所以我这样回答。

JS不熟，对应的函数不了解

coby001 · 发表于 2009-2-14 22:12

原来如此啊

zhyj_88 · 发表于 2012-2-19 10:33

不知ScriptCtrol的引用库名标题是那一个,在VB中没有找到.

qqdtst · 发表于 2012-6-19 17:36

需要引用ScriptCtrol?

风云际会6 · 发表于 2012-6-19 18:29

.你这方法够高效的

tzgwh · 发表于 2013-3-13 14:26

太好了，下好要用到这个数组排序。

Zamyi · 发表于 2013-3-13 16:18

按ASC值升序排出应该是：＂李钱孙王王吴张赵郑周＂吧？
再说VBA的效率未必会比它低。

Zamyi · 发表于 2013-3-13 17:37

本帖最后由 Zamyi 于 2013-3-13 17:48 编辑

RE: JScript 字符串数组另类排序
真没看懂按什么排序,ASC或ASCW都不是，速度比VBA还慢。

排序.rar (107.37 KB, 下载次数: 58)

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

[原创] JScript 字符串数组另类排序

评分