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

figfig

原帖由 aidixiao 于 2010-5-18 22:33 发表
请问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 ...

Sub qiubuji()
Dim arr1, arr2, arr3
arr1 = Array(1, 2, 3, 4, 5)
arr2 = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 0)
Set x = CreateObject("scriptcontrol")
x.Language = "rubyscript"
x.eval ("def test(arr1,arr2) arr2-arr1 end;#相当于vba的function; ")
y = x.Run("test", arr1, arr2)

MsgBox Join(y, ",")
End Sub

'vba的数组

joforn

有个问题没弄明白，如果我使用这个东西后，在发布程序的时候不会还得把它先在客户端全部安装吧？——十几M啊，而且楼主的所有例子全是使用ScriptControl来实现，是不是在其它的程序中只能用这种方式调用运行？
有点孤弱寡闻，让楼主见笑了。

figfig

10m应该不算大吧,可以设定一个一步安装,比起现在流行的.net 程序需要安装包几百兆,还是可以接受的

aidixiao

原帖由 figfig 于 2010-5-19 08:30 发表

Sub qiubuji()
Dim arr1, arr2, arr3
arr1 = Array(1, 2, 3, 4, 5)
arr2 = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 0)
Set x = CreateObject("scriptcontrol")
x.Language = "rubyscript"
x.eval ("def test(arr1 ...

明白了，谢谢figfig老师。

aidixiao

再次打扰figfig老师，您在讲“在vba中使用perl“中的一个例子用ruby语言怎样实现：
文件作为数组处理，先创建C:\AA.TXT文件
Sub perl()
Set x = CreateObject("scriptcontrol")
x.Language = "perlscript"
x.eval "open(IN, 'c:\\aa.txt');@file=<IN>; " '文件复制到数组
y = x.eval("@file") '文件行数
MsgBox y
y = x.eval("@file[2]") '文件第二行
MsgBox y
End Sub

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

figfig

原帖由 aidixiao 于 2010-5-19 16:55 发表
再次打扰figfig老师，您在讲“在vba中使用perl“中的一个例子用ruby语言怎样实现：
文件作为数组处理，先创建C:\AA.TXT文件
Sub ruby()
Set x = CreateObject("scriptcontrol")
x.Language = "perlscript"
x.ev ...

Sub  ruby()
Set x = CreateObject("scriptcontrol")
x.Language = "rubyscript"
y = x.eval("open( 'c:\aa.txt').readlines ") '文件复制到数组
MsgBox y(1) '第2行


End Sub

[ 本帖最后由 figfig 于 2010-5-19 18:54 编辑 ]

yinglai

有个问题请教figfig大侠：在sheet1的[a1:z10000]单元格中都是一些0至100的数字，我想将数值小于5的替换为A,小于10的替换为B,小于15的替换为C,其余的替换为D,用ruby的正则表达式怎样实现？谢谢了。

figfig

原帖由 yinglai 于 2010-5-20 17:23 发表
有个问题请教figfig大侠：在sheet1的[a1:z10000]单元格中都是一些0至100的数字，我想将数值小于5的替换为A,小于10的替换为B,小于15的替换为C,其余的替换为D,用ruby的正则表达式怎样实现？谢谢了。

请上传附件以便测试

yinglai

原帖由 figfig 于 2010-5-20 17:33 发表

请上传附件以便测试

文件已上传，受上传文件大小限制，我将[a1:z10000]改成了[a1:z100],请大侠帮忙搞定。
tihuan.rar (183.13 KB, 下载次数: 20)

2010-5-20 18:21 上传

点击文件名下载附件

[ 本帖最后由 yinglai 于 2010-5-20 20:13 编辑 ]

alixking

函数功能比较丰富，呵呵