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