Accueil
Accueil Le Club Delphi Kylix C C++ Java J2EE DotNET & C# Visual Basic Access Pascal Dev Web PHP ASP XML UML SQLSGBD Windows Linux Autres
logo

precedent    sommaire    suivant   


Comment extraire une adresse email d'un texte ?
auteur : Erix14
CreateRegularExpression() définit une expression régulière.
ExtractRegularExpression() Extrait dans un tableau tous les emails valides d'une chaîne de caractères et renvoie le nombre d'emails extraits.
ReplaceRegularExpression() Remplace tous les emails valides d'une chaîne de caractères par une autre chaîne de caractères, dans cet exemple par 'EMAIL'.

;PureBasic 4.20
If CreateRegularExpression(0, "[a-zA-Z0-9\-\.]+@[a-zA-Z0-9\-]+\.[a-zA-Z]+")
   Dim resultat$(0)
   Debug "Extraire les adresses email d'un texte :"
   MaChaine.s = "un peu de texte |erix14@purebasic.fr pour tester (nico@developpez.com) encore du bla bla .'denis@purebasic.fr'. bla bla La@fin"
   Debug MaChaine
   a = ExtractRegularExpression(0, MaChaine, resultat$())
   a$ = ReplaceRegularExpression(0, MaChaine, "EMAIL")
   For k=0 To a-1
      Debug resultat$(k)
   Next
   Debug Str(a)+" adresses ont été trouvées."
   Debug a$
Else
   Debug RegularExpressionError()
EndIf

precedent    sommaire    suivant   

Consultez les autres F.A.Q's


Les sources présentés sur cette pages sont libre de droits, et vous pouvez les utiliser à votre convenance. Par contre cette page de présentation de ces sources constitue une oeuvre intellectuelle protégée par les droits d'auteurs. Copyright ©2008  Developpez LLC. Tout droits réservés Developpez LLC. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents et images sans l'autorisation expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à 3 ans de prison et jusqu'à 300 000 E de dommages et intérets. Cette page est déposée à la SACD.

Vos questions techniques : forum d'entraide Accueil - Publiez vos articles, tutoriels, cours et rejoignez-nous dans l'équipe de rédaction du club d'entraide des développeurs francophones. Nous contacter - Copyright 2000..2005 www.developpez.com