VBA正则表达式模式组合匹配和不匹配模式

Question

尝试从不同数据类型之间没有可见分隔符的字符串中提取有效的电话号码。 实际上，潜在电话号码周围的数据是随机且不相关的。

应该匹配什么。 我正在尝试匹配以下任一项：

• [random garbage][optional '1'][optional '(']###[optional')'[[random or no white space]###-####[random garbage]或
• [random garbage]###[optional '-']###,[optional '-']####[random garbage]

只使用第一个电话号码，所以我在下面的代码中使用了Global = False 。 我可以让它更健壮，但我已经检查了数据，这应该足够了。

工作模式。这是一个函数的代码片段（它返回匹配的电话号码），其中包含有效的模式。

With regex
    .Global = False
    .Pattern = "1?(\(?\d{3}\)?\(s+)?|\d{3}-?)\d{3}-?\d{4}"
'this works but does detect an extension as explained above
End With

什么不应该匹配。 我意识到我还需要搜索电话号码旁边的扩展名（即[phone number][white space]x# ），如果存在，则将电话号码视为无效（ .test应评估为 false）。

尝试失败。 他们都失败了（即使是有效的电话号码也有.test评估为 false）：

.Pattern = "1?(\(?\d{3}\)?\(s+)?|\d{3}-?)\d{3}-?\d{4}^(\s?x\d)"
'detect not([optional single white space]x#), added "^(\s?x\d)"
'or
.Pattern = "1?(\(?\d{3}\)?\(s+)?|\d{3}-?)\d{3}-?\d{4}^((\s+?)[x]\d)"
'detect not([optional multiple white space]x#), added "^((\s+?)[x]\d)"

不确定如何在同一模式中组合正匹配测试和负（非）匹配测试。

我尝试过的变通办法。 当我无法让它工作时，我尝试了以下Like模式（在调用使用 Regexp 的函数之前使用 VBA 'Like'），但也失败了（即使使用包含示例的测试字符串，所有结果都评估为 false "...1x2"或"5 x33"或"...7 x444" ; 具有像"*#x#*" 、 "*#{ x}#*" 、 ""*#{ x}#*" .

下面是测试 Like 函数的代码片段：

If Not (OrigNum Like "*#x#" Or OrigNum Like "*#[ x}#" Or OrigNum Like "*#[  x]#*") Then
    Debug.Print "No #x# in string"
    OrigNum = ExtractPhoneNumber(OrigNum)
Else
    Debug.Print "#x# in string"
End If

评估的每个字符串最终都会导致显示"No x# in string" （评估为 false），即使字符串包含上述示例，应该评估为 true 并且显示"#x# in string" 。

茫然和困惑了这么久它......好吧，足够的 Led Zepp 参考:-)

Answer 1

电话号码：

• [optional '1'][optional '(']###[optional')'[[random or no white space]###-####
• ###[optional '-']###[optional '-']####

^{*我删除了一个我认为是拼写错误的逗号，并且还假设前导1对于我从您的模式中读到的两种情况都是可选的。}

不匹配：

• [phone number][white space]x#

---

您正在寻找的是负前瞻。

(?! subexpression )从当前位置断言该子表达式，如果子表达式匹配，则匹配尝试失败（即后面没有）。
例如(?!\\s*x\\d)当当前位置后跟可选的空格、“x”和一个数字时失败。

正则表达式：

1?(?:\(\d{3}\)|\d{3}-?)\s*\d{3}-?\d{4}(?!\s*x\d)

代码：

Public Function getPhoneNumber(strInput As String) As Variant
    Dim regex As New RegExp
    Dim matches As Object

    regex.Pattern = "1?(?:\(\d{3}\)\s*|\d{3}-?)\d{3}-?\d{4}(?!\s*x\d)"
    regex.Global = False

    Set matches = regex.Execute(strInput)
    If matches.Count = 0 Then
        getPhoneNumber = CVErr(xlErrNA)
    Else
        getPhoneNumber = matches(0).Value
    End If
End Function

结果（ 🎵 原来如此，然后又会如此；虽然课程有时可能会改变 🎵 ）：