correction %macro fonction [Résolu]

[aminao]

Bonjour,
Merci bien de m'aider à corriger cette macro, elle a comme paramètres deux: un sous forme "X+Y-Z" et le deuxième contient les valeurs de X Y et Z séparés par virgule "10,20,5" . La macro doit retourner comme résultat "10+20-5"

Code :

1
2
3
4
5
6
7
8
9
10
11
%macro REPLACE(a,b);
DATA n;
result0=a;
%do i=1 %TO 2;
ch1&i=scan(b,&i,',');
ch2&i=scan(a,&i,'+||\/||-||*');
result&i=tranwrd(result(&i-1),ch2&i,ch1&i);
%end;
run;
%mend;
%REPLACE("X+Y","10,20");

[aminao]

J'ai corrigé qques erreurs mais ca fonctionne po encore parfaitement,en fait il y'a un rob avec tranwrd, il faut soit ne pas interpreter les "" dans result&j ou bien ajouter les "" à ch1&i mais comment le faire

Code :

1
2
3
4
5
6
7
8
9
10
11
12
%macro REPLACE(a,b);
DATA n;
result0=&a.;
%do i=1 %TO 2;
ch1&i=scan(&b.,&i,',');
ch2&i=scan(&a.,&i,'+||\/||-||*');
%let j=%eval(&i-1);
result&i=tranwrd(result&j.,ch2&i,ch1&i);
%end;
run;
%mend;
%REPLACE("X+Y","10,20");

[bahraoui]

Il manque des %let, tu crées des macros variables..

Code :

1
2
3
%let ch1&i=scan(b,&i,',');
%let ch2&i=scan(a,&i,'+||\/||-||*');
%let result&i=tranwrd(result(&i-1),ch2&i,ch1&i);

Essaye d'afficher les résultats à l'aide d'un %put au fur est a mesure pour trouver rapidement les problèmes

[aminao]

Merci bcp Bahraoui, c'est résolu:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
%macro REPLACE(a,b);
DATA n;
result0=&a.;
%let cpt=%sysfunc(countc(&a.,'+'))+%sysfunc(countc(&a.,'-'))+%sysfunc(countc(&a.,'*'))+%sysfunc(countc(&a.,'/'));
%put &cpt.;
%do i=1 %TO &cpt.+1;
%let ch1&i=scan(&b.,&i,',');
%put &&ch1t&i.;
%let ch2&i=scan(&a.,&i,'+||\/||-||*');
%put &&ch2&i.;
%let j=%eval(&i-1);
result&i=tranwrd(result&j,&&ch2&i.,&&ch1&i.);
z&i=result&i.;
%end;
run;
%mend;
%REPLACE("X+Y-C+R+D","10,20,30,40,50");

[bahraoui]

cool que ça marche

[s_a_m]

oui c'est cool , il manque juste de cliquer sur