一个简单的E_mail地址判断函数(通用)

原创 2004年08月18日 18:17:00

     —————————————————
'    |  Author:I94Self                  |
'    |  E_mail:I94Self@hotmail.com      |
'    |  HTTP://www.I94Self.com          |
'    |  Please save author information  |
'     —————————————————

''''''''''''''''''''''''''''''''
'    判断E_mail输入是否正确    '
''''''''''''''''''''''''''''''''
Function IsValidE_mail(E_mail)
'判断E_mail地址中是否有@符号,如果没有@符号或者@符号在E_mail字符第一个或最后一个,则函数都返回False,并退出函数。
E_mailArray=Split(E_mail, "@")
If UBound(E_mailArray)<>1 Then
IsValidE_mail=False
Exit Function
End If
'判断E_mail地址中是否有连在一起的..符号(包括了...或无数个.连接的符号),如果有,则函数都返回False,并退出函数。
If InStr(E_mail,"..")>0 Then
IsValidE_mail=False
Exit Function
End If
'判断E_mail地址中@后的字符串是否有.字符,如果没有.符号或者.符号在E_mail字符第一个,则函数都返回False,并退出函数。
If InStr(E_mailArray(1), ".") <= 0 Then
IsValidE_mail = False
Exit Function
End If
'判断E_mail地址中.后的字符串是否等于2字符或3字符,如果不等于,则函数都返回False,并退出函数。
Number=Len(E_mailArray(1))-InStrRev(E_mailArray(1),".")
If Number<>2 And Number<>3 Then
IsValidE_mail=False
Exit Function
End If
For Each E_mailArrayContent In E_mailArray
'判断E_mail地址中@前是否有字符,如果没有,则函数都返回False,并退出函数。
    If Len(E_mailArrayContent)<=0 Then
    IsValidE_mail=False
    Exit Function
    End If
'判断E_mail地址中是否含有除abcdefghijklmnopqrstuvwxyz_-和数字以外的非法字符,如果含有,则函数返回False,并退出函数。
    For Number=1 To Len(E_mailArrayContent)
    E_mailStr=Lcase(Mid(E_mailArrayContent,Number,1))
    If InStr("abcdefghijklmnopqrstuvwxyz_-.",E_mailStr)<=0 And Not IsNumeric(E_mailStr) Then
    IsValidE_mail=False
    Exit Function
    End If
    Next
'判断E_mail地址中@前后的字符串中是否第一个和是最后一个字符是.字符,如果是,则函数都返回False,并退出函数。
    If Left(E_mailArrayContent,1)="." Or Right(E_mailArrayContent,1)="." Then
    IsValidE_mail=False
    Exit Function
    End If
Next
'没有发现E_mail地址中有异常字符,函数返回True,函数结束。
IsValidE_mail=True
End Function

 

版权声明:本文为博主原创文章,未经博主允许不得转载。 https://blog.csdn.net/AloneSword/article/details/78386

E_mail地址判断函数

' | Author:I94Self |  ' | E_mail:I94Self@hotmail.com |  ' | HTTP://www.I94Self.com |  ' | Please ...
  • u014440209
  • u014440209
  • 2014-04-19 16:05:28
  • 255

一个简单的E_mail地址判断函数

Author:I94Self |   ' | E_mail:I94Self@hotmail.com |   ' | HTTP://www.I94Self.com |   ' | Please s...
  • hsxbbsd71st
  • hsxbbsd71st
  • 2014-05-05 22:47:39
  • 849

delphi判断E_Mail地址合法性

  • 2011年06月07日 01:36
  • 7KB
  • 下载

写一个通用的事件监听函数

var Event = {    //页面加载完成后    readyEvent:function(fn){     if(fn == null){      fn = document; ...
  • jiaqingge
  • jiaqingge
  • 2017-02-04 21:25:04
  • 1547

编写一个函数判断机器的字节顺序(大端or小端)

前几日去大华面试,当场鄙视
  • ljthdu
  • ljthdu
  • 2014-07-14 15:05:07
  • 1340

套接字&套接字地址结构和bind()函数

我们都知道在网络编程中,可以调用socket()函数来获取一个套接字描述符。但是,socket()函数的作用只是返回一个很小的非负整数值吗?并非如此,socket()函数的作用是创建套接字的。 创...
  • hulifangjiayou
  • hulifangjiayou
  • 2015-08-03 22:35:38
  • 1109

判断ip地址是否合法的函数

//判断IP地址是否合法 int check_ip(char *ip) { int i = 0, count = 0; const char *s = "."; char Te...
  • CodeHeng
  • CodeHeng
  • 2015-07-17 13:42:58
  • 2069

通用的事件侦听器函数实现(JS)

// event(事件)工具集,来源:https://github.com/markyun markyun.Event = { // 页面加载完成后 readyEvent : func...
  • u011127925
  • u011127925
  • 2015-07-30 15:14:55
  • 3566

PAT-统计某类完全平方数(简单函数题)

本题要求实现一个函数,判断任一给定整数N是否满足条件:它是完全平方数,又至少有两位数字相同,如144、676等。 函数接口定义: int IsTheNumber ( const int N ); ...
  • qiulh125
  • qiulh125
  • 2015-12-27 22:48:42
  • 2570

一个通用的事件监听器函数

// event(事件)工具集,来源:github.com/markyun markyun.Event = { // 页面加载完成后 readyEvent : function(fn) { i...
  • jing_valora
  • jing_valora
  • 2016-07-13 21:36:05
  • 1491
收藏助手
不良信息举报
您举报文章:一个简单的E_mail地址判断函数(通用)
举报原因:
原因补充:

(最多只允许输入30个字)