Fonction pour extraire des emails dans un texte
Contenu du snippet
Rechercher tous les Emails dans un texte avec une expression régulière ... et les renvoi dans MatchCollection :-)
j'utilise cette fonction sur mon site de <a href="http://www.euros-laser.com">vente de cartouches d'encre et toners compatibles</a>
j'utilise cette fonction sur mon site de <a href="http://www.euros-laser.com">vente de cartouches d'encre et toners compatibles</a>
Source / Exemple :
Imports System.Text.RegularExpressions
Public Class SearchEngine
Public Shared Function Search_mail(ByVal text As String) As System.Text.RegularExpressions.MatchCollection
Dim RegexpEmail As New Regex("\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*")
Dim result As System.Text.RegularExpressions.MatchCollection, I As Integer
result = RegexpEmail.Matches(text)
Dim tableau As Array
If result.Count > 0 Then
Return result
Else
Return Nothing
End If
End Function
End Class
A voir également
- Fonction pour extraire des emails dans un texte
- Extraire des données d'un fichier excel avec python ✓ - Forum Python
- Roulettechat texte - Forum PHP
- Vba écrire dans un fichier texte - Conseils pratiques -Visual Basic / VB.NET
- Texte aléatoire - Forum Visual Basic
- Extraire le texte d'une page web - Forum Visual Basic
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.