分享一些Code，欢迎讨论和赐教！

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

请有高见的大虾出来讨论和赐教！

1. data test;
   
2. input id $ name $ 14. age;
   
3. cards;
   
4. 001 张三,李四,王五 25
   
5. 002 赵六,甲乙         30
   
6. ;
   
7. run;
   
8. data test1;
   
9. retain id age;
   
10. set test;
    
11. do i=1 to countc(name,',')+1;
    
12. name1=scan(name,i,',');
    
13. output;
    
14. end;
    
15. drop i name;
    
16. run;

复制代码

1. data aa;
   
2. input ID name $;
   
3. cards;
   
4. 1001 ABC
   
5. 1002 ABCD
   
6. 1003 ABCDE
   
7. ;
   
8. run;
   
9. 
   
10. data bb;
    
11. retain id;
    
12. set aa;
    
13. do i=1 to length(name);
    
14. do j=i to length(name);
    
15. name1=substr(name,i,j-i+1);
    
16. output;
    
17. end;
    
18. end;
    
19. drop i j name;
    
20. run;
    
21. 
    
22. 
    
23. proc sql;
    
24. create table cc as
    
25. select distinct a.id as id1, b.id as id2, count(a.name1=b.name1) as com
    
26. from bb as a, bb as b
    
27. where a.id<b.id and a.name1=b.name1
    
28. group by a.id, b.id
    
29. ;
    
30. 
    
31. create table dd as
    
32. select *,length(name) as len
    
33. from aa
    
34. ;
    
35. create table ee as
    
36. select a.id1, a.id2, b.len as len1, a.com
    
37. from cc as a, dd as b
    
38. where a.id1=b.id
    
39. ;
    
40. 
    
41. select a.id1, a.id2, a.len1, b.len as len2, a.com
    
42. from ee as a, dd as b
    
43. where a.id2=b.id
    
44. ;
    
45. quit;

复制代码

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：code ODE COD proc sql Distinct

顶楼主，我也需要