使用正則表達式搜索表中缺少的信息不會提取所有匹配的值

Question

我對VBA有點新，而且我確實嘗試搜索該主題的論壇，但我不確定是否使用了正確的詞進行搜索。這是我的問題：

我正在使用VBA提取與正則表達式缺少的信息。假設我有一張包含電話號碼和傳真號碼的文字表格。我想將這些數字收集到一張表格中。到目前爲止，我的代碼工作正常，但是當出於某種原因我有多個數字（比如常規和800＃）時，只有一個數字被檢索到，而其他數字則沒有。我怎樣才能將所有結果添加到表格中？

查詢：

SELECT regxtr（！[表1] [字段1]）AS電話FROM表1;

爲（regxtr）函數

VBA代碼：

Option Compare Database 

Function regxtr(ByVal Target As String) As String 'Target is the field we are 'extracting from 

Dim re As New RegExp 
Dim oMatches As Object 
Dim oMatch As Object 
Dim n As Long 
n = 0 

'Set re = CreateObject("vbscript.regexp") 
With re 
.Global = True 
.IgnoreCase = True 
.Multiline = True 
.Pattern = "(\d\d\d.\d\d\d\.\d\d\d\d)" 'keeping the pattern simple for now just to test 
End With 

    'test before executing 
If re.Test(Target) = True Then 
Set oMatches = re.Execute(Target) 

     'attempt to get all matches. THIS IS WHERE I AM FAILING 
For n = 0 To oMatches.Count - 1 
Set oMatch = oMatches(n) 

    regxtr = oMatch.Value 
    n = n + 1 ' does this even belong here? 

    Next 
End If 


End Function 

我怎樣才能使所有的比賽將填充在查詢該領域[電話]？任何幫助將不勝感激。

Answer 1

首先，在術語修正。你不是在尋找'submatches'（在其他regex實現中也被稱爲「捕獲組」）。您正在尋找你的正則表達式「匹配」，這樣就可以把括號，只需使用\d{3}.\d{3}.\d{4}那說，這可能是你所需要的：

Function regxtr(ByVal Target As String) As String 'Target is the field we are 'extracting from 
Dim re As New RegExp 
Dim oMatches As Object 
Dim oMatch As Object 

With re 
    .Global = True 
    .IgnoreCase = True 
    .Multiline = True 
    .Pattern = "\d{3}.\d{3}.\d{4}" 'keeping the pattern simple for now just to test 
End With 

If re.Test(Target) = True Then 
    Set oMatches = re.Execute(Target) 
    For Each oMatch In oMatches 'Note: you may get multiple matches because you set re.Global = True above, otherwise you would only get the first match 
     regxtr = regxtr & " " & oMatch 'Note: this is awkward and not advisable as a way to return the values. This is just an example. 
    Next oMatch 
End If 
End Function 

作爲一個測試：

?regxtr("foo 993-242.1231bar994.425-1234hello987.234.2424 world 999.342-5252") 
993-242.1231 994.425-1234 987.234.2424 999.342-5252