SAS提取字符串

data1.xls (13.5 KB)

2012-12-18 17:41:17 上传

原始数据是这样，变量只有一个字符型变量，其中变量由许多名字连在一起，仅用逗号隔开。原始数据有很多行，这里限于篇幅只列出一些行
数据在附件里。
想得到这样结果，仍然保留变量不变,但新增加name_1, name_2, .....变量，这些新生成的变量是由原来连在一起的name变量拆分后的每个名字。

不知讲清楚了没有，实在想不出来，请高手帮忙。

没有一个其它id 变量控制吗？所有的一起转？一般会一行拆开一下。

1. data demo;
   
2. length name $ 100;
   
3. input id  name $;
   
4. datalines;
   
5. 1 朱勇，雷轩武
   
6. 2 汪伟，张可欣，穆周
   
7. 3 李龙，王祁
   
8. 4 周新玉，袁峻崇，左英
   
9. 5 张志鹏，吴正武，侯思佳，张庆
   
10. 6 乐洋，陈晨，林裕闲，詹红兵，杨少家
    
11. 7 吕静玉，刘华，陈戊龙，刘旭阳
    
12. 8 朱勇，雷轩武
    
13. 9 汪伟，张可欣，穆周
    
14. 10 李龙，王祁
    
15. 11 周新玉，袁峻崇，左英
    
16. 12 张志鹏，吴正武，侯思佳，张庆
    
17. 13 乐洋，陈晨，林裕闲，詹红兵，杨少家
    
18. 14 吕静玉，刘华，陈戊龙，刘旭阳
    
19. ;
    
20. 
    
21. data tmp;
    
22.    set demo;
    
23. i=1;
    
24. do while (kscan(name,i,'，' )^='');
    
25.    subname=kscan(name,i,'，');
    
26.   output;
    
27.    i+1;
    
28. end;
    
29. run;
    
30. 
    
31. proc transpose data=tmp  out=want (drop=_name_) prefix=name;
    
32.   var subname;
    
33.   by id;
    
34. run;

复制代码

这个用EXCEL处理更方便吧，如果你的原文件是TXT或CSV，则在EXCEL中新建一空白文档，数据-获取外部数据-自文本，分隔符号选择其他，根据你的实际分隔情况填入就行了

以下只是5个变量的情况

1. data test2;
   
2.         set test1;
   
3.         array newname {*} $ name_1-name_5;
   
4.         i=1;
   
5.         do until(scan(name,i,'，')=' ');
   
6.                 newname{i}=scan(name,i,'，');
   
7.                 i+1;
   
8.         end;
   
9.         output;
   
10.         drop name i;
    
11. run;       

复制代码

老师她摸我 发表于 2012-12-18 18:15
以下只是5个变量的情况

处理中文，还是换成kscan

老师她摸我 发表于 2012-12-18 18:15
以下只是5个变量的情况

高手！