SAS 如何保留重复字符串的唯一值

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

比如一个字符串：'CCCCCBBBBBBBBAAAAAA'   以A,B,C为最小单位，希望删去某一字符的重复值，得到结果'CBA'，换言之保留了字符的原始顺序。更复杂一些如果是'BBCCCAABBBAACCCCCC' 则期望得到'BCABAC'这样。期待大侠们指点啊！！谢谢！！
PS.原始字符串的最长长度是110.

扫码加我 拉你入群

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

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

分享0 收藏3 回帖

关键词：字符串 caba 重复值 CCB CBA 字符串 如何

1. data a;
   
2. length value  $ 200;
   
3. input value $ @@;
   
4. cards;
   
5. cccccccbbbbbaaaa
   
6. ggggdddwwww
   
7. bbccaaccbbaa
   
8. ccggbbbcccgggg
   
9. ;
   
10. run;
    
11. proc sql;
    
12. select max(length(value)) into:n from a;
    
13. quit;
    
14. data b;
    
15. length new_value $ 100;
    
16. set a;
    
17. array a{&n.} $  _temporary_;
    
18. array b{&n.} $   _temporary_;
    
19. do i=1 to &n.;
    
20. a(i)=substr(value,i,1);
    
21. end;
    
22. b(1)=a(1);
    
23. do i=2 to &n.;
    
24. if a(i)=a(i-1) then b(i)='';
    
25. else b(i)=a(i);
    
26. end;
    
27. do i=1 to &n.;
    
28. new_value=cats(new_value,b(i));
    
29. end;
    
30. run;

复制代码

DATA AAA;
        A='CCCCCBBBBBBBBAAAAAA';
        A=UPCASE(A);

        DO I=LENGTH(A) TO 2 BY -1;
                IF SUBSTR(A,I,1)=SUBSTR(A,I-1,1) THEN
                        SUBSTR(A,I,1)='';
        END;
        A=COMPRESS(A);
        DROP I;
RUN;

1. data test;
   
2. length text $110;
   
3. text='CCCCCBBBBBBBBAAAAAA';output;
   
4. text='BBCCCAABBBAACCCCCC';output;
   
5. text='ABCDABCD';output;
   
6. text='AABBCC';output;
   
7. run;
   
8. 
   
9. data wanted;
   
10. set test;
    
11. i=1;
    
12. length text1 $110;
    
13. retain text1;
    
14. do until(substr(text,i,1)='');
    
15. if text ne lag(text) then call missing(text1);
    
16. if substr(text,i,1) ne substr(text,i+1,1) then text1=strip(text1)||strip(substr(text,i,1));
    
17. i+1;
    
18. end;
    
19. drop i;
    
20. run;

复制代码

if counting blank space: jingju

1. data have;
   
2. x ='oops    soooo-full';
   
3. z =substr(x,1,1); k=1;
   
4. do i =2 to length(x);
   
5.         if substr(x,i-1,1) =substr(x,i,1) then continue;
   
6.         k ++1;
   
7.         substr(z,k,1)=substr(x,i,1);
   
8. end;
   
9. put x "--->" z;
   
10. run;

复制代码

jingju11 发表于 2014-12-3 13:21
if counting blank space: jingju

学习了

1. data _null_;
   
2.     input value $20.;
   
3.     new_value=prxchange('s/(\w|\s)\1+/$1/',-1,value);
   
4.     put value '--> ' new_value;
   
5. cards;
   
6. cccccccbbbbbaaaa
   
7. ggggdddwwww
   
8. bbccaaccbbaa
   
9. ccggbbbcccgggg
   
10. oops    soooo-full
    
11. ;

复制代码

jingju11 发表于 2014-12-3 13:21
if counting blank space: jingju

Using Char function in this case could save 30% cpu time.

128      data _null_;
129      x ='oops    soooo-full';
130      z =substr(x,1,1);
131      do _i_=1 to 5e5;
132       k=1;
133      do i =2 to length(x);
134              if substr(x,i-1,1) =substr(x,i,1) then continue;
135              k ++1;
136              substr(z,k,1)=substr(x,i,1);
137      end;
138      end;
139      put x "--->" z;
140      run;

oops    soooo-full --->ops so-ful
NOTE: DATA statement used (Total process time):
      real time           1.27 seconds
      cpu time            1.26 seconds


141
142      data _null_;
143      x ='oops    soooo-full';
144      z =substr(x,1,1);
145      do _i_=1 to 5e5;
146       k=1;
147      do i =2 to length(x);
148              if char(x,i-1) =char(x,i) then continue;
149              k ++1;
150              substr(z,k,1)=char(x,i);
151      end;
152      end;
153      put x "--->" z;
154      run;

oops    soooo-full --->ops so-ful
NOTE: DATA statement used (Total process time):
      real time           0.95 seconds
      cpu time            0.93 seconds

bobguy 发表于 2014-12-4 11:05
Using Char function in this case could save 30% cpu time.

128      data _null_;

Thanks. Bobguy and Hopewell both master SAS very well. JingJu

有众大神保佑，我们就安心了:)