如何去掉宏变量每个词末尾的数字

%let vars=rbc1 rb1c2 wbc1 rbc2 wbc2 rbc2_2;
如何去掉宏变量每个词末尾的数字和_，并保留不重复的，顺序也不变，谢谢！
希望得到的宏变量的结果为rbc rb1c wbc。

试试看，只是结果的变量名的顺序有些不同

%let vars=rbc1 rb1c2 wbc1 rbc2 wbc2 rbc2_2;

data a;
str="&vars";
k=1;
do while(scan(str,k) ne "");
  str1=scan(str,k);
  newstr=substr(str1,1,length(translate(str1,' ','0123456789_')));
  output;
  k=k+1;
end;
run;

proc sql noprint;
  select distinct newstr into :vars1 separated by ' '
  from a;
quit;

%put &vars1;

有没更简单的方法？谢谢！

1. %macro rmN_/mINoperator;
   
2.         %global rs; %let rs =;%*overwrite &rs. if exists outside;
   
3.         %if not %length(&vars)%then%do; %put %nrstr(&var) is empty; %return; %end;
   
4.         %do i =1 %to %sysfunc(countw(&vars));
   
5.                 %let r =%sysfunc(substrn(%scan(&vars,&i),1,%sysfunc(findc(%scan(&vars,&i),a,a,-%length(&vars)))));
   
6.                 %if &r ^= %then%if not (&r in 1 &rs) %then %let rs =&rs &r;
   
7.         %end;        
   
8. %mend rmN_;

复制代码

楼上的方法利用转换出来的缩短的长度来截断字符串，非常好。我的方法基本上把它翻译成宏。仅供参考。
jingju
more stories seen:
http://blog.sina.com.cn/s/blog_a3a9263601016623.html