Discussion :

[hamdy1999]

Bonjour,
j'aurais besoin d'aide concernant un problème que je rencontre.
Je m'explique: j'ai un travail à faire, une des étapes serait de saisir un code qui permette de supprimer des adresses mails incorrectes. J'ai utilisé le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
proc sql;
   create table TR.tablef2 as
       select *
       from TR.tablef
       where cc_email not like '%.co' and cc_email not like '%.c' and cc_email not like '%.f' and cc_email not like '%.' and cc_email not like '%@' and cc_email not like 'xx%' and cc_email not like '0788%' and cc_email not like '0@%' and cc_email not like '09%' and cc_email not like "111%" and cc_email not like '2812%' and cc_email not like '04%' and cc_email not like '05%' and cc_email not like '064%' and cc_email not like '065%' and cc_email not like '069%'  and cc_email not like 'xx%' and cc_email not like '060%' and cc_email not like '062%' and cc_email not like '063%' and cc_email not like '061%' and cc_email not like '032%' and cc_email not like '038%' and cc_email not like '068%' and cc_email not like '067%' and cc_email not like '066%' and cc_email not like '015%' and cc_email not like '1539%' and cc_email not like '1505%' and cc_email not like '1389%'and cc_email not like 'FGH%' and cc_email not like 'non%' and cc_email not like "123@%" and  cc_email not like "aeae%" ;
quit;

mais ce code est trop long. Ce qu'il me faudrait, c'est supprimer toutes les adresses incorrectes à l'aide d'un code plus simple si possible.
Toute aide serait la bienvenue

Merci

[s_a_m]

hello,
tu peux passer par les expressions régulières , exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
 
data cible;
set source;
 if PRXMATCH("/^[\w-]+@[\w-]+\.[a-z]{2,4}$/i", cc_email )=0 then delete;
run;

[hamdy1999]

Salut,
Ok, tu pourrais m'expliquer cette partie du code stp car je ne la comprend pas.
PRXMATCH("/^[\w-]+@[\w-]+\.[a-z]{2,4}$/i", cc_email )=0

Merci

[s_a_m]

Je ne vais pas te donner un cours sur les expressions régulières, mais voici une petite explication :

une adresse mail doit une_chaine_de_caractères ( [\w-]+) suivi de @ suivi d'une_chaine_de_caractères ( sous demaine) ([\w-]) suivi d'un point(.) suivi d'une_chaine_de_caractères ( domaine) de 2 à 4 caractère ([a-z]{2,4}).

[hamdy1999]

C'est tout de même un cours que tu viens de me donner lol.
Merci pour ton aide

[hamdy1999]

Pour ceux que ça intéressent, en utilisant ce code, j'ai pu supprimer les adresses mails incorrectes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
data b;
set a;
if PRXMATCH("/^([a-zA-Z0-9_\.\-])+@(([a-zA-Z0-9\-])+\.)+(com|org|net|gov|biz|info|name|aero|fr|be|co.uk|it|eu|es|de|info)+$/i"),strip(ta_variable)) then output;
run;

La table b ne contiendra que les bonnes adresses.
Jsper que ça pourra aider

[VuVietHai]

Pour ceux que ça intéressent, en utilisant ce code, j'ai pu supprimer les adresses mails incorrectes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
data b;
set a;
if PRXMATCH("/^([a-zA-Z0-9_\.\-])+@(([a-zA-Z0-9\-])+\.)+(com|org|net|gov|biz|info|name|aero|fr|be|co.uk|it|eu|es|de|info)+$/i"),strip(ta_variable)) then output;
run;

La table b ne contiendra que les bonnes adresses.
Jsper que ça pourra aider

Bonjour j'ai essayé ton code mais cela donne une message d'erreur
Pas assez d'arguments à l'appel de la fonction PRXMATCH.

[VuVietHai]

hello,
tu peux passer par les expressions régulières , exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
 
data cible;
set source;
 if PRXMATCH("/^[\w-]+@[\w-]+\.[a-z]{2,4}$/i", cc_email )=0 then delete;
run;

j'ai essayé ton code mais cela a supprimé toutes mes adresse dans ma table (source)
voici une partie de ma table

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
DATA test1;
SET test;
 IF PRXMATCH("/^[\w-]+@[\w-]+\.[a-z]{2,4}$/i", EMAIL )=0 then DELETE;
run;

[hamdy1999]

Salut,

Bizarre! Chez moi, ça marche nickel.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Data b;
	Set a;
	if PRXMATCH("/\*{1,30}|^\-{1,30}@|^\d{1,30}@|\+{1,30}|\~{1,30}|[\/]{1,30}|\w+@+\d{1,30}\.\w$|^\d{1,30}[- .]\d{1,30}[1,30]@|^\-{1,30}@|@\d{1,30}\.\w{1,30}$|-{1,30}@\w{1,30}$|\d{4}\-\d{1,30}@|@\w{1,30}$|@\w{1,30}\.\w{1}$|@\w{1,30}\.*$|^\w{1,30}\_\d{1,30}$/i",strip(cc_email)) then delete;
	run;

Tu peux essayer de placer un

output

à place du

delete

pour voir les adresses qui seront supprimées.