Section courante

A propos

Section administrative du site

La validation des courriels est un des problèmes les plus complexe à mettre en oeuvre lorsqu'on envoie un formulaire. Et pour cause, il faut tenir compte des règles suivantes:

A l'aide du code source Turbo Pascal suivant, vous trouverez la réponse que vous souhaitez :

  1. Program Email;
  2.  
  3. Function IsEmail(Email:String):Boolean;
  4. Var
  5.  I,ArobasFound,AfterArobas:Integer;
  6. Begin
  7.  If(Email = '')or(Length(Email)=0)Then Begin
  8.   IsEmail:=False;
  9.   Exit;
  10.  End;
  11.  For I:=1 To Length(Email) do Begin
  12.   Case Email[I] of
  13.      #9  , #10  , #13  , ' ','(',')',':',',',
  14.      '/','''','"','~','`','!','#','$','%','^','&','*','+','=','[',
  15.      ']','{','}','|','','?','<','>':Begin
  16.       IsEmail:=False;
  17.       Exit;
  18.      End;
  19.   End;
  20.  End;
  21.  ArobasFound := 0;
  22.  FOR I:=2 to Length(Email) do Begin
  23.   If Email[I] = '@'Then Begin
  24.    Inc(ArobasFound);
  25.    If ArobasFound = 1 Then AfterArobas:=I;
  26.   End;
  27.  End;
  28.  If ArobasFound <> 1Then Begin
  29.   IsEmail:=False;
  30.   Exit;
  31.  End;
  32.  Inc(AfterArobas,2);
  33.  While (AfterArobas < Length(Email)) and (Email[AfterArobas] <> '.') do Inc(AfterArobas);
  34.  IsEmail:=Not((AfterArobas >= Length(Email) - 1) OR (Email[AfterArobas] <> '.'));
  35. End;
  36.  
  37. BEGIN
  38.  WriteLn('Courriel «abc» est valide: ',IsEmail('abc'));
  39.  WriteLn('Courriel «@» est valide: ',IsEmail('@'));
  40.  WriteLn('Courriel «@abc.abc» est valide: ',IsEmail('@abc.abc'));
  41.  WriteLn('Courriel «abc@gladir.com» est valide: ',IsEmail('abc@gladir.com'));
  42.  WriteLn('Courriel «abc@@gladir.com» est valide: ',IsEmail('abc@@gladir.com'));
  43.  WriteLn('Courriel «abc@gl][adir.com» est valide: ',IsEmail('abc@gl][adir.com'));
  44. END.

on obtiendra le résultat suivant :

Courriel «abc» est valide: FALSE
Courriel «@» est valide: FALSE
Courriel «@abc.abc» est valide: FALSE
Courriel «abc@gladir.com» est valide: TRUE
Courriel «abc@@gladir.com» est valide: FALSE
Courriel «abc@gl][adir.com» est valide: FALSE

Code source

Voici des exemples du code source de ce programme sur GitHub :

Lien Langage de programmation Projet
https://github.com/gladir/NETWORKKIT-P/blob/main/ISEMAIL.PAS Turbo Pascal, Free Pascal NETWORKKIT-P


Dernière mise à jour : Dimanche, le 17 janvier 2016