| 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'.
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
|
|
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.
|