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