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

shiyiming

受启发，D版一个
还是喜欢弄到data步中弄..
[code:23ou655x]%let var=a c b c a c d f a d d f;
%macro nodup(var);
data _null_;
  lst=scan("&var",1);
  do i=2 to count("&var"," ")+1;
    if index(lst,scan("&var",i,""))=0 then lst=compbl(lst||" "||scan("&var",i," "));
  end;
  call symput("lst",lst);
run;
%mend nodup;
%put &lst;[/code:23ou655x]

shiyiming

[code:3nys9kfe]%macro avg/parmbuff;
%let num=1;
%let newchar=;
%let char=%scan(&syspbuff,&num);
%do %while(&char ne);
   %if &num=1 %then %let newchar=&char;
   %else %do;
      %if  %index(&newchar,&char) %then %let newchar=&newchar;
      %else %let newchar=%bquote(&newchar &char);
          %end;
   %let num=%eval(&num+1);
   %let char=%scan(&syspbuff,&num);
%end;
%put &newchar;
%mend;
%avg(a b d c a d e f e bd e eoi)
[/code:3nys9kfe]

shiyiming

与smand008 英雄所见略同 可能还是要用indexw