求 帐号和email合法的正则表达市正则表达式

来源：百度知道 编辑：UC知道 时间：2024/05/16 13:20:37
帐号必须为数字、字母、下划线， email的就不用说了吧
现在只有89币 全部奉上。急用，呵呵！
我想要两个完整的函数，我不会正则表达式，还会学的，现在要急用

一定要用正则吗，不用的话可以试试下面的函数

'*************************************
'检测是否有效的E-mail地址
'*************************************
Function IsValidEmail(Email)
Dim names, name, i, c
IsValidEmail = True
Names = Split(email, "@")
If UBound(names) <> 1 Then
IsValidEmail = False
Exit Function
End If
For Each name IN names
If Len(name) <= 0 Then
IsValidEmail = False
Exit Function
End If
For i = 1 to Len(name)
c = Lcase(Mid(name, i, 1))
If InStr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 And Not IsNumeric(c) Then
IsValidEmail = false
Exit Function
End If
Next
If Left(name, 1) = "." or Right(name, 1) = "." Then
IsValidEmail = false
Exit Function
End If
Next
If InStr(names(1), &qu