如何将空格替换为*

1. %macro aaa(strata=);
   
2. 
   
3. %put &strata;
   
4. %mend;

复制代码

%aaa(strata=a);
&strata显示为a

%aaa(strata=a b);
&strata显示为a*b


%aaa(strata=a   b); /*a和b间可能有两个或三个空格*/
&strata显示为a*b

%aaa(strata=a b c);
&strata显示为a*b*c


谢谢！

%sysfunc(tranwrd(&strata,%str(),"*"))

compbl()这个函数可以将多个空格变成一个空格