email格式验证问题
原数据时手工录入的，所以可能有错误。
想实现以下功能，用datagrid显示数据库中的数据，同时验证里面的email字段格式是否正确，如果不正确用红体字标出。
是否应该把每个email字段提取出来，然后用正则表达式验证？然后记录下不规则的数据，在dagagrid里标出。可能还要更简单方法。
主要问题就是数据提出后怎么验证，不会，求助！
问题点数：100、回复次数：4Top
1 楼landlordh（work wonders）回复于 2005-01-17 14:43:03 得分 10
简单的Email验证:
\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*Top
2 楼3tzjq（永不言弃）回复于 2005-01-17 14:47:09 得分 70
Public Function CheckEmail(ByVal EmailAddress As String) As Boolean'检查Email地址的有效性
If EmailAddress = "" Then Return True '没有输入就不检查
If Not (System.Text.RegularExpressions.Regex.IsMatch(EmailAddress, _
"^([\w-]+\.)*?[\w-]+@[\w-]+\.([\w-]+\.)*?[\w]+$")) Then
Dim dig As InformationBox.DialogresultEnum
dig = InformationBox.Show("系统检测到输入的 " & getMasks(EmailAddress) & " 不是有效的E-mail地址，是否继续？", " 数据完整性检查", _
InformationBox.InformationBoxButtonsEnum.YesNoHelp,_
InformationBox.InformationBoxIconEnum.Information, _
InformationBox.InformationboxDefaultButtonEnum.Button2, _
True, "Integrality")
Select Case dig
Case InformationBox.DialogresultEnum.No
Return False '无效
Case InformationBox.DialogresultEnum.Yes
Return True '忽略
Case Else
Return True '可能为None
End Select
Else
Return True '有效的邮件地址
End If
End FunctionTop
3 楼tengjian1981（新的一年又来到）回复于 2005-01-17 14:58:45 得分 10
用JS来验证Top
4 楼kevin521（蓝电飞雪）回复于 2005-01-18 15:17:06 得分 10
同意 3tzjq(不要轻言放弃！否则对不起自己) (
但是主要导入空间 imports System.Text.RegularExpressions.Regex
Top
相关问题
关键词
得分解答快速导航
相关链接
广告也精彩
反馈
