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

figfig · 发表于 2010-5-8 16:05

Sub yy()

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

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

End Sub

figfig · 发表于 2010-5-8 16:13

Sub yy()

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

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

End Sub

figfig · 发表于 2010-5-8 16:40

Sub yy()

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

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

End Sub

figfig · 发表于 2010-5-8 16:51

Sub yy()

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

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

End Sub

figfig · 发表于 2010-5-8 20:03

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 · 发表于 2010-5-8 20:16

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 · 发表于 2010-5-8 20:27

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 · 发表于 2010-5-8 23:04

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

figfig · 发表于 2010-5-8 23:33

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 · 发表于 2010-5-8 23:38

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

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

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

智能推测下一个可能出现的单词

智能推测下一个可能出现的单词

字符串也可以统计个数

split 指定多个分隔符

准确判断下一天日期

一句代码获取目录下所有文件名

一句代码读取整个文件(C:\AA.TXT)

抽取数组任意部分

根据条件删减数组

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

智能推测下一个可能出现的单词

智能推测下一个可能出现的单词

字符串也可以统计个数

split 指定 多个分隔符

准确判断下一天日期

一句代码获取目录下所有文件名

一句代码读取整个文件(C:\AA.TXT)

抽取数组任意部分

根据条件删减数组

split 指定多个分隔符