如何理解正则表达式判断eMail的有效性?
Private Sub CommandClick() Dim tt As String tt = "ninh_36954@126yan.com" If IsValidEmail(tt) Then 'Email address is stored in TextBox1 MsgBox "valid email address." Else MsgBox "Not a valid email address." End IfEnd SubPrivate Function IsValidEmail(value As String) As Boolean Dim RE As Object Set RE = CreateObject("vbscript.RegExp") RE.Pattern = "^[a-zA-Z0-9\._-]+@([a-zA-Z0-9_-]+\.)+([a-zA-Z]{2,3})$" IsValidEmail = RE.Test(value) Set RE = NothingEnd Function