最简单的方式是使用正则表达式。检测邮箱格式的正则表达式:^[\w-]+(\.[\w-]+)*@[\w-]+(\.[\w-]+)+$。
1、标准的C和C++都不支持正则表达式,但有一些函数库可以辅助C/C++程序员完成这一功能,其中最著名的当数Philip Hazel的Perl-Compatible Regular Expression库,许多Linux发行版本都带有这个函数库。
2、C/C++ 中使用正则表达式一般分为三步:
1)编译正则表达式 regcomp()
int regcomp (regex_t *compiled, const char *pattern, int cflags)
这个函数把指定的正则表达式pattern编译成一种特定的数据格式compiled,这样可以使匹配更有效。函数regexec 会使用这个数据在目标文本串中进行模式匹配。执行成功返回0。
2)匹配正则表达式 regexec()
int regexec (regex_t *compiled, char *string, size_t nmatch, regmatch_t matchptr [], int eflags)
当编译好正则表达式后,就可以用regexec 匹配我们的目标文本串了,如果在编译正则表达式的时候没有指定cflags的参数为REG_NEWLINE,则默认情况下是忽略换行符的,也就是把整个文本串当作一个字符串处理。执行成功返回0。
3)释放正则表达式 regfree()
void regfree (regex_t *compiled)
当使用完编译好的正则表达式后,或者要重新编译其他正则表达式的时候,可以用这个函数清空compiled指向的regex_t结构体的内容。请注意,如果是重新编译的话,一定要先清空regex_t结构体。
判断email地址格式的流程如下:
1、所有字符都必须在这个范围内:小写字母a到z 、大写字母A到Z、数字0到9、下划线_、减号-、半角小数点. 、以及@;
2、必须含有1个@字符,且这个字符不在字符串最前面或者最后面;
3、@字符到字符串末,中间必须要有一个半角小数点.;且这个小数点不紧挨@后,也不在最末位。
4、如果可以发送测试邮件,可以发送一封测试邮件
是用正则表达式,迅速解决问题。需要引用Microsoft
VBScript
Regular
Exprsession
5.5
Private
Sub
Command1_Click()
Dim
E_mail
As
String
Dim
rExp
As
New
RegExp
rExp.Pattern
=
"\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*"
E_mail
=
InputBox("请输入您的邮箱地址",
"InputBox")
MsgBox
IIf(rExp.Test(E_mail),
"正确格式邮箱地址",
"非正确格式邮箱地址"),
,
"邮箱格式判断"
End
Sub
=IF(COUNTIF(B10,"*@*.*")=1,"","E-mail格式不对,请检查后重新输入。")
b10为检查的单元格。如果用条件格式,就在条件格式对话框中略加修改。
还可以设置“数据有效性”。选定要设置的区域(Email列或行,假定在B列),菜单“数据”-“数据有效性”,在“允许”框中选择“自定义”,在公式栏输入=COUNTIF(B1,"*@*.*")=1,“出错警告”标签中,找到“出错信息”,填“E-mail格式不对,请检查后重新输入。”
自己没亲自写过 这是引用别人的 先申明一下 使用正则表达式比较好
CREATE FUNCTION F_EMAIL
(
@EMAIL VARCHAR(50)
)
RETURNS INT --返回1是正确;返回0是错误
BEGIN
DECLARE @VALUE INT,@LEN INT
DECLARE @TMP VARCHAR(50)
DECLARE @CHECK1 VARCHAR(50)
DECLARE @CHECK2 VARCHAR(50)
DECLARE @CHECK3 VARCHAR(50)
SET @TMP=RTRIM(LTRIM(@EMAIL))
SET @LEN=LEN(@TMP)
IF @LEN-LEN(REPLACE(@TMP,'@',''))=1 AND @LEN-LEN(REPLACE(@TMP,'.',''))=1 AND CHARINDEX('@',@TMP)1
BEGIN
SET @CHECK1=LEFT(@TMP,CHARINDEX('@',@TMP)-1)
SET @CHECK2=STUFF(@TMP,1,CHARINDEX('@',@TMP),'')
SET @CHECK3=STUFF(@CHECK2,1,CHARINDEX('.',@CHECK2),'')
SET @CHECK2=LEFT(@CHECK2,CHARINDEX('.',@CHECK2)-1)
IF LEN(@CHECK1)0 and LEN(@CHECK2)0 AND LEN(@CHECK3)0
BEGIN
IF PATINDEX('%[^a-zA-Z0-9._-]%',@CHECK1)0
SET @VALUE=0
ELSE
BEGIN
IF PATINDEX('%[^a-zA-Z0-9_-]%',@CHECK2)0
SET @VALUE=0
ELSE
BEGIN
IF CHARINDEX(UPPER(@CHECK2),UPPER('gmail,QQ,163,sina,yahoo'))0
BEGIN
IF PATINDEX('%[^a-zA-Z0-9._-]%',@CHECK3)0
SET @VALUE=0
ELSE SET @VALUE=1
END
ELSE SET @VALUE=0
END
END
END
ELSE SET @VALUE=0
END
ELSE SET @VALUE=0
RETURN @VALUE
END
--测试
create table tb
(
id int identity,
email varchar(50),
CONSTRAINT chk_email CHECK (dbo.F_EMAIL(email)=1)
)
insert into tb SELECT 'ASDF@163.COM'
insert into tb SELECT 'ASDF@1263.COM'
insert into tb SELECT 'ASDF@QQ.COM'
insert into tb SELECT 'ASDF@yahoo.COM'
insert into tb SELECT 'AS@DF@yahoo.COM'
/*
(所影响的行数为 1 行)
服务器: 消息 547,级别 16,状态 1,行 1
INSERT 语句与 COLUMN CHECK 约束 'chk_email' 冲突。该冲突发生于数据库 'Test',表 'tb', column 'email'。
语句已终止。
(所影响的行数为 1 行)
(所影响的行数为 1 行)
服务器: 消息 547,级别 16,状态 1,行 1
INSERT 语句与 COLUMN CHECK 约束 'chk_email' 冲突。该冲突发生于数据库 'Test',表 'tb', column 'email'。
语句已终止。*/
SELECT * FROM TB
/*
id email
----------- --------------------------------------------------
1 ASDF@163.COM
3 ASDF@QQ.COM
4 ASDF@yahoo.COM
(所影响的行数为 3 行)
*/
刮腻子后天花板回潮滴水 有可能是涂层的问题。解决方法:估计是腻子层脱落,问题不大,只要重新刮腻子刷涂料就行了。小车油箱下面漏水,是什么原因啊,正常吗 1、空调系统排水夏天开车使用空调,在行驶了一段路程...
手机邮箱格式怎么写电子邮箱简介 1、手机号码的电子邮箱格式:手机号@所属邮箱.com。书写方法如:手机号@163.com.2、电子邮箱是指通过网络为用户提供交流的电子信息空间,既可以为用户提供发送电子...
为什么大企业爱用邮箱? 为什么大企业爱用邮箱办公?下面以TOM企业邮箱为例,简单分析一下1、塑造品牌形象可使用企业域名作为邮箱的后缀,统一所有员工的邮箱格式,在进行商务对接时可更全面的体现企业形象。2...
怎么看自己手机号注册了哪些邮箱? 1、这里需要接收验证码才可以查询。然后开始查询,查询速度很快。查询完毕就可以看到自己的手机号都注册了那些网站和app,还可以看到账号信息是否被泄露。这样就解决了怎么知...
邮箱全球通用吗 按道理说所有的邮箱都是全球通用的。但是由于国内的邮箱服务商(比如网易,腾讯,搜狐等)都没在国外设置服务器,所以有的时候发给国外的用户会很长时间才能收到,或者直接收不到。所以如果你要往国...
什么是邮箱,邮箱号码是多少? 40分 什么是邮箱,邮箱号码是多少? 40分 电子邮箱(E-MAIL BOX)是通过网路电子邮局为网路客户提供的网路交流的电子资讯空间。 邮箱有很多种 QQ邮箱 新浪...