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

figfig

Sub yy()


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

y = x.eval("'1.9.9'.succ")
MsgBox y

End Sub

figfig

Sub yy()


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

y = x.eval("'1元钱'.succ")
MsgBox y

End Sub

figfig

Sub yy()


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

y = x.eval("'12223456789'.count('2') ")
MsgBox y

End Sub

figfig

Sub yy()


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

y = x.eval("'1-10,20'.split(/([-,])/) ")
MsgBox Join(y, ",")

End Sub

figfig

Sub ruby()

Set x = CreateObject("scriptcontrol")

x.Language = "rubyscript"

x.Eval "require 'date';day = Date.new(2001, 2, 28);day = day.succ "
        
Debug.Print x.Eval("day")

End Sub

[ 本帖最后由 figfig 于 2010-5-8 20:28 编辑 ]

figfig

Sub ruby()

Set x = CreateObject("scriptcontrol")

x.Language = "rubyscript"

y = x.Eval("Dir::entries('c:/') ")
        
MsgBox Join(y, vbCrLf)

End Sub

[ 本帖最后由 figfig 于 2010-5-8 20:29 编辑 ]

figfig

Sub ruby()
Set x = CreateObject("scriptcontrol")

x.Language = "rubyscript"

MsgBox x.Eval("open('C:\aa.txt').read")

        

End Sub

[ 本帖最后由 figfig 于 2010-5-8 20:29 编辑 ]

aidixiao

再次跟随大师学习新的东西，谢谢了！！！

figfig

Sub ruby2()
Set x = CreateObject("scriptcontrol")
x.Language = "rubyscript"
x.eval "a = [1,2,3,4,5]"

y = x.eval("a[1..3]")
MsgBox Join(y, ",")


End Sub

figfig

Sub ruby2()
Set x = CreateObject("scriptcontrol")
x.Language = "rubyscript"
x.eval "a = [1,2,3,4,5]"

y = x.eval("a.reject! {|x| x < 3}")
MsgBox Join(y, ",")


End Sub