sas求助大神帮忙

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

A                                       B 2，2，3，3，4               2，3，4 2，3，3，4，5，5          2，3，4，5 请问如何实现由A得到B，去掉记录里重复的数据，用sas如何实现

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：SAS求助 求助大神 如何实现 记录 如何

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

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

1. data have;
   
2.    a ="2, 2, 3, 3, 4       "; output;
   
3.    a ="2, 3, 3, 4, 5, 5"; output;
   
4.    a ="3, 6, 8, 8, 9, 0"; output;
   
5. run;
   
6. 
   
7. data want;
   
8.    set have;
   
9.    length b $30.;
   
10.    b=scan(a,1);
    
11.    do i = 1 to countw(a);
    
12.      if ^find(b, scan(a,i)) then b=cats(b, ", ", scan(a,i));
    
13.    end;
    
14.    drop i;
    
15. run;

复制代码

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

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

1. data want;
   
2.    set have;
   
3.    
   
4.    prx = prxparse('s/([^,]+)\s*(,\s*\1\s*)+/\1/');
   
5.    b = prxchange(prx,-1,a);
   
6. run;

复制代码

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

Tigflanker 发表于 2015-12-13 17:30
一切从简，正则推荐实在没办法了再写

谢谢大神了

yongyitian 发表于 2015-12-13 06:08
删除观测中的重复字符串
Remove duplicate string in an observation

真心谢谢了，你这个比较好懂，嘿嘿