3

Access 2000 で VBA および正規表現でカスタム関数を使用するとエラーが発生します。

関数は 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