Enlever des caractères d'une variable [Résolu]

[vince_est]

Bonjour à tous,

Voilà, j'ai besoin d'un peu d'aide. Je dois réaliser un croisement entre une table de notre base de données et un tableau excel qui m'a été envoyé.

La clé de jointure est un identifiant spécifique à chaque dossier.

Le problème est que, dans mon fichier Excel, cet identifiant n'est pas du même format que celui de ma table.
En effet, dans ma table, j'ai des identifiants de ce genre: "425733" ou "13" ou "654" . Dans mon tableau Excel, j'ai "00013", "014365", "0397384 D"," 427665", "01324E" etc...
Pour m'y retrouvé, j'ai besoin de supprimer les caractères pouvant se trouver dans ma variable ainsi que les 0 au début de celle-ci. Etant donné que la longueur de ma chaine de caractère varie, je suis un peu paumé quant à la méthode à appliquer.

Merci d'avance

[sasadm]

Salut, il y a pas mal de solutions à ton problème. La plus intéressante (à mon avis) est d'avoir recours aux expressions régulières.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
DATA caractere;
input clecar $14.;
cards;
00013
014365
0397384 D
0000030008 DR70007
;
run;
 
 
DATA cle;
retain reg_cle;
IF _n_=1 then do;
 
	reg_cle=prxparse("/0*(\d+)/");
 
end;
 
SET caractere;
 
pos=prxmatch(reg_cle, clecar);
IF  pos then cle=input(prxposn(reg_cle, 1, clecar), best.);
run;

pour avoir des infos sur les expressions régulières, google:

Code :

perl site:sas.com filetype:pdf

[vince_est]

Je ne connaissais pas cette fonction et je n'aurais jamais trouvé ça tout seul.

En tout cas, ça fonctionne impeccable, merci beaucoup de ton aide.

[xav2229]

Stl,

pas forcement mieux, mais plus simple :

COMPRESS Function

x

[Manoutz]

la compress risque de virer les 0 qquelquesoit l'endroit non? par exemple sur la valeur 0012302?

[xav2229]

correct! j'avais pas vu

ainsi que les 0 au début de celle-ci.

mais bon :

Code :

1
2
3
4
5
DATA _NULL_;
   x = '0397384 D';
   z = input(compress(x, 'D '), best.);
   put z =;
run;

Mais il ne faudrait pas avoir :

Code :

   x = '0397384 D0';

X

[MEGAMIND2]

Je te propose une solution qui n'est surement pas la plus optimale.
Si l'alphabet évolue d'ici là, tu le rajouteras à la macro &liste

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
DATA caractere;
input clecar $14.;
cards;
00013
014365
0397384 D
0000030008 
DR70007
;
run;
 
%LET liste=A B C D E F G H I J K L M N O P Q R S T U V W X Y Z;
 
%MACRO CONVERSION;
DATA  Numerique;
	SET caractere;
	%DO i=1 %TO 26;
		%LET liste&i=%SCAN(&liste.,&i.,' ');/* Scan la liste &liste.*/
		clecar=tranwrd(clecar,"&&liste&i.",' ');/* remplace du alpha-numérique par un blanc*/
		U=clecar*1;/* conversion en numérique*/
	%END;
	RUN;
%MEND CONVERSION;
 
%CONVERSION;;

[bahraoui]

Envoyé par xav2229

correct! j'avais pas vu

mais bon :

Code :

Mais il ne faudrait pas avoir :

Code :

   x = '0397384 D0';

X

Bonjour,
Ta solution est bonne, ce qui est demandé
supprimer les caractères de la chaine (la fonction compress le fait bien)
supprimer le premier caractère si c'est un zero (la convertion de la chaine numérque avec la fonction input répond à se besoin).
Je rajoute un truc pour généraliser le traitement:

Code :

1
2
3
4
5
DATA _NULL_;
   x = '039738SDFSFD4 Da';
   z = input(compress(x, 'ABCDEFGHIJKLMNOPQRSTUVWXYZ ','i'), best.);
   put z =;
run;

l'option "i" : traiter les majuscules et les minuscules.
Salah