关于字符串的一个难题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

数据是这样的：
f1       f2
aa      A
aa      H
aa      
aa      
aa      BH
bb     AB
bb     B
bb     

f1取aa或bb的观测数都不是确定的，f2可为A、B、H、F字符中的一个或几个的组合或空值。
现在我只想得到两个观测，f1分别取aa、bb，对应的f2取各观测f2的并集，如aa的f2应取ABH，bb的f2应取AB.
希望大家能帮我想出个简单有效的办法，谢谢！

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：字符串 字符串

期盼高人解答

1. data t;
   
2. input f1 $ f2 $;
   
3. cards;
   
4. aa A
   
5. aa H
   
6. aa .
   
7. aa .
   
8. aa BH
   
9. bb AB
   
10. bb B
    
11. bb .
    
12. ;
    
13. run;
    
14. 
    
15. data tt;
    
16.         set t;
    
17.         length=length(compress(f2));
    
18.         do i=1 to length;
    
19.                 var=substr(f2,i,1);
    
20.                 output;
    
21.         end;
    
22.         keep f1 var;
    
23. run;
    
24. 
    
25. proc sort data=tt out=ttt nodupkey;
    
26.         by f1 var;
    
27. run;
    
28. 
    
29. data tttt;
    
30.         set ttt;
    
31.         by f1;
    
32.         length f2 $ 10;
    
33.         retain f2;
    
34.         if first.f1 then f2=var;
    
35.         else f2=cats(f2,var);
    
36.         if last.f1;
    
37.         keep f1 f2;
    
38. run;

复制代码

可~乐 发表于 2013-8-12 15:49

多谢！关键在于output 、nodupkey和retain啊！有没有更简单一些的方法？

1. data need(keep=f1 new);
   
2.     do until(last.f1);
   
3.         set raw;
   
4.         by f1;
   
5.         length f2_f2 $10;
   
6.         f2_f2 = cats(f2_f2, f2);
   
7.     end;
   
8.     length new $10;
   
9.     do i = 1 to length(f2_f2);
   
10.         new = ifc(find(new, substr(f2_f2, i, 1)), new , cats(new, substr(f2_f2, i, 1)));
    
11.     end;
    
12. run;

复制代码

Hope it helps.

data tmp;
length f1 $2 f2 $10;
infile cards truncover;
input f1       f2;
cards;
aa      A
aa      H
aa      
aa      
aa      BH
bb     AB
bb     B
bb  
;

data needed;
  length s t $300;
  retain s ' ';

  set tmp;
  by f1;
  if first.f1 then s=' ';
  s=catt(s,f2);
  if last.f1 then do
    t=char(s,1);
    do i=2 to length(s);
            char1=char(s,i);
            if find(t, char1) then ;
                else t=catt(t,char1);
        end;
        output;
  end;

  
  keep f1 t;
  rename t=f2;
  run;

  proc print;run;

  

1. data t;
   
2. input f1 $ f2 $;
   
3. cards;
   
4. aa A
   
5. aa H
   
6. aa .
   
7. aa .
   
8. aa BH
   
9. bb AB
   
10. bb B
    
11. bb .
    
12. ;
    
13. run;
    
14. 
    
15. %macro T;
    
16. 
    
17. %let aa=;%let bb=;
    
18. data _null_;set t;
    
19.   if f1='aa' then call symputx('aa',symget("aa")||f2);
    
20.   else call symputx('bb',symget("bb")||f2);
    
21. run;
    
22. 
    
23. data need;if 0 then set t;
    
24.   f1='aa';f2=compress('ABHF',compress('ABHF',"&aa."));output;
    
25.   f1='bb';f2=compress('ABHF',compress('ABHF',"&bb."));output;
    
26. stop;run;
    
27. 
    
28. %mend;%T;

复制代码