ms-access - 正则表达式多行选项无法被 Access 识别

Question

我有一个 myRegex 函数可以从字符串中提取正则表达式。当我运行使用该函数的查询时，我在多行上收到以下错误。

Method or data member not found.

这是正则表达式函数:

Function myRegex(ByRef myString As String, ByVal pattern As String) As String
   Dim rgx As New RegExp
    Dim colMatches As MatchCollection
    With rgx
        .pattern = pattern
        .ignoreCase = True
        .Global = False
        .Multiline = False
        Set colMatches = .Execute(myString)
    End With
    If colMatches.Count > 0 Then
        myRegex = colMatches(0).Value
    Else
        myRegex = ""
    End If
End Function 

这是我使用的查询:

SELECT myRegex(phone,"[0-9]+")
FROM table1

我检查了以下引用库:

• Microsoft VBScript 正则表达式 1.0
• Microsoft VBScript 正则表达式 5.5

Answer 1

下一行

Dim rgx As New RegExp

...将 RegExp 与定义该类的第一个库匹配，即

Microsoft VBScript Regular Expressions 1.0

这是不支持 Multiline 属性的旧版本。您需要来自以下位置的 RegExp 类:

Microsoft VBScript Regular Expressions 5.5

所以要么:

• 删除与旧 1.0 引用库的链接，或者
• 将 RegExp 类限定为 VBScript_RegExp_55.RegExp，或者
• 使用后期绑定(bind)(较慢)，使用 CreateObject("VBScript.RegExp")