如何去除macro变量中重复的字符？

shiyiming

比如：
%let aaa=a1 a1 a a111 a1 b;
如何去掉重复的，aaa解析为a1 a a111 b，谢谢！

shiyiming

首先你要指定分隔符，然后根据分隔符从字符串中依次读取子串，如果前边有了该子串，则不把此次读取的子串追加到一个宏变量中，否则追加到一个宏变量中。

Qiong

读成dataset，nodup，再放回宏变量

shiyiming

<!-- s:D --><img src="{SMILIES_PATH}/icon_biggrin.gif" alt=":D" title="Very Happy" /><!-- s:D -->

shiyiming

if you use SAS 9.2 then the code may be working:

[code:2o2zt2wg]%macro deStringMcr/mindelimiter = '';options minoperator;       
        %local i string; %global new_aaa;
        %let i = 2;        %let new_aaa = %scan(&amp;aaa, 1);
        %do%while(%scan(&amp;aaa, &amp;i) ne );
                %let string = %scan(&amp;aaa, &amp;i);               
                %if not (&amp;string  in &amp;new_aaa)  %then %let new_aaa = &amp;new_aaa &amp;string;
                %let i = %eval(&amp;i+1);
        %end;        
%mend deStringMcr;

%let aaa = a1 a1     a a111 a1 b;
%deStringMcr
; %put &amp;new_aaa;[/code:2o2zt2wg]

shiyiming

1、更新了一下
2、鸣谢国际大咖jingju11
[code:3nnxqk5y]%macro test(in_str);
   %let dlm=%str( );
   %let in_str=%upcase(&amp;in_str);
   %let out_str=%scan(&amp;in_str,1,&amp;dlm);
   %let i=2;
   %let sub_str=%scan(&amp;in_str,&amp;i,&amp;dlm);
   %do %while(&amp;sub_str ne);
          %if %sysfunc(indexw(&amp;out_str,&amp;sub_str,&amp;dlm))=0 %then %let out_str=&amp;out_str &amp;sub_str;
          %let i=%eval(&amp;i+1);
          %let sub_str=%scan(&amp;in_str,&amp;i,&amp;dlm);
   %end;
   &amp;out_str
%mend;

%let aaa=%test(a1 a1   a a111 A1 b 1);
%put NOTE&#58;aaa=&amp;aaa;[/code:3nnxqk5y]

shiyiming

有更好的方法吗？