3

在 VBA 和正则表达式中使用自定义函数时，我在 Access 2000 中遇到错误？

该功能在 99% 的时间内都有效，但是当null("")我在该领域得到这个词#Error时？

这是我的表达：

(MACHINEO?N?:?\s?\s?""?""?[0-9A-Z_\.-]+)")

功能：

Public Function parse(record As String, pattern As String) As String
    Set parseRegExp = New RegExp
        parseRegExp.pattern = pattern
        parseRegExp.Global = True

        Dim parseIT As MatchCollection
        Set parseIT = parseRegExp.Execute(record)

        For Each parseReturn In parseIT
            parse = parseReturn
        Next parseReturn
End Function
4

1 回答 1

0

使用这样的功能：

parse(NZ(record," "), pattern)
于 2013-09-06T19:17:53.527 回答