[已解决]关于正则的小问题---无效的过程调用或参数

lingyuncelia1

Sub celia()
For i = 2 To 46
Set reg = CreateObject("vbscript.regexp")
reg.Global = True
reg.Pattern = "1\d{10}"
s = Cells(i, 1)
Set myMatch = reg.Execute(s)
If reg.test(s) Then Cells(i, 2) = myMatch(0)   ‘为什么将0改为1运行，系统会有下图提示？
Next
End Sub

最佳答案

月排行榜 / 总排行榜

爱疯

2016-5-2 16:20

Execute：返回一个 MatchCollection 对象，该对象包含每个成功匹配的 Match 对象。


对于1楼例子来说
第7行可匹配到2个号，第1个即myMatch(0) ，第2个即myMatch(1)
而第14行只能匹配1个号，第1个即myMatch(0) 。因为不存在第2个myMatch(1)，所以出错。


和数组的下标越界相似
redim arr(0 to 0)
数组arr只有1个数组元素，即arr(0)，如果要用arr(1)，自然报错。

跳转到最佳答案楼层

爱疯

Execute：返回一个 MatchCollection 对象，该对象包含每个成功匹配的 Match 对象。


对于1楼例子来说
第7行可匹配到2个号，第1个即myMatch(0) ，第2个即myMatch(1)
而第14行只能匹配1个号，第1个即myMatch(0) 。因为不存在第2个myMatch(1)，所以出错。


和数组的下标越界相似
redim arr(0 to 0)
数组arr只有1个数组元素，即arr(0)，如果要用arr(1)，自然报错。