extraire des adresses emails d'un texte

Le
Alfred WALLACE
Bonjour,
je dispose d'un ensemble texte que colle
dans une cellule de excel.

le texte collé ressemble à çà :

non@serveur.fr,"machin toto"<coucou@ici.com>,

je souhaite en faite, trouver une méthode "universelle" capable, dans
un ensemble de caractères en vrac, de retrouver des adresses emails
pour
les stocker dans un tableau.

existet-il une méthode ? je me proposais de faire quelque chose comme
çà :

1 - trouver le caractère "@"
2 - rechercher tous les caractères à gauche de @ tant que l'on a des
caractères
qui appartiennent à un ensemble "a-z, A-Z, 0-9, -_." puis
3 - rechercher tous les caractères à droite de @ jusqu'au "." puis
tous les
caractères après le "." comme le point 2

4 - une fois que l'on connait les x caractères à droite et à gauche du
@ on extrait
cette sous-chaine pour la mettre dans un tableau.

5 - bon, c'est un peu tordu, mais, si je pouvais avoir un ch'tit coup
de main ?

Merci
José
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
FFO
Le #4461001
Salut Alfred
Prenant pour hypothèse que les adresses sont séparées entre elles par une
virgule ","
Sur la cellule active dans une boite de dialogue les différentes adresses
avec ce code :

Chaine = ""
For i = 1 To Len(ActiveCell)
car = Mid(ActiveCell, i, 1)
Chaine = Chaine & car
If car = "," Then
MsgBox (Mid(Chaine, 1, Len(Chaine) - 1))
Chaine = ""
End If
Next
MsgBox (Chaine)

Qu'en penses tu ???
Dis moi !!!



Bonjour,
je dispose d'un ensemble texte que colle
dans une cellule de excel.

le texte collé ressemble à çà :

,"machin toto"
je souhaite en faite, trouver une méthode "universelle" capable, dans
un ensemble de caractères en vrac, de retrouver des adresses emails
pour
les stocker dans un tableau.

existet-il une méthode ? je me proposais de faire quelque chose comme
çà :

1 - trouver le caractère "@"
2 - rechercher tous les caractères à gauche de @ tant que l'on a des
caractères
qui appartiennent à un ensemble "a-z, A-Z, 0-9, -_." puis
3 - rechercher tous les caractères à droite de @ jusqu'au "." puis
tous les
caractères après le "." comme le point 2

4 - une fois que l'on connait les x caractères à droite et à gauche du
@ on extrait
cette sous-chaine pour la mettre dans un tableau.

5 - bon, c'est un peu tordu, mais, si je pouvais avoir un ch'tit coup
de main ?

Merci
José




Alfred WALLACE
Le #4483731
Salut,
merci de ton aide ! malheureusement, l'hypothèse n'est pas possible,
disons que, les adresses arrivent "en vrac" dans un texte qui peut
contenue
tout et n'importe quoi (enfin, des caractères imprimables quand meme!)

Donc, je dois trouver une méthode pour "reconnaitre" l'email.

Pour moi, un email peut se reconnaitre (visuellement) comme cela :

<des_caractères_sans_espaces_accent-ni-pointuation_a-z-A-Z>

séparé par le caractère "@"


en fait, je dois, à partir du premier "@" que je trouve, collecter
tous les caractères "valident"
et contigus dans une adresse email.
Puis, la même chose à droite du "@".

je ne sais pas si c'est bien clair, mais, mes emails ne sont pas
forcément
séparé toujour par une virgule.

Merci encore.
José





On 26 avr, 09:08, FFO
Salut Alfred
Prenant pour hypothèse que les adresses sont séparées entre elles p ar une
virgule ","
Sur la cellule active dans une boite de dialogue les différentes adress es
avec ce code :

Chaine = ""
For i = 1 To Len(ActiveCell)
car = Mid(ActiveCell, i, 1)
Chaine = Chaine & car
If car = "," Then
MsgBox (Mid(Chaine, 1, Len(Chaine) - 1))
Chaine = ""
End If
Next
MsgBox (Chaine)

