[Script]IsEmail(string)

Código:


//IsEmail(string) return true or false
/*
exemplo de codigo
Email = get_string('qual seu email ?',"")
if (IsEmail(Email))
{
show_message("email valido");
}
else
{
show_message("email invalido");
}
*/
var i,ii,iii,iiii,str0,str1,str2;
i = string_pos("@",argument0);
if (i > 0)
{
    str0 = string_copy(argument0,1,i - 1);
    if(string_length(str0) > 32 or string_length(str0) == 0 or string_length(string_lettersdigits(str0)) != (string_length(str0) - string_count('_',str0) - string_count('.',str0)- string_count('-',str0)))
    {
        return false;
    }
    str1 = string_copy(argument0,i + 1,string_length(argument0) - i);
    for(iii = 0 ; true ; iii += 1)
    {
      iiii = string_pos('.',str1);
      if(iiii > 0)
      {
              str2 = string_copy(str1,1,iiii - 1);
           
              str1 = string_delete(str1,1,iiii);
             
              if(string_length(str2) > 32 or string_length(str2) == 0 or string_length(string_lettersdigits(str2)) != (string_length(str2) - string_count('_',str2)))
              {
                  return false;
              }
             
      }
      else
      {
              if(string_length(str1) > 32 or string_length(str1) == 0 or string_length(string_lettersdigits(str1)) != (string_length(str1) - string_count('_',str1)))
              {
                  return false;
              }
              str1 = "";
              if(iii < 1)
              {
                  return false;
              }
              else
              {
                  return true;
              }
      }
     
      if(iii > 1)
      {
          return false;
      }
    }
return true;
}
else
{
return false;
}


Nome:
Descriçao:

Download: (ou o script)