怎样利用参照集里的数据替换字段内的相关字符串？急。。。。

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

问个问题.... 这个该怎么做
id type
1  a,b
2  a
3  a,b,c
....

参照数据集
nameshort name   
a         xy
b         er
c         abc
...

结果
id type
1  xy,er
2  xy
3  xy,er,abc
...

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：字符串 Short Names name type 字符串

看着步骤多，不过都简单，思路清晰。巧妙利用数据集的合并来匹配，通用性很好。

1. data a_1;
   
2.     length type1 $ 10 type2 $ 10 type3 $ 10;
   
3.     input id type1 $ 4 type2 $ 6 type3 $ 8;
   
4. datalines;
   
5. 1  a,b
   
6. 2  a
   
7. 3  a,b,c
   
8. ;
   
9. run;
   
10. 
    
11. data a_2(rename=(nameshort=type1));
    
12.     length nameshort $ 10;
    
13.     input nameshort $ name $;
    
14. datalines;
    
15. a         xy
    
16. b         er
    
17. c         abc
    
18. ;
    
19. run;
    
20. 
    
21. data a_3;
    
22.     merge a_1 a_2(rename=(name=name1));
    
23.     by type1;
    
24. run;
    
25. 
    
26. proc sort data=a_3;by type2;run;
    
27. 
    
28. data a_4;
    
29.     merge a_3 a_2(rename=(type1=type2 name=name2));
    
30.     by type2;
    
31. run;
    
32. 
    
33. proc sort data=a_4;by type3;run;
    
34. 
    
35. data a_5;
    
36.     merge a_4 a_2(rename=(type1=type3 name=name3));
    
37.     by type3;
    
38. run;
    
39. 
    
40. proc sort data=a_5;by id;run;
    
41. 
    
42. data final;
    
43.     set a_5(drop=type:);
    
44.     if id=. then delete;
    
45.     type=catx(",",of name:);
    
46.     drop name:;
    
47. run;
    
48. 
    
49. proc datasets lib=work;
    
50.     delete a_1 a_2 a_3 a_4 a_5;
    
51. quit;

复制代码

1. data a;
   
2.         input id $ type$;
   
3.         datalines;
   
4. 1 a,b
   
5. 2 a
   
6. 3 a,b,c
   
7. ;
   
8. data b;
   
9.         input nameshort $ name $;
   
10.         datalines;
    
11. a xy
    
12. b er
    
13. c abc
    
14. ;
    
15. data _null_;
    
16.         set b;
    
17.         call symput(nameshort,trim(name));
    
18. run;
    
19. data c;
    
20.         length id $ 8 type $ 20;
    
21.         set a;
    
22.         type=resolve('&'||tranwrd(type,',',',&'));
    
23. run;

复制代码

Here is a simple one to use sas format.
proc format;
value $nameshort   
a   =      xy
b   =      er
c   =      abc
;
run;

data tmp;
length id 8 type $8 type2 $30;
input id  type;
n=countw(type,',');
do i=1 to n;
type2=catx(',', type2, put(scan(type,i,','),$nameshort.));
end;
drop i n;
cards;
1  a,b
2  a
3  a,b,c
;
run;

proc print;run;

用format value语句直接转换也可以

学习了 谢谢各位