Qu'en penses tu ???
Dis moi !!!


FFO
Le #4483161
Attention le seul repère @ pour détecter et extraire une adresse es
insuffisant dans une suite d'adresse
Comment repérer le début et la fin d'une adresse en partant de son @
Quasiment impossible surtout pour le début sachant que la fin pour une bonne
part se termine par un .fr, .com, .org ect... bienque pour certain un
complément peut être associé
Donc je pense qu'en l'état dur dur de trouver une solution


Salut,
merci de ton aide ! malheureusement, l'hypothèse n'est pas possible,
disons que, les adresses arrivent "en vrac" dans un texte qui peut
contenue
tout et n'importe quoi (enfin, des caractères imprimables quand meme!)

Donc, je dois trouver une méthode pour "reconnaitre" l'email.

Pour moi, un email peut se reconnaitre (visuellement) comme cela :

<des_caractères_sans_espaces_accent-ni-pointuation_a-z-A-Z>

séparé par le caractère "@"


en fait, je dois, à partir du premier "@" que je trouve, collecter
tous les caractères "valident"
et contigus dans une adresse email.
Puis, la même chose à droite du "@".

je ne sais pas si c'est bien clair, mais, mes emails ne sont pas
forcément
séparé toujour par une virgule.

Merci encore.
José





On 26 avr, 09:08, FFO
Salut Alfred
Prenant pour hypothèse que les adresses sont séparées entre elles par une
virgule ","
Sur la cellule active dans une boite de dialogue les différentes adresses
avec ce code :

Chaine = ""
For i = 1 To Len(ActiveCell)
car = Mid(ActiveCell, i, 1)
Chaine = Chaine & car
If car = "," Then
MsgBox (Mid(Chaine, 1, Len(Chaine) - 1))
Chaine = ""
End If
Next
MsgBox (Chaine)

Qu'en penses tu ???
Dis moi !!!






Alfred WALLACE
Le #4497801
On 27 avr, 20:50, FFO
Attention le seul repère @ pour détecter et extraire une adresse es
insuffisant dans une suite d'adresse
Comment repérer le début et la fin d'une adresse en partant de son @
Quasiment impossible surtout pour le début sachant que la fin pour une bonne
part se termine par un .fr, .com, .org ect... bienque pour certain un
complément peut être associé
Donc je pense qu'en l'état dur dur de trouver une solution


Salut,
merci de ton aide ! malheureusement, l'hypothèse n'est pas possible,
disons que, les adresses arrivent "en vrac" dans un texte qui peut
contenue
tout et n'importe quoi (enfin, des caractères imprimables quand meme!)

Donc, je dois trouver une méthode pour "reconnaitre" l'email.

Pour moi, un email peut se reconnaitre (visuellement) comme cela :

<des_caractères_sans_espaces_accent-ni-pointuation_a-z-A-Z>

séparé par le caractère "@"

en fait, je dois, à partir du premier "@" que je trouve, collecter
tous les caractères "valident"
et contigus dans une adresse email.
Puis, la même chose à droite du "@".

je ne sais pas si c'est bien clair, mais, mes emails ne sont pas
forcément
séparé toujour par une virgule.

Merci encore.
José

On 26 avr, 09:08, FFO
Salut Alfred
Prenant pour hypothèse que les adresses sont séparées entre ell es par une
virgule ","
Sur la cellule active dans une boite de dialogue les différentes ad resses
avec ce code :

Chaine = ""
For i = 1 To Len(ActiveCell)
car = Mid(ActiveCell, i, 1)
Chaine = Chaine & car
If car = "," Then
MsgBox (Mid(Chaine, 1, Len(Chaine) - 1))
Chaine = ""
End If
Next
MsgBox (Chaine)

Qu'en penses tu ???
Dis moi !!!






Publicité
Poster une réponse
Anonyme