1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
| data test;
suppr=upcase("&&suppr&i"); /* le mot à supprimer */
x=upcase("&liste"); /* la chaîne de caractères dans laquelle je veux supprimer le mot*/
f=FIND(x,suppr); /* la position du mot dans la chaîne (dernière lettre du mot)*/
if f=1 then y3=substr(x,f+length(suppr)); /* s'il s'agit du 1er mot, on prend la chaîne à partir du 2e mot*/
else if f>1 then do; /* s'il s'agit au moins du 2e mot*/
y1=substr(x,1,f-1); /* partie de la chaîne avant le mot*/
y2=substr(x,f+length(suppr)); /* partie de la chaîne après le mot */
y3=catt(y1,y2); /* on concatène les 2 parties*/
end;
call symput("liste",y3); /* je redéfinis ma nouvelle liste*/
run; |
Partager