[已解决]正则表达式execute方法的问题。

silenthunter

Public Function 提取邮箱(email As Range)
Dim Regex As Object
Set Regex = CreateObject("VBSCRIPT.REGEXP")
Regex.Pattern = "\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*"
Regex.Global = True
Set matches = Regex.Execute(email)
For Each Match In matches
   提取邮箱 = Match.Value
Next
End Function


第1个问题：书中说Execute按照表达式对内容进行搜索，产生一维数组，所有符合条件的内容分为一个个元素存进数组，但从单步执行来看，matches变量的类型是object，看起来不像普通的数组的样子。那么它到底是不是一个真的数组？



第2个问题：就算matches产生的是一维数组，那么为了得到每个元素就必须用for each遍历。如果早就知道数组只包含一个数，那么遍历就十分浪费表情，但是正则似乎只能用遍历法来得到这个元素？

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-12-12 22:43

那就直接取第一个的。
matches(0).value呢。

跳转到最佳答案楼层

hwc2ycy

matches产生的是集合吧。
如果用了分段，那就取submatches里的元素。

hwc2ycy

For Each Match In matches
   提取邮箱 = Match.Value
Next
你这里这样遍历意义不大，这是返回了最后一个值而已。

silenthunter

hwc2ycy 发表于 2013-12-12 22:32
For Each Match In matches
   提取邮箱 = Match.Value
Next

意义不大，所以我想找个方法不要遍历。少打几行代码都行啊。

hwc2ycy

那就直接取第一个的。
matches(0).value呢。

silenthunter

hwc2ycy 发表于 2013-12-12 22:29
matches产生的是集合吧。
如果用了分段，那就取submatches里的元素。

自学vba一年了，基本的都学过，单元格引用、多数语句、工作表常用的几个对象、自定义函数、数组、窗体、正则、字典、操作注册表、FSO。这些都涉及到了，只是不熟练。不知这些知识与集合有没有关系？

hwc2ycy

silenthunter 发表于 2013-12-12 23:12
自学vba一年了，基本的都学过，单元格引用、多数语句、工作表常用的几个对象、自定义函数、数组、窗体、正 ...

你去用就清楚了，matches的类型是matchcolleage吧，好像，这就是集合了。

necnec

朋友我也遇到了这个疑问，你解决没呢？