;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