sas字符处理问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

从aa字段中选出“#”后面的数字，不是在“#”后面的数字直接忽略，如下图所示！麻烦各位sas大神指教一下!

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

data z;
        input aa $ 1-30;
        cards;
        w1m2w#1mh#2zkb#9q10l
        fy1x2z3b#2xls#6j
        h4d4t6l#8dx
        ee#1j#2jj#3kk#4KKk
        ;
run;

data z1;
        set z;
        nn=length(compress(aa,'#','k'))+1;
run;

proc sql noprint; select max(nn) into :num from z1; quit;
%put #

data z2;
        set z1;
        array res(&num.) $;
        do i = 1 to nn;
                res(i)=substr(scan(aa,i,'#'),1,1);
        end;
        drop res1;
run;

data z3;
        set z2;
        length bb $100;
        bb=catx(',',of res2-res5);
run;

1. data _null_;
   
2.         var = "你好1世界#2人们3升级#4生活#6很好5";
   
3.         var1 = prxchange('s/[\xa1-\xff]+[0-9]*//',-1,var);
   
4.         var2 = prxchange('s/#/,/',-1,substr(var1,2));
   
5.         put var1 = var2 =;
   
6. run;

复制代码

1. data a;
   
2. input var $50.;
   
3. 
   
4. datalines;
   
5. ssew13dwew#12joijo#3jojow6
   
6. ssew13
   
7. #ssew#13
   
8. ssew13dwew12joijo#3jojow6
   
9. ssew#13dwew2joijo3jojow#6
   
10. ssew#13dwew##2joijo3jojow#6
    
11. ;
    
12. run;
    
13. 
    
14. 
    
15. data b;
    
16. set a;
    
17. length var1-var5 $50. ;
    
18. /*step 1:change all not number'0-9' or '#' to character 'k'*/
    
19.         var1 = prxchange('s/[^#\d]/k/',-1,var);
    
20. /*step 2:change k\d to null,due to var1 may contain like 'k33',not meet '#33'*/
    
21.         var2 = prxchange('s/k\d+//',-1,var1);
    
22. /*step 3:change step 1 the character 'k' to null*/
    
23.         var3 = prxchange('s/k//',-1,var2);
    
24. /*step 4:change '##33' to '#33'*/
    
25. if prxmatch('/##/',var3)        then var4 = prxchange('s/##+/#/',-1,var3);else var4=var3;
    
26. /*step 5:change the second or far '#' to ',' ,the begining '#' will ignore*/
    
27. if substr(var4,1,1)='#' then var5 = prxchange('s/#/,/',-1,substr(var4,2));
    
28.      
    
29. run;

复制代码

output