MS Access Strip的一切*但是*從文本框的電子郵件地址

Question

我有一個Access Db中的文本框，用戶應該輸入一個電子郵件地址。這是通過從Outlook 2010複製完成的。不幸的是，該副本還會帶來名稱和尖括號。 Fred Bloggs <fred@bloggs.co.uk>

我希望利用這個表達式

.pattern = "[\w-\.]{1,}\@([\da-zA-Z-]{1,}\.){1,}[\da-zA-Z-]{2,3}" 

識別電子郵件地址

，但我將如何去剝離一切，如果沒有輸入有效的電子郵件地址拋出了一個錯誤？謝謝！

Answer 1

Microsoft Access VBA沒有內置的Regex引擎。但是，您可以添加對VBScript正則表達式庫的引用並使用該引用。

這裏有一個相關的問題，解釋如何做到這一點：

• Regular Expressions in MS Access VBA?

Answer 2

如果電子郵件總是封閉在最後<>你可以

Public Function fmt(email As String) As String 
pos = InStrRev(email, "<") 
If (pos > 0) Then 
    email = Mid$(email, 1 + pos, 1 + Len(email) - pos) 
    email = Left$(email, Len(email) - 1) 
End If 
fmt = email 
End Function 

或

replace(mid(email,instrrev(email,"<")+1,len(email)),">","") 

編輯;

對於正則表達式檢查，添加對「Microsoft VBScript正則表達式庫」（工具>引用）的引用;

Public Function fmt(email As String) As String 
pos = InStrRev(email, "<") 
If (pos > 0) Then 
    email = Mid$(email, 1 + pos, 1 + Len(email) - pos) 
    email = Left$(email, Len(email) - 1) 
End If 
fmt = email 
With New RegExp 
    .Global = True 
    .IgnoreCase = True 
    .MultiLine = True 
    .Pattern = "^\S+@\S+\.\S+$" 
    If Not .Test(fmt) Then fmt = "" 
End With 
End Function 

這將返回一個有效的電子郵件地址，或者「」如果它無效。

我放棄了你的RE;推理：Using a regular expression to validate an email address