Discussion :

[hossward]

Bonjour,
J’ai besoin de répéter un texte ‘n’ fois pour le placer dans le programme SAS. J’ai donc, créé la macro suivante. Si je l’exécute à part elle engendre des erreurs même on la plaçant après l’input. Mais elle fonctionne correctement si je la place après le title avec le proc print.
Merci d’avance

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
%macro  n_fois (n) ;
 
%do i=1 %to &n ;  %bquote('(M&i)'n) %end ;   
 
%mend ;                  %n_fois (3) ;
 
options validvarname=any;
DATA test;
input %n_fois (3) ;  
cards;
30 10 100
40 20 200
50 30 300
;
run;    
PROC PRINT ; title %n_fois (3) ; RUN ;

[xav2229]

il y a la fonction REPEAT qui existe

[L0007]

Salut, je n'ai pas bien compris le but de ton code

Mais voici une version différente qui fonctionne.

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
21
22
23
24
25
26
%macro  n_fois (n) ;
 %global var_input;
 
%do i=1 %TO &n ;  
	%if &i=1 %then 
		%let var_input = ;
	%let txt = M&i;
	%let var_input = &var_input &txt.n;
%end ;   
 
%mend ;                  
 
%n_fois(3)
 
%put VAR_INPUT = &var_input;
 
options validvarname=any;
DATA test;
input &var_input ;  
cards;
30 10 100
40 20 200
50 30 300
;
run;    
PROC PRINT ; title &var_input ; RUN ;

[hossward]

Merci Loo7
Pour importer un fichier txt dont le nom des variables : (Var1) (Var2)......(Varn).
Afin que SAS puisse lire ces variables avec l'options validvarname=any; , et sans faire le travail manuellement, il faut que le nom de chaque variable ait la forme : '(Var1)'n ……. '(Varn)'n.
C'est le but de la macro %n_fois(3)que j'ai rectifié grâce à ton aide.
NB: l'importation ne marche qu'avec firstobs=2 ;

Bien cordialement

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
21
22
23
24
25
 
%macro  n_fois (n) ;
 %global var_input;
 
%do i=1 %TO &n ;  
	%IF &i=1 %then 
	%let var_input = ;
	%let txt ="(M&i)"n ;
	%let var_input = &var_input &txt;
%end ;   
 
%mend ;                  
 
%n_fois(3);               %put VAR_INPUT = &var_input;
 
options validvarname=any;
DATA test;
input &var_input ;  
cards;
30 10 100
40 20 200
50 30 300
;
run;    
PROC PRINT ;  RUN ;

[L0007]

Super .

N'oublie pas de cliquer sur le bouton