[未解决]运行错误是VBA不支持吗？

jie-jie · 发表于 2010-5-28 17:44

原帖由 fsydw 于 2010-5-28 17:38 发表
test是本过程名，用本过程、来调用本过程吗？是不是一万年也没结果啊

我是不太懂，懂了就不问了

：
那为什么回结果会返会true呢？
Sub test()
Dim arr, i%, regex
Set regex = CreateObject("vbscript.regexp")
arr = Range("a1:a4")
With regex
.Global = True
.Pattern = "(19|20)\d\d[-_/]?[0-1]?\d[-_/]?[0-3]?\d"
For i = 1 To 4
MsgBox .test(arr(i, 1))
Next
End With
End Sub

fsydw · 发表于 2010-5-28 17:45

原帖由 jie-jie 于 2010-5-28 17:44 发表

我是不太懂，懂了就不问了：
那为什么回结果会返会true呢？
Sub test()
Dim arr, i%, regex
Set regex = CreateObject("vbscript.regexp")
arr = Range("a1:a4")
With regex
.Global = True
...

我也不懂！一起来问佛吧！！

hanter007 · 发表于 2010-5-28 17:47

估计你的PATTERN表达式有问题..

jie-jie · 发表于 2010-5-28 17:51

原帖由 hanter007 于 2010-5-28 17:47 发表
估计你的PATTERN表达式有问题..

工具测试是没问题的呀！
QQ截图未命名.png

jie-jie · 发表于 2010-5-28 18:00

就是搞不明白，工具中测试没问题，就是到VBA中错误，而把组去了又行了，是VBA的正则表达式不支持还是我的代码有问题呀，那位达人、版主指点一下呀！

Sub test() '不能运行，在正则表达式测试工具中是没有问题的
Dim arr, i%, regex
Set regex = CreateObject("vbscript.regexp")
arr = Range("a1:a4")
With regex
.Global = True
.Pattern = "(?<Year>(19|20)\d\d)[-_/]?(?<month>[0-1]?\d)[-_/]?(?<day>[0-3]?\d)"
For i = 1 To 4
MsgBox .test(arr(i, 1))
Next
End With
End Sub
Sub tes()
Dim arr, i%, regex '运行正常(去了捕获组)
Set regex = CreateObject("vbscript.regexp")
arr = Range("a1:a4")
With regex
.Global = True
.Pattern = "(19|20)\d\d[-_/]?[0-1]?\d[-_/]?[0-3]?\d"
For i = 1 To 4
MsgBox .test(arr(i, 1))
Next
End With
End Sub

[ 本帖最后由 jie-jie 于 2010-5-28 18:03 编辑 ]

fsydw · 发表于 2010-5-28 18:01

原帖由 jie-jie 于 2010-5-28 18:00 发表
就是搞不明白，工具中测试没问题，就是到VBA中错误，而把组去了又行了，是VBA的正则表达式不支持还是我的代码有问题呀，那位达人、版主指点一下呀！
Sub test()
Dim arr, i%, regex
Set regex = CreateObject("vb ...

至今未明白......你说的“组”......是什么......

lbpp · 发表于 2010-5-28 18:05

sub 不能递归调用，函数可以，但函数中必须要用递归结束的条件，不然就会死循环。

jie-jie · 发表于 2010-5-28 18:05

原帖由 fsydw 于 2010-5-28 18:01 发表

至今未明白......你说的“组”......是什么......

这个不叫组吗，那我也不知道是什么了，反正就是这个意思，比较上面两个代码的区别，为什么一个是不能运行的（在测试工具是没问题的）
QQ截图未命名.png

fsydw · 发表于 2010-5-28 18:09

那个“正则”，是什么意思

jie-jie · 发表于 2010-5-28 18:11

原帖由 fsydw 于 2010-5-28 18:09 发表
那个“正则”，是什么意思

我晕，我现在才知道你们的回答是什么意思，是我递归了TEST吗？错了,我这里的TEST的正则表达式的方法，不是过程！我改一下过程名总行了吧：
Sub aa() '不能运行，在正则表达式测试工具中是没有问题的
Dim arr, i%, regex
Set regex = CreateObject("vbscript.regexp")
arr = Range("a1:a4")
With regex
.Global = True
.Pattern = "(?<Year>(19|20)\d\d)[-_/]?(?<month>[0-1]?\d)[-_/]?(?<day>[0-3]?\d)"
For i = 1 To 4
MsgBox .test(arr(i, 1))
Next
End With
End Sub
Sub bb()
Dim arr, i%, regex '运行正常(去了捕获组)
Set regex = CreateObject("vbscript.regexp")
arr = Range("a1:a4")
With regex
.Global = True
.Pattern = "(19|20)\d\d[-_/]?[0-1]?\d[-_/]?[0-3]?\d"
For i = 1 To 4
MsgBox .test(arr(i, 1))
Next
End With
End Sub

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

[求助] [未解决]运行错误是VBA不支持吗？