如何分割下面的数据

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

data  a;
  input x $.  y$300.;
  cards;
   a  {'wp1': 3, 'wp2': { '141': 1, '55': 2, '117': 3, '109': 2, '96': 32} , 'wp3': {'15': 21, '143': 4}};
run;
希望得到如下结果：
x  y1  y2  y3  y4  y5  y6
a  wp1 3  wp2   { '141': 1, '55': 2, '117': 3, '109': 2, '96': 32}   wp3 {'15': 21, '143': 4}}
求各位大神赐教

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：cards Input card Data RDS 如何

1. data  a;
   
2. infile cards dlm='~';
   
3. length x $1 temp $300;
   
4.   input x $1.  temp $;
   
5. cards;
   
6. a {'wp1': 3, 'wp2': { '141': 1, '55': 2, '117': 3, '109': 2, '96': 32}, 'wp3': {'15': 21, '143': 4}}
   
7. ; run;
   
8. 
   
9. data b;
   
10.    length T1 y1-y6 $300;
    
11.    array y{*} y1-y6 ;
    
12.    set a;  
    
13.    nwp = count(temp, 'wp');
    
14.       j = 1;
    
15.    do i = 2 to nwp+1;
    
16.      T1 = scan(temp, i, "wp");
    
17.    y[j] = 'wp'||substr(T1,1,1);
    
18.    if count(T1, '{' ) > 0 then y[j+1] = '{'||scan(T1, 2, '{}')||'}';
    
19.       else y[j+1] = scan(T1, 2, ':,');
    
20.       J = J+2;
    
21.    end;  
    
22.    put x=/ y1=/ y2=/ y3=/ y4=/ y5=/ y6=;
    
23.    drop nwp i j T1 temp;
    
24. run;

复制代码