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

来生缘 · 发表于 2010-5-28 22:00

我想要你的工具

我也猜测是PATTERN的问题

来生缘 · 发表于 2010-5-28 22:02

Dim arr, i%, regex
Set regex = CreateObject("vbscript.regexp")
arr = Range("a1:a4")
With regex
.Global = True
' .MultiLine = True
.Pattern = "(?<Year>(19|20)[0-1]\d)[-_/]?(?<month>[0-1]\d)[-_/]?(?<day>[0-3]\d)"
For i = 1 To 4
MsgBox .test(arr(i, 1))
Next
End With

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

我想了解一下，既然你下面的这段程序可以达到效果，为什么又要用上面的那个？？
对正则不太懂，不好意思

lbpp · 发表于 2010-5-28 22:11

原帖由 jie-jie 于 2010-5-28 18:11 发表

我晕，我现在才知道你们的回答是什么意思，是我递归了TEST吗？错了,我这里的TEST的正则表达式的方法，不是过程！我改一下过程名总行了吧：
Sub aa() '不能运行，在正则表达式测试工具中是没有问题的
Dim arr, ...

不好意思，匆匆一看没注意test前还有一个. 呵呵。

下载附件运行了一下，“运行时错误 '5017'"，搜了一下，原因是正则表达式语法错误。

5016 800A1398 需要正则表达式对象
5017 800A1399 正则表达式语法错误
5018 800A139A 未预期的限定符
5019 800A139B 正则表达式中缺少“]”
5020 800A139C 正则表达式中缺少“)”

因为没有仔细研究过正则表达式，因此无法给出正则表达式中语法错误的部分。
同为正则表达式，存在很多的”方言“，不同的语言中的语法还是有一定的区别的，对于楼主在其他环境中能通过的模式，在VB script中不一定能通过，这就是出现问题的原因。可以拿个简单的模式来匹配一下试试，可以正常运行的。

[ 本帖最后由 lbpp 于 2010-5-28 22:27 编辑 ]

lbpp · 发表于 2010-5-28 22:40

不知你要的结果是不是下面的正则表达式

.Pattern = "((19|20)[0-1]\d)[-_/]?([0-1]\d)[-_/]?([0-3]\d)"

jie-jie · 发表于 2010-5-28 22:46

谢谢楼上两位老师回复，要匹配的表达式是：(?<Year>(19|20)[0-1]\d)[-_/]?(?<month>[0-1]\d)[-_/]?(?<day>[0-3]\d)
工具大了一点传不了，给一个在线工具，Pattern 是没问题的
http://www.zhongguosou.com/compu ... ols/test_regex.aspx

jie-jie · 发表于 2010-5-28 22:49

楼上老师的“在其他环境中能通过的模式，在VB script中不一定能通过，这就是出现问题的原因”和我估计的原因（vba的vbscript正则表达式不支持的观点）有一点相似，就是有没有不支持的确切论据，是不是还是什么方法我们没掌握，请懂的人指教

来生缘 · 发表于 2010-5-28 23:21

你的工具名称叫什么？？

"(?<Year>(19|20)[0-1]\d)[-_/]?(?<month>[0-1]\d)[-_/]?(?<day>[0-3]\d)"这里的year、month、day是用来做什么的？

jie-jie · 发表于 2010-5-28 23:27

原帖由 来生缘 于 2010-5-28 23:21 发表
你的工具名称叫什么？？

"(?(19|20)[0-1]\d)[-_/]?(?[0-1]\d)[-_/]?(?[0-3]\d)"这里的year、month、day是用来做什么的？

你问的问题下图中都有了，还请帮忙！
QQ截图未命名.png

jie-jie · 发表于 2010-5-28 23:32

"(?<Year>(19|20)\d\d)[-_/]?(?<month>[0-1]?\d)[-_/]?(?<day>[0-3]?\d)"这个更好些，但都无关紧要啦，问题关键是script是不是支持捕获组。（表述的不专业，达人你懂的）

lbpp · 发表于 2010-5-29 16:29

原帖由 jie-jie 于 2010-5-28 22:46 发表
谢谢楼上两位老师回复，要匹配的表达式是：(?(19|20)[0-1]\d)[-_/]?(?[0-1]\d)[-_/]?(?[0-3]\d)
工具大了一点传不了，给一个在线工具，Pattern 是没问题的
http://www.zhongguosou.com/computer_question_tools/te ...

pattern的确没有问题。我是用RegexBuddy3测试的，在这个工具中有一个功能是转换为各种语言的语法，.Pattern = "((19|20)[0-1]\d)[-_/]?([0-1]\d)[-_/]?([0-3]\d)" 就是通过他转换过来的，楼主的pattern转换为不同的语言的语法后pattern也会不同。不知这算不算是不支持的确切论据。

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

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