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

figfig

原帖由 3dcapture 于 2010-5-11 21:47 发表
请教大师，下面这段代码用ruby和perl怎样写：
Private Sub Command1_Click()
   ' 创建变量。
   Dim sc, m
   Set sc = CreateObject("ScriptControl")
   sc.Language = "VBScript"
   ' 添加模块。
   Set ...

Private Sub Command1_Click()
   ' 创建变量。
   Dim sc, m
   Set sc = CreateObject("ScriptControl")
   sc.Language = "rubyscript"
   ' 添加模块。
  
   ' 向模块添加代码。
   sc.AddCode "def main() '嗨，你好！' end "
   ' 运行 Script。
  y = sc.Run("main")
  MsgBox y
  
End Sub

figfig

'排列与组合

Sub RUBY()

Set x = CreateObject("scriptcontrol")
x.Language = "rubyscript"

y = x.eval("[1,2,3].product(['a','b','c']))")
Stop
[a1].Resize(UBound(y, 1) + 1, UBound(y, 2) + 1) = y
End Sub




'分组求和，相当与SQL group by

Sub RUBY()

Set x = CreateObject("scriptcontrol")
x.Language = "rubyscript"

y = x.eval("tmp = Hash.new(0);[['a',1],['b',2],['b',3],['a',4]].each {|x| tmp[x[0]]+=x[1]};arr=tmp.to_a  ")

y = x.eval("arr")
Stop
End Sub

[ 本帖最后由 figfig 于 2010-5-12 00:01 编辑 ]

qr1008

慢慢地消化吸收。

蓝桥玄霜

原帖由 figfig 于 2010-5-11 12:18 发表

Sub ruby2()
Set x = CreateObject("scriptcontrol")
x.Language = "rubyscript"
y = x.eval("aa=[[1,'a',41],[4,'b',19],[2,'a',58],[7,'c',6],[3,'b',2],[6,'a',1]].sort_by{|x| [x[1],x[2]]}")
[a1].Resize ...

这个结果对了，谢谢老师。

fsydw

报名，学习。

figfig

'vb所没有的功能，宏中宏

'z原来为0，aa函数后面跟了一个模块，用来执行命令 z=Z+1 ,调用aa函数时,碰到

'yield命令就执行这个模块或者传回参数，z=z+1;这里执行2次，z就是2，这样函数就可以动态了！
Sub ruby()

Set x = CreateObject("scriptcontrol")
x.Language = "rubyscript"
x.eval "def aa() yield;yield  end"
x.eval ("z=0;aa(){z+=1}")
MsgBox x.eval("z")

End Sub

AVEL

有没有这类语言的帮助说明啊。。。
就这么看，有点迷糊。

aidixiao

请问figfig老师，下面这段求两个数组差集的代码错在哪里？
Sub qiubuji()
Dim arr1, arr2, arr3
arr1 = Application.Transpose(Range("A1:A6"))   'A1至A6的值分别为1、2、3、4、5、6
arr2 = [1,2,3,4,5,6,7,8,9,0]
Set x = CreateObject("scriptcontrol")
x.Language = "rubyscript"
x.eval ("arr3=arr2 - arr1")
MsgBox x.eval("arr3.join(',')")
[b1]=x.eval("arr3(1)")
End Sub

[ 本帖最后由 aidixiao 于 2010-5-19 06:56 编辑 ]

aidixiao

应该是没将arr1和arr2传入ruby,因为我试了一下，下面的代码可以运行：请知道的大师帮忙解答一下，谢谢了。
Sub qiubuji()
Set x = CreateObject("scriptcontrol")
x.Language = "rubyscript"
x.eval ("arr2 = [1,2,3,4,5,6,7,8,9,0];arr1=[1,2,3,4,5,6];arr3=arr2 - arr1;")
MsgBox x.eval("arr3.join(',')")
[b1]=x.eval("arr3(1)")'这一句报错，不知道怎样调用ruby数组中的元素？找到方法了：使用下面这两句就可以了
y=x.eval("arr3")
[b1]=y(1)
'或者用[b1]=x.eval("arr3[1]")原来要用方括号而不是圆括号

End Sub

[ 本帖最后由 aidixiao 于 2010-5-19 09:42 编辑 ]

figfig

原帖由 aidixiao 于 2010-5-19 08:10 发表
应该是没将arr1和arr2传入ruby,因为我试了一下，下面的代码可以运行：请知道的大师帮忙解答一下，谢谢了。
Sub qiubuji()
Set x = CreateObject("scriptcontrol")
x.Language = "rubyscript"
x.eval ("arr2 = [1 ...

Sub qiubuji()
Set x = CreateObject("scriptcontrol")
x.Language = "rubyscript"
x.eval ("arr2 = [1,2,3,4,5,6,7,8,9,0];arr1=[1,2,3,4,5,6];arr3=arr2 - arr1;")
MsgBox x.eval("arr3[1]")
MsgBox x.eval("arr3.join(',')")

End Sub