在VBA中使用JAVASCRIPT和VBSCRIPT（1）

byte001

大家好。很高兴见到大家。

[ 本帖最后由 byte001 于 2010-7-19 16:17 编辑 ]

jackyun

原帖由 figfig 于 2009-9-3 00:10 发表
javascript有许多函数和功能可以弥补VBA不足，如正则，数组，类，等等


1)以数组为例，用JAVASCRIPT排序


Sub fig8()
Set x = CreateObject("msscriptcontrol.scriptcontrol")
x.Language = "javascript"
...

这个教程牛，很多实用的功能。感谢figfig大师分享。

另请教：
1)以数组为例，用JAVASCRIPT排序
Sub fig8()
Set x = CreateObject("msscriptcontrol.scriptcontrol")
x.Language = "javascript"
arr = Array("aa", "cc", "bb", "1a")
kk = Join(arr, ",")
x.addcode "function aa(bb){x=bb.split(',');x.sort();return x;}"
cc = x.eval("aa('" & kk & "')")
MsgBox cc
End Sub

这是一维数组的排序，请问如何修改代码才能支持二维数组的排序?
象这样：
arr = [{"aa", "cc"; "bb", "1a";"cc","a2"}]
如何得到以数组第二列为关键字的排序？
这个非常难，不知道javascript支持不支持？
非常感谢

figfig

Sub ruby()
'须安装ACTIVERUBY.才能运行
'下载地址  http://www.artonx.org/data/asr/ActiveRuby.msi


Set x = CreateObject("scriptcontrol")
x.Language = "rubyscript"
arr = [{"aa", "cc"; "bb", "1a";"cc","a2"}]
y = x.eval("def aa aa;bb=aa.sort_by{|x| x[1]};end")

y = x.Run("aa", arr)

Stop
End Sub

jackyun

原帖由 figfig 于 2010-7-28 19:19 发表
Sub ruby()
'须安装ACTIVERUBY.才能运行
'下载地址  http://www.artonx.org/data/asr/ActiveRuby.msi


Set x = CreateObject("scriptcontrol")
x.Language = "rubyscript"
arr = [{"aa", "cc"; "bb", "1a";" ...

多谢figfig大师指点，看来这个ACTIVERUBY的功能很强大，已经在论坛中看到很多大师用ACTIVERUBY回复的精彩案例。

不过还是要请教一下，不然有点不死心，呵呵，Javascript的sort是否也支持象这样的用法？
非常感谢。

figfig

不行 js 好像不支持 vb数组

jackyun

原帖由 figfig 于 2010-7-28 20:02 发表
不行 js 好像不支持 vb数组

多谢指点，这样就不再去研究它了。

livewire

偶尔见识了JAVASRIPT一维数组的强大处理能力，进来学习！
arr1.concat(arr2)  连接arr2 到 arr1末尾
arr.join(seperator)
arr.pop()  删除数组中的最后一个元素并返回该元素
arr.push ([data1,]) 将指定数据添加到数组中
arr.reverse() 反序排列数组中的元素
arr.shift() 删除数组中的第一个元素并返回该元素
arr.slice(start[,end]) 获取数组中的一部分数据
arr.sort 对数组中的元素排序
arr.splice 删除或替换数组中的部分数据
arr.unshift 在数组前面插入数据
arr.tostring 逗号联接

Qinqinjiang

收藏学习，谢谢授讲！

yiyiyicz

好！好！好！
学！学！学！
顶！顶！顶！

在下

收藏学习，谢谢授讲！