Discussion :

[SergioMaster]

Bonjour,
je rajoute un test pour les e-mails avec un petit raffinement pour le tri, la possibilité de faire le tri classique ou par domaine+nom

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
  function ExprMail(const S : String; var V : String; tripardomaine : Boolean = False):  TSortTypeInterne;
  var Expr : TRegEx;
      Match : TMatch;
      const Expression = '(?<Nom>[a-zA-Z0-9_\-\.]+)@'+
      '(?<Domaine>((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|'+
      '(([a-zA-Z0-9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3}))';
  begin
    Expr:=TRegEx.Create(Expression,[roExplicitCapture]);
    Match:=Expr.Match(S);
    if Match.Success then
      begin
        if triparDomaine then V:=Match.Groups['Domaine'].Value+Match.Groups['Nom'].Value
                else V:=S;
        result:=stiEmail;
      end
      else begin
        V:=S;
        result:=stiText;
      end;
  end;

[retwas]

Depuis un petit moment les extensions des adresses sont libres je peux avoir un domaine www.domaine.monsiteperso et donc l'email associé, il faudrait repousser la limite des 4 caractères à la fin

[SergioMaster]

Bonjour,

l'expression fonctionne déjà pour ce genre d'adresse

[retwas]

Bonjour,

l'expression fonctionne déjà pour ce genre d'adresse

mais le groupe "domaine" s'arrête à 4 caractères après le point

[SergioMaster]

J'ai peut être fait une erreur de copie, mais dans mon programme c'est ok
je ne refais donc qu'un copier coller de l'expression

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
      const Expression = '(?<Nom>[a-zA-Z0-9_\-\.]+)@'+
      '(?<Domaine>((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|'+
      '(([a-zA-Z0-9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3}))';

mais je crois bien qu'elles sont identiques (flemme de vérifier ma séance de kiné m'a rincé)

comme tu m'as mis le doute voici 2 petites images
1- résultat "normal"

2- résultat avec d'abord le nom de domaine (tripardomaine=true)

et effectivement il y a une petite c...e avec l'expression je corrigerai ce w.e.

[SergioMaster]

Bonjour, pour les emails !

Après avoir longtemps cherché je suis "tombé" sur ce site
Beaucoup plus complexe mais correspondant aux normes RFC5322 et RFC1035

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
(?<Nom>(\A(?:[a-z0-9!#$%&'*+/=?^_`{|}~-]+(?:\.[a-z0-9!#$%&'*+/=?^_`{|}~-]+)*
 |  "(?:[\x01-\x08\x0b\x0c\x0e-\x1f\x21\x23-\x5b\x5d-\x7f]
      |  \\[\x01-\x09\x0b\x0c\x0e-\x7f])*"))
@ (?<Domaine>(?:(?:[a-z0-9](?:[a-z0-9-]*[a-z0-9])?\.)+[a-z0-9](?:[a-z0-9-]*[a-z0-9])?
  |  \[(?:(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.){3}
       (?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?|[a-z0-9-]*[a-z0-9]:
          (?:[\x01-\x08\x0b\x0c\x0e-\x1f\x21-\x5a\x53-\x7f]
          |  \\[\x01-\x09\x0b\x0c\x0e-\x7f])+)
     \])\z))

toutefois, celle-ci, plus simple (pas d'adresse IP) devrait couvrir les besoins

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
\A(?<Nom>[a-z0-9!#$%&'*+/=?^_`{|}~-]+(?:\.[a-z0-9!#$%&'*+/=?^_`{|}~-]+)*)@
(?<Domaine>(?:[a-z0-9](?:[a-z0-9-]*[a-z0-9])?\.)+[a-z0-9](?:[a-z0-9-]*[a-z0-9])?)\z

si vous continuez à lire la partie du site indiqué vous verrez qu'il devrait y avoir en plus un test de longueur, l'expression devient alors

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
(?<Nom>\A(?=[a-z0-9@.!#$%&'*+/=?^_`{|}~-]{6,254}\z)
 (?=[a-z0-9.!#$%&'*+/=?^_`{|}~-]{1,64}@)
 [a-z0-9!#$%&'*+/=?^_`{|}~-]+(?:\.[a-z0-9!#$%&'*+/=?^_`{|}~-]+)*)
@ (?<Domaine>(?:(?=[a-z0-9-]{1,63}\.)[a-z0-9](?:[a-z0-9-]*[a-z0-9])?\.)+
  (?=[a-z0-9-]{1,63}\z)[a-z0-9](?:[a-z0-9-]*[a-z0-9])?)\z

mais comme le dit cet auteur il faudra vérifier pour que cela réponde a vos besoins

NB: j'ai préféré rajouter les groupes Nom et Domaine plutôt qu'éplucher les différents groupes établis
il ne vous reste plus qu'à choisir et changer dans le source un peu plus haut

[Roland Chastain]

@SergioMaster

Pardon, j'ai un peu décroché pendant quelques jours mais est-ce que tu pourrais expliquer à quoi sert l'option roExplicitCapture ?

[retwas]

@SergioMaster

Pardon, j'ai un peu décroché pendant quelques jours mais est-ce que tu pourrais expliquer à quoi sert l'option roExplicitCapture ?

Le roExplicitCapture permet d'indiquer que pour être capturé les groupes doivent être de la forme (?<groupe>...) comme l'écrit Sergio

[Roland Chastain]

Le roExplicitCapture permet d'indiquer que pour être capturé les groupes doivent être de la forme (?<groupe>...) comme l'écrit Sergio

Merci !