Discussion :

[festnicholls]

Bonjour,

Dans le cadre du traitement d'une base SAS, j'ai de très nombreuses variables qui possèdent trois suffixes différents tous de type _0000. Les chiffres ne sont pas forcément 0000 mais une chaîne de quatre chiffres.

Autant, je ne rencontre pas de problèmes pour renommer des variables et leur ajouter un suffixe à l'aide d'une macro autant je suis bloquée pour les enlever.

A l'heure actuelle, j'ai contourné le problème en faisant un proc contents de ma table, en les récupérant dans un csv que j'ouvre avec notepad++. Puis, j'utilise une expression régulière pour arriver à avoir rename var_suffixe=var;
Cependant, il faut ensuite que je copie colle cette partie de texte sous Notepad++ sur SAS et que j'exécute le programme.

Je pense qu'il doit y avoir une solution plus rapide mais j'aurai besoin de votre aide pour cela.

Merci d'avance.

[m.brahim]

Bonjour,

Je te propose cette solution:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Data test;
input var1_0000 var2_0001;
cards;
123 224
;run;
 
proc contents data =test out=test1;
run;
 
DATA _null_ ;
  set test1 end=eof;
   call execute ('proc datasets lib=WORK ;   modify test ; rename ') ;
   call execute ( compress (name) !! '=' !! compress (scan(name,1,'_')));
   call execute (';quit;');
run ;

Cordialement

[festnicholls]

Merci pour votre réponse.

Je viens de le tester et cela marche sans problème dans votre exemple.

Pour ma base, cela marche pour quelques variables mais pas toutes malheureusement. En effet, j'ai du manquer de précision lors de l'explication de mon problème. En effet, cela fonctionne bien pour les variables qui sont de type var_0000 mais en fait le var peut être de la forme suivante : tt_ddkdkd_0000 ou encore avoir d'autres underscore dans le nom ou avoir un nombre de caractères entre underscore qui varie. La seule constante est le suffixe _0000 ou encore _0001 ou _2015. Le suffixe se compose toujours d'un underscore et de quatre chiffres.

Je vous remercie pour votre réponse.

[m.brahim]

Une solution avec les expressions règulières et call execute

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Data test;
input var var1_0000 var2_0001 var1_var2_0001;
cards;
1 123 224 125
;run;
 
proc contents data =test out=test1;
run;
 
DATA _null_ ;
  set test1 end=eof;
   IF _N_=1 THEN RE = PRXPARSE("/\_\d{4}/");
   MATCH = PRXMATCH(RE,name);
   IF MATCH GT 0 THEN DO;
   call execute ('proc datasets lib=WORK ;   modify test ; rename ') ;
   call execute ( compress (name) !! '=' !! compress (substr(name,1,MATCH-1)));
   call execute (';quit;');
   end;
run ;

Cordialement

[festnicholls]

Je vous remercie beaucoup pour votre aide.