看看有没有会正则表达式的大神

data tmp;
input x $;
cards;
11223
12345
15522
122
3333
;
run;
proc sql noprint;
        select max(length(x)) into:len from tmp;
quit;

%macro tt(max=);
data tmp2;
        set tmp;
        new=substr(x,1,1);
        x1=substr(x,1,1);
        %let amt=x;
        flag=0;
        %do i=2 %to &max.;
                x&i.=substr(x,&i.,1);
                %do j=1 %to %eval(&i.-1);
                        if x&i.=x&j. then flag+1;
                %end;
                if flag=0 then new=compress(new||x&i.);
                else flag=0;
        %end;
        keep x new;
run;
%mend;

%tt(max=&len.);

删除观测中的重复字符串
Remove duplicate string in an observation

正则表达式能不用且不用，写不好容易出纰漏

推荐楼上仁兄的简易风，不容易出错，也是一目了然；推荐用indexw替代find

一切从简，正则推荐实在没办法了再写