%eval d'un champ alphanumérique [Résolu]

[aminao]

Bonjour,

J'ai un champ alphanumérique nommé "Formule" ds une table qui a la structure suivante:

Formule
---------------------------
1000 +2000 |
etape1.Ind0+etape0.Ind2 |
3000+5000 |
etape1.Ind2/etape1.Ind3 |

Je veux evaluer les champ dont la valeur vaut 1000+2000 et 3000+5000
sauf que c'est po possible avec %eval puisqu'il s'agit d'un champ alphanumérique, y'a t-il autres manières pour le faire ?

[s_a_m]

t'as la fonction FIND

[aminao]

je pense que find equivalent à index pour faire la recherche d'un mot ou caractère et non po pour évaluer une opération arithmétique, non?

[s_a_m]

oui c'est à peu prés sa , c'est quoi que t'appel évaluer ou bien que veux tu faire au juste ?

[aminao]

je veux évaluer opération 1000+2000 sachant qu'elle est sauvegardée dans une variable alphanumérique

[MDsas]

Moi je pense que si ton évaluer correspond à faire la somme de 1000+2000, donc 3000 (par exemple). Une solution pourrait etre une somme conditionnelle couplée avec Find.
Si avec le Find tu trouves 'etape' , tu fais rien sinon tu fais %eval.

[aminao]

le problème que %eval n'accepte po des variables de type alphanumerique
par exempl le code suivant ne foncionne po

Code :

1
2
3
4
DATA _null;
%let c="100+200";
z=%eval(&c.);
run;

or si je fé:

Code :

1
2
3
4
DATA _null;
%let c=100+200;
z=%eval(&c.);
run;

ca marche, ma question y'a t-il po uen façon pour évaluer
"1000+2000" sans faire la conversion du type

[s_a_m]

Je crois que tu te compliques beaucoups la vie!!.
pour extrtaire les numérique , il faut utiliser les expressions régulières ,
moi j'ai bricolé un truc vite fait. tu peux utiliser les call symput pour stoquer les résultats dans des macros variables sinon passer pas des %sysfunc et %eval, tu peux aussi ajouter des IF pour ne traiter que les cas que tu veux :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
 
DATA test;
INFILE cards ;
input formule $60.;
cards;
1000 +2000 |
etape1.Ind0+etape0.Ind2 |
3000+5000 |
etape1.Ind2/etape1.Ind3 |
;
run;
 
 
DATA calcule;
SET test;
a = input(scan (compress ( formule, 'abcdefghijkImnopqrstuvwxyz |/ . '),1,'+'),best.)+  input(scan (compress ( formule, 'abcdefghijkImnopqrstuvwxyz |/ . '),-1,'+'),best.);
run;

[bahraoui]

ça peut dépanner

Code :

1
2
3
%let formule="1000 +2000";
%let f=%eval(%sysfunc(compress( &formule,'"')));
%put &f;