求助SAS里的数据导入

1. data test;
   
2.    infile cards truncover ;
   
3.    format No $8. dt_tm $24. member $1. itemno $8. quantity 8. tmp $1000.;
   
4.    keep no dt_tm member itemno quantity;
   
5. 
   
6.     input  NO : $8. dt : yymmdd10. tm : time8. member : $1. tmp  $1000.;
   
7.    dt_tm=catx(" ",put(dt,yymmdd10.),put(tm,time8.));
   
8. 
   
9.    i=-1;
   
10.    do until (flag=1);
    
11.       i+2;
    
12.       itemno=scan(tmp,i,":,");
    
13.           quantity=input(scan(tmp,i+1,":,"),best.);
    
14.           if missing(itemno) then flag=1;
    
15.           else  output;
    
16.    end;
    
17.    cards;  
    
18. N001        2012-01-09 12:29:51        1        44743      : 1,4062 : 54,5127 : 5,4162 : 1,5819 : 32
    
19. N002        2012-01-09 12:29:10        0        4062 : 30, 44743 : 1,1480 : 1, 4084 : 86,36677 : 4,5127 : 3,5819 : 41,5818 : 29,5021 : 200,5023 : 200,5147 : 4,5351 : 1,5148 : 2
    
20. ;

复制代码

pobel 发表于 2012-11-9 15:33

名副其实的教授 很给力