给vba插上翅膀，---在VBA中使用RUBY

蓝桥玄霜

32楼代码中只有一个25，搜索答案正确。但是如果有2个25，则只能得到第一个，代码应该如何修改？
Sub ruby2()
Set x = CreateObject("scriptcontrol")
x.Language = "rubyscript"
x.eval "a= [[1,25], [2,25], [3,35]]"
y = x.eval("a.rassoc(25)")
MsgBox Join(y, ",")
End Sub

figfig

Sub ruby2()
Set x = CreateObject("scriptcontrol")
x.Language = "rubyscript"
x.eval "a= [[1,25], [2,25], [3,35]]"
y = x.eval("a.find_all{|x| x[1]==25}")

'返回2维数组
MsgBox y(0, 1)
End Sub

figfig

Sub ruby2()

'一维数组根据条件拆成2部分,满足条件部分和不满足条件部分
Set x = CreateObject("scriptcontrol")
x.Language = "rubyscript"
y = x.eval("[10, 9, 8, 7, 6, 5, 4, 3, 2, 1, 0].partition { |i| i % 3 == 0 }")
Stop
'在本地窗口查看Y
End Sub

figfig

Sub ruby2()

'几个一维数组根据循序组合成2维数组
Set x = CreateObject("scriptcontrol")
x.Language = "rubyscript"
y = x.eval("[1,2,3].zip([4,5,6], [7,8,9])")
Stop
'在本地窗口查看Y
End Sub

figfig

Sub ruby2()

'根据长度排序
Set x = CreateObject("scriptcontrol")
x.Language = "rubyscript"
y = x.eval("['aa','nnnnn','jk'].sort_by {|x| x.length}")
MsgBox Join(y, ",")
End Sub

figfig

Sub ruby2()

'对数组进行正则匹配,返回符合条件数组,如本例查找有数字的数组
Set x = CreateObject("scriptcontrol")
x.Language = "rubyscript"
y = x.eval("['aa1','nnnnn2','jk'].grep(/\d+/)")
MsgBox Join(y, ",")
End Sub

figfig

Sub ruby2()

'数组也有RANGE,如本例取前面2个,也可以用LAST
Set x = CreateObject("scriptcontrol")
x.Language = "rubyscript"
y = x.eval("['aa1','nnnnn2','jk'].first(2)")
MsgBox Join(y, ",")
End Sub

figfig

Sub ruby2()

'数组也能TRANSPOSE横竖转换
Set x = CreateObject("scriptcontrol")
x.Language = "rubyscript"
y = x.eval("[[1,2], [3,4],[5,6]].transpose")
Stop
'在本地窗口查看
End Sub

figfig

Sub ruby2()

'查找C盘下所有包含a字母文件,返回数组
Set x = CreateObject("scriptcontrol")
x.Language = "rubyscript"
y = x.eval("Dir.glob('c:/*a*')")

MsgBox Join(y, vbCrLf)

End Sub

figfig

Sub ruby2()

'正则替换
Set x = CreateObject("scriptcontrol")
x.Language = "rubyscript"
Y = x.eval("str = 'Copyright 2001 by TAKEUCHI Hitoshi.'.sub(/[A-Za-z]*right/, 'Copyleft')")

MsgBox Y

End Sub