求助宏变量中如何去除重复的

shiyiming

%let aaa=a b c a c d f;
如何去除重复的，得到a b c d f!

shiyiming

[code:138d25jz]%let aaa=a b c a c d f a d d f;
%macro nodup(var);
%local i temp;
%let i=1;
%let temp=%scan(&&&var,&i);
%do %while(&temp ne);
        %let &var=&temp %sysfunc(tranwrd(&&&var,&temp,));
        %let i=%eval(&i+1);
        %let temp=%scan(&&&var,&i);
%end;
%let &var=%sysfunc(reverse(&&&var));
%mend;

%nodup(aaa);

%put &aaa;[/code:138d25jz]

shiyiming

[code:3mzh4916]%let aaa=a b c a c d f d d1;
%macro removeMcr;
   %local f1 f2 aaa1 aa;
        %let f1 =;        %let aaa1 =&aaa; %let i =1;
        %do%while(%scan(&aaa, &i) ^=%str( ));
                %let f =%scan(&aaa, &i);
                %let f1 =&f1 &f; %let aa =; %let j =1;
                %do%while(%scan(&aaa1, &j) ^=%str( ));
                        %let f2 =%scan(&aaa1, &j);
                        %if  &f2 =&f  %then %let f2=;
                        %let aa =&aa &f2; %let j =%eval(&j+1);
                %end;
                %let aaa1 =&aa; %let aaa =&f1 &aaa1; %let i =%eval(&i+1);
                %put **&i **f=&f  **f1=&f1 **aaa1=&aaa1 **aaa=&aaa;
        %end;
%Mend removeMcr;

%removeMcr
;
%put &aaa
;
[/code:3mzh4916]
不知道为什么tranwrd在macro里改变功能？所以只好用循环去替代

shiyiming

[code:3ok8u4pd]%macro nodup(var);
    data temp;
        do i=1 to length(compbl("&var"))-Length(compress("&var"))+1 ;
        word=put(scan("&var",i), $10.);
        output;
        end;
     run;
     proc sql;
        select distinct word into :var separated by ' '
        from temp;
    %put var=&var;
%mend;

%nodup(a b c a c d f a d d f);[/code:3ok8u4pd]

shiyiming

谢谢jingju11的建议，tranwrd 很难用。。。想办法用上去了。。。还是ahuige的思想厉害。。。
[code:2nplq44m]%let aaa=a b c a c d f a d d f1 a _F1 abc;
%macro nodup(var);
%local temp left;
%let temp=%scan(&&&var,1);
%let left=%sysfunc(tranwrd(&&&var,%str( ),%str(  )));
%let &var=;
%do %until(&temp eq );
        %let left=%sysfunc(tranwrd(%str( )&left%str( ),%str( )&temp%str( ),%str( )));
        %let &var=&&&var &temp ;
        %let temp=%scan(&left,1);
%end;
%mend;

%nodup(aaa);

%put &aaa; [/code:2nplq44m]

shiyiming

to Ahuige:
运行 %nodup(a c b c a c d f a d d f);
结果仍然是a b c d e f,也就是sql 对结果排序。如何保留 a c b d e f 呢？

shiyiming

[code:3850i3n8]%macro nodup(var);
    data temp;
        do i=1 to length(compbl("&var"))-Length(compress("&var"))+1 ;
        word=put(scan("&var",i), $10.);
        output;
        end;
     run;
     proc sql;
        select word into :var separated by ' '
        from temp
        group by word
        having i=min(i)
        order by i;
    %put var=&var;
%mend;

%nodup(a c b c a c d f a d d f);[/code:3850i3n8]

shiyiming

还需要保持原顺序啊 <!-- s:shock: --><img src="{SMILIES_PATH}/icon_eek.gif" alt=":shock:" title="Shocked" /><!-- s:shock: -->
试试这样行么...
[code:2fl66mq2]%let aaa=a c a b c   d f;
%macro nodup(&amp;aaa);
data aa;
  do i=1 to count(&quot;&amp;aaa&quot;,&quot; &quot;)+1;
    i=i;
    x=scan(&quot;&amp;aaa&quot;,i,&quot; &quot;);
    output;
  end;
run;
proc sort nodupkey;
  by x;
run;
proc sort;
  by i;
run;
data _null_;
  set aa end=last;
  retain xx;
  format xx $250&#46;;
  xx=compbl(xx||&quot; &quot;||x);
  if last then call symput(&quot;var&quot;,xx);
run;
%mend;
%put &amp;var;[/code:2fl66mq2]

shiyiming

[code:6yrru0qn]%macro nodup(var);
    %let shortvar=;
    %do %while (%scan(&amp;var,1) ne );
    %if ( %index(&amp;shortvar,%str( )%scan(&amp;var,1)%str( ))=0)%then %let shortvar=&amp;shortvar%str( )%scan(&amp;var,1)%str( );
    %if %index(&amp;var,%str( ))&gt;0 %then %let var=%substr(&amp;var,%index(&amp;var,%str( )))%Str( );
    %end;
    %put shortvar=%sysfunc(compbl(&amp;shortvar));
%mend;

%nodup(a c b c a c d f a d d f);[/code:6yrru0qn]

shiyiming

%macro distinctlist(list);
  %local dlist i;
  %let dlist=%scan(&amp;list,1,%str( ));
  %let i=2;
  %do %while(%scan(&amp;list,&amp;i,%str( )) ne %str( ));
         %if %sysfunc(indexw(&amp;dlist,%scan(&amp;list,&amp;i,%str( ))))=0 %then %do;
                 %let dlist= &amp;dlist %scan(&amp;list,&amp;i,%str( ));
             %end;
                 %let i=%eval(&amp;i+1);
%end;
%put &amp;dlist;
%mend;
%distinctlist(%str(ab c d e a a ));