SAS里如何按id合并同列字符串

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

我的问题如题目所示，在网上搜了好多，发现用sql做的居多，但是sas里好像没有stuff这个函数，所以在此请教各位大神如何用sas实现，为了更易读懂，我举例说明：
我的数据集是这样的，有两列，第一列是id，第二列是txt，

id             txt
1           2013考研时间
1           2013考研时间
1           北京大学MBA
1           智联招聘
1           复旦  投毒
2           上交安泰
2           商学院排名
2           大学课程

最后要的效果：
id                 txt
1           “2013考研时间；2013考研时间；北京大学MBA；智联招聘；复旦 投毒”
2           “上交安泰；商学院排名；大学课程”

用分号隔开，两段打上英文的双引号，跪求各位大神指点！！！

扫码加我 拉你入群

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

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

分享0 收藏3 回帖

关键词：字符串 2013考研 stuff 考研时间 北京大学 字符串 如何

自己顶一下，求帮助！！！

一种很笨的方法，仅供参考，希望有更好的方法。

1. data t1;
   
2. infile datalines truncover;
   
3. input id txt $100.;
   
4. datalines;
   
5. 1 2013考研时间
   
6. 1 2013考研时间
   
7. 1 北京大学MBA
   
8. 1 智联招聘
   
9. 1 复旦 投毒
   
10. 2 上交安泰
    
11. 2 商学院排名
    
12. 2 大学课程
    
13. ;
    
14. run;
    
15. proc transpose data=t1 out=t2(drop=_NAME_);
    
16. by id;
    
17. var txt;
    
18. run;
    
19. data t3;
    
20. set t2;
    
21. length txt $500.;
    
22. txt=compress(catx(of col:));
    
23. drop col:;
    
24. run;

复制代码

boe 发表于 2013-5-28 15:09
一种很笨的方法，仅供参考，希望有更好的方法。

谢谢！！！！这个方法可以，就是最后你用的函数是catx，我跑的时候出现了一点小问题，就是有的id后面合并的txt是空的，我记得我以前用过一个叫cats，于是我换了一下，就ok了，不知道这俩啥区别。。。。
总之非常感谢，你解决了我的问题！！！！

cats-------Removes leading and trailing blanks, and returns a concatenated character string.
catx-------Removes leading and trailing blanks, inserts delimiters, and returns a concatenated character string.

boe 发表于 2013-5-28 15:38
cats-------Removes leading and trailing blanks, and returns a concatenated character string.
catx- ...

能再请问一下，如果我希望合并的形式是这样的：

1  “2013考研时间；2013考研时间；北京大学MBA；智联招聘；复旦 投毒”；
2  “上交安泰；“商学院排名；大学课程”；

就是中间用分号隔开，形式是字符串，就是加了双引号，这样改如何实现？非常感谢~~
我的原始数据有好几十万条，合并出的txt肯定很大，处理的很头疼，所以麻烦您了。。

1. data test;
   
2.         input id text $20.;
   
3.         cards;
   
4. 1           2013考研时间
   
5. 1           2013考研时间
   
6. 1           北京大学MBA
   
7. 1           智联招聘
   
8. 1           复旦  投毒
   
9. 2           上交安泰
   
10. 2           商学院排名
    
11. 2           大学课程
    
12. ;
    
13. run;
    
14. 
    
15. data rst(drop=text);
    
16.         set test;
    
17.         by id;
    
18.         length rst $200.;
    
19.         retain rst;
    
20.         if first.id then rst=compress(text);
    
21.                 else rst=compress(rst)||compress(text);
    
22.         if last.id;
    
23. run;

复制代码

scarfacetony 发表于 2013-5-28 15:51

谢谢，可以实现，还想请问如果希望合并后用分号隔开，并且打上英文的双引号该如何实现？就是下面这样

"2013考研时间；2013考研时间；北京大学MBA；智联招聘；复旦 投毒"

非常感谢！！！

scarfacetony 发表于 2013-5-28 15:51

学习了

appleqiuqiu 发表于 2013-5-28 16:00
谢谢，可以实现，还想请问如果希望合并后用分号隔开，并且打上英文的双引号该如何实现？就是下面这样

...

1. data test;
   
2.         input id text $20.;
   
3.         cards;
   
4. 1           2013考研时间
   
5. 1           2013考研时间
   
6. 1           北京大学MBA
   
7. 1           智联招聘
   
8. 1           复旦  投毒
   
9. 2           上交安泰
   
10. 2           商学院排名
    
11. 2           大学课程
    
12. ;
    
13. run;
    
14. 
    
15. data rst(drop=text);
    
16.         set test;
    
17.         by id;
    
18.         length rst $200.;
    
19.         retain rst;
    
20.                 if last.id then text=trim(text)||'"';
    
21.         if first.id then rst='"'||trim(text);
    
22.                 else rst=catx(';',trim(rst),trim(text));
    
23.                 if last.id;
    
24. run;

复制代码

打引号的应该会有更好的方法，我这种比较山寨了，
刚注意到“复旦 投毒”间有个空格，如果这个空格要保留的话，就用trim处理了。