怎么修改如下数据格式

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

第一行有一个变量是括号内多个数字，
我想把变成如下格式，
比如第一行
开会，教研室，教研室，日期，{10,12,11,13,14,15}变为
开会，教研室，教研室，日期，10
开会，教研室，教研室，日期，12
开会，教研室，教研室，日期，11
开会，教研室，教研室，日期，13
开会，教研室，教研室，日期，14
开会，教研室，教研室，日期，15

就是相当于把括号里的数字拆出来，请问该怎么编程序，谢谢！！！

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：数据格式 怎么修改 怎么编程 教研室 编程序 教研室 程序 内多

1.   proc sql;
   
2.    select max(count(attendance,","))+1,cats('y',max(count(attendance,","))+1) into: n,:y
   
3.    from a; quit;
   
4. 
   
5. data a_1;
   
6.     set a;
   
7.         array k[*] y1-&y _char_;
   
8.         do i=1 to &n;
   
9.         k[i] =scan(compress(attendance,"{}"),i,",");
   
10.         end;
    
11.         run;
    
12. 
    
13. data last;
    
14.    set a_1;
    
15.    array k[&n] y: ;
    
16.    do i=1 to &n;
    
17.    attendance_=k[i];
    
18.    if attendance_ = "" then delete;
    
19.    output;
    
20.    end;
    
21.    drop i y1-&y;
    
22.    run;

复制代码

Use fake dataset as example

data have;
input id x y $30.;
cards;
1 4 {3,6,9,3}
2 6 {9,5}
;
run;

data want;
set have;
  do i=1 by 1 ;
    var=scan(y,i,,'kd');
    if var=' ' then leave;  
    else output;
  end;
  drop i y;
  run;

farmman60 发表于 2014-4-3 19:43
Use fake dataset as example

data have;

请教一下，能解释一下那个scan函数语句吗？我没看明白后面“,'kd'”，这个代表什么意思呢？

heperwong 发表于 2014-4-3 16:39

才看到谢了，我试一下，不胜感激！

farmman60 发表于 2014-4-3 19:43
Use fake dataset as example

data have;

才看到不好意思，我试试

mingfeng07 发表于 2014-4-3 20:14
请教一下，能解释一下那个scan函数语句吗？我没看明白后面“,'kd'”，这个代表什么意思呢？

k means that all characters that are not in charlist are used as delimiters, d means that adds digits to the list of characters, so k & d together means all others characters are delimiters except digits.

farmman60 发表于 2014-4-5 07:14
k means that all characters that are not in charlist are used as delimiters, d means that adds dig ...

原来如此，谢谢

farmman60 发表于 2014-4-3 19:43
Use fake dataset as example

data have;

精妙！！！！