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

王朝知道·作者佚名  2009-07-19
窄屏简体版  字體: |||超大  
 
分類: 電腦/網絡 >> 程序設計 >> 其他編程語言
 
問題描述:

帐号必须为数字、字母、下划线, 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), ".") <= 0 Then

IsValidEmail = False

Exit Function

End If

i = Len(names(1)) - InStrRev(names(1), ".")

If i <> 2 And i <> 3 Then

IsValidEmail = False

Exit Function

End If

If InStr(email, "..") > 0 Then

IsValidEmail = False

End If

End Function

'*************************************

'用户名检测

'*************************************

Function IsValidUserName(byVal UserName)

on error resume next

Dim i,c

Dim VUserName

IsValidUserName = True

For i = 1 To Len(UserName)

c = Lcase(Mid(UserName, i, 1))

If InStr("$!<>?#^%@~`&*();:+='"" ", c) > 0 Then

IsValidUserName = False

Exit Function

End IF

Next

For Each VUserName in Register_UserName

If UserName = VUserName Then

IsValidUserName = False

Exit For

End If

Next

End Function

小贴士:① 若网友所发内容与教科书相悖,请以教科书为准;② 若网友所发内容与科学常识、官方权威机构相悖,请以后者为准;③ 若网友所发内容不正确或者违背公序良俗,右下举报/纠错。
 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航