Discussion :

[Deciprog]

Bonjour,

Je souhaite réaliser une macro qui enregistre dans un "tableau" (1 mot par colonne) une chaine de mots délimitées par le caractère "-".

Cependant, j'ai quelques souci de syntaxe mais l'idée est ici :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
%macro tab(mots , delim);
	%let nbmots = %lenght(%scan(&mot,&delim);
	%let tableau() = "";
	%do i = 1 %to nbmots ;
		&tableau(&i) = %scan(&mot,&i,&delim) ;
	%end ;
	%return &tableau;
%mend ;
%tab(mot1-mot2-mot2 , "-");
 
%put &tableau(0); /*affiche mot1*/
%put &tableau(2); /*affiche mot3*/

Un petit coup de pouce ne serait pas de refus. Merci

[Manoutz]

Bonjour Deciprog,

quelques précisions:

• la fonction "lenght" n'existe pas
• toujours le même nom pour une variable macro (mot Vs mots)
• A ma connaissance il n'est pas possible d'utiliser les tableaux en language macro. Il faut créer autant de macros variables que d'affectations escomptées, chacune étant affectée d'un indice
• Il est plus simple de trvailler dans une étape data
• Préférrer le call symput au let
• travailler en language macro ne veut pas nécéssairement dire utiliser des macros fonctions

Je propose la solution suivante:

Code :

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

1
2
3
4
5
6
7
8
9
10
%macro tab(mots , delim);
data _null_;
	call symputx("nbmots",put(length(scan("&mots.",-1,"&delim."))-1,3.),"G");
	%do i = 1 %TO &nbmots. ;
		call symputx("tableau_"||compress(put("&i.",3.)), scan("&mots",input(compress("&i."),best12.),"&delim."),"G") ;
	%end ; 
run; 
%mend ;
%tab(mots=mot1-mot2-mot3, delim=-);	
%put _user_;

[RemiBousquet]

Une mini-correction :
la macro variable nbmots n'est résolue qu'à la fin de l'étape data, elle n'est donc pas disponible dans la boucle, ce qui provoque une erreur.

Solution "deux étapes data" :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
%macro tab(mots , delim);
DATA _null_;
	call symputx("nbmots",put(length(scan("&mots.",-1,"&delim."))-1,3.),"G");
run ;
DATA _null_;
	%do i = 1 %TO &nbmots. ;
		call symputx("tableau_"||compress(put("&i.",3.)), scan("&mots",input(compress("&i."),best12.),"&delim."),"G") ;
	%end ; 
run; 
%mend ;
%tab(mots=mot1-mot2-mot3, delim=-);	
%put _user_;

[datametric]

passe par la fonction RESOLVE pour la résoudre dans la même étape DATA.

[Manoutz]

Exact. Merci à vous deux.

Il y a même moyen d'éviter les macros variables (autres que paramètres):

Code :

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

1
2
3
4
5
6
7
8
9
10
%macro tab(mots , delim);
data _null_;
	nbmots2=length(scan("&mots.",-1,"&delim."))-1;
	do i = 1 TO nbmots2 ;
		call symputx("tableau_"||compress(put(i,3.)), scan("&mots",i,"&delim."),"G") ;
	end ; 	
run; 
%mend ;
%tab(mots=mot1-mot2-mot3, delim=-);	
%put _user_;

[Deciprog]

Merci à tous.

Ce code répond parfaitement à ce que je souhaitais.