在vba里使用PERL

figfig · 发表于 2010-5-6 19:08

Sub perl2()

Set x = CreateObject("scriptcontrol")
x.Language = "perlscript"
x.eval " $str = qq(apple orange banana);$sub = a;while ( ( $find = index ($str, $sub, $find ) ) >= 0 ) {$find++;$a=$a.','.$find;}"

Debug.Print x.eval("$a")

End Sub

figfig · 发表于 2010-5-6 19:14

Sub perl2()

Set x = CreateObject("scriptcontrol")
x.Language = "perlscript"
x.eval " @fruit = (apple, orange, banana);$num = $#fruit + 1;"

Debug.Print x.eval("$num")

End Sub

figfig · 发表于 2010-5-6 19:27

Sub perl2()

Set x = CreateObject("scriptcontrol")
x.Language = "perlscript"
x.eval "%fruit = (red, 1, yellow, 2, purple, 3);@file = keys(%fruit);"

Debug.Print x.eval("join(' ',@file)")

End Sub

ychh_wy · 发表于 2010-5-6 19:34

作一个记号，以后学习
谢谢楼主！

figfig · 发表于 2010-5-6 19:37

Sub perl2()

Set x = CreateObject("scriptcontrol")
x.Language = "perlscript"
x.eval "@array = (1,2,3,3,4);$x = '-';@sort = grep( $_ ne $x && ($x = $_), @array ); "

Debug.Print x.eval("join(' ',@sort)")

End Sub

figfig · 发表于 2010-5-6 20:10

Sub perl2()

Set x = CreateObject("scriptcontrol")
x.Language = "perlscript"
x.eval "use warnings;use LWP::Simple;$doc = get('http://baidu.com');"

Debug.Print x.eval("$doc")

End Sub

figfig · 发表于 2010-5-6 20:28

Sub perl2()

Set x = CreateObject("scriptcontrol")
x.Language = "perlscript"
x.eval "$source='<html><body>mmm</body></html>';$source =~ s/<.*?>//g"

Debug.Print x.eval("$source")

End Sub

figfig · 发表于 2010-5-6 20:42

Sub perl()

Set x = CreateObject("scriptcontrol")
x.Language = "perlscript"
x.eval "$str=q(sample 123_456 7);$str=~s/(\d+)/$1*2/ge;"

Debug.Print x.eval("$str")

End Sub

figfig · 发表于 2010-5-6 20:45

Sub perl()

Set x = CreateObject("scriptcontrol")
x.Language = "perlscript"
x.eval "$str=q(sample 123);$str=~s/(\d+)/sprintf('%05d',$1)/e"

Debug.Print x.eval("$str")

End Sub

figfig · 发表于 2010-5-6 20:55

Sub perl()

Set x = CreateObject("scriptcontrol")
x.Language = "perlscript"
x.eval "@a=(a, aa,ab,ca,daef,g, h);@b=grep(/a/, @a);@c=grep(/^a/, @a);"

Debug.Print x.eval("join(' ',@b)")

Debug.Print x.eval("join(' ',@c)")

End Sub

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

[原创] 在vba里使用PERL

连续查找文字位置

数组长度

字典 KEY VALUE

取不重复唯一值

获取网页

去除HTML 标记

正则直接进行计算

正则直接转换格式

模糊查找数组值