【SAS求助】请问如何以符号为界拆分变量？

现有如下数据集：
data a;
input x$;
cards;
lee-290-xyz
zhoujielun-2390-kkkk;
run;

想生成如下数据集：
x                y       z
lee             290    xyz
zhoujielun   2390  kkkk;


其中xyz为变量名，其余为观测，请问如何实现？非常感谢！！

1. proc sql noprint;
   
2. select max(count(x,'-')+1) into: n
   
3. from a;
   
4. quit;
   
5. 
   
6. data wanted;
   
7. set a;
   
8. array var[&n] $20 a1-a%left(&n);
   
9. do i=1 to dim(var);
   
10.   var[i]=scan(x,i,'-');
    
11. end;
    
12. keep a:;
    
13. run;

复制代码

人工置顶

data b;
set a(rename=(x=xx));
x=scan(xx,1,'-');
y=scan(xx,2,'-');
z=scan(xx,3,'-');
drop xx;
run;

wwang111 发表于 2017-8-23 11:31
data wanted;
set a;
array var[3] $20 a b c;

您好，感谢回复，我试了下，最后跑出来的结果是这样的：
a                 b          c
lee             290
zhoujiel
其中b只有一个值，c为空，而且zhoujielun的名字也不完全，只显示了zhoujiel。麻烦请再看下是什么情况

popodan 发表于 2017-8-23 11:31
data b;
set a(rename=(x=xx));
x=scan(xx,1,'-');

您好，感谢回复，我试了下，最后跑出来的结果是这样的：
a                 b          c
lee             290
zhoujiel
其中b只有一个值，c为空，而且zhoujielun的名字也不完全，只显示了zhoujiel。麻烦请再看下是什么情况

summerwe 发表于 2017-8-23 11:43
您好，感谢回复，我试了下，最后跑出来的结果是这样的：
a                 b          c
lee         ...

请查看一下你的数据集a是否完整，因为帖子里面你建立数据集a的代码是有问题的

wwang111 发表于 2017-8-23 11:48
请查看一下你的数据集a是否完整，因为帖子里面你建立数据集a的代码是有问题的

不好意思，是我搞错了，数据集a确实不完整，非常感谢，谢谢！！

summerwe 发表于 2017-8-23 11:44
您好，感谢回复，我试了下，最后跑出来的结果是这样的：
a                 b          c
lee         ...

这个代码应该能跑出来 ，是不是读数据时没有设置 变量的长度
另外可以尝试用正则表达式解决：

data a;
length x $50;
input x $;
cards;
lee-290-xyz
zhoujielun-2390-kkkk
;

data test;
set a(rename=(x=x1));
pattern=prxparse('/(\D+)-(\d+)-(\D+)/');
if prxmatch(pattern,x1)>0 then do;
call prxposn(pattern,1,start1,length1);
call prxposn(pattern,2,start2,length2);
call prxposn(pattern,3,start3,length3);
x=substr(x1,start1,length1);
y=substr(x1,start2,length2);
z=substr(x1,start3);
end;
run;

albusdzx 发表于 2017-8-23 12:18
这个代码应该能跑出来 ，是不是读数据时没有设置 变量的长度
另外可以尝试用正则表达式解决：

是的，原数据集a不完整，感谢您的解答！！