将csv文件批量转为SAS文件[SAS code]

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

经常做的一件事情是将其他文件批量转化为sas文件。这个task也比较能够体现利用 macro list完成循环，或者说是对SAS的行进行循环操作。
代码分享：

1. ***************************************************************;
   
2. * 将csv文件批量转为SAS文件：
   
3.                 将csmar中股票日交易的28个csv文件合并成一个SAS文件
   
4. ***************************************************************;
   
5. 
   
6. libname out "C:\Users\dsf";         /* 输出数据的目录 */
   
7. 
   
8. * 第4列数据是待循环的文件目录列表;
   
9. data temp (keep=file);
   
10.         input dir $ date $ time $ file $;
    
11. datalines;
    
12.   <dir>   1/16/17  0:21  12gkzzxx         
    
13.   <dir>   1/16/17  0:21  3b1t3qw2         
    
14.   <dir>   1/16/17  0:21  a3yeqmqd         
    
15.   <dir>   1/16/17  0:21  blkqdh2n         
    
16.   <dir>   1/16/17  0:21  cdfnkvaw         
    
17.   <dir>   1/16/17  0:21  eovbprla         
    
18.   <dir>   1/16/17  0:21  fyoncmrb         
    
19.   <dir>   1/16/17  0:21  gnkjxu14         
    
20.   <dir>   1/16/17  0:21  gx3wcteu         
    
21.   <dir>   1/16/17  0:21  hgpu1q0a         
    
22.   <dir>   1/16/17  0:21  itulofqs         
    
23.   <dir>   1/16/17  0:21  jmt2sfes         
    
24.   <dir>   1/16/17  0:21  lwhbt2a4         
    
25.   <dir>   1/16/17  0:21  oq21vpiy         
    
26.   <dir>   1/16/17  0:21  ovavtb01         
    
27.   <dir>   1/16/17  0:21  pfcrlumc         
    
28.   <dir>   1/16/17  0:21  qamldgj5         
    
29.   <dir>   1/16/17  0:21  qgyqrcu0         
    
30.   <dir>   1/16/17  0:21  qy0tszut         
    
31.   <dir>   1/16/17  0:21  r0wtaytr         
    
32.   <dir>   1/16/17  0:21  r2c52j2d         
    
33.   <dir>   1/16/17  0:21  rptu3ox3         
    
34.   <dir>   1/16/17  0:21  u2rhpuu2         
    
35.   <dir>   1/16/17  0:21  vconc3ee         
    
36.   <dir>   1/16/17  0:21  wfeizbss         
    
37.   <dir>   1/16/17  0:21  xcfyj2eg         
    
38.   <dir>   1/16/17  0:21  xcncc3rm         
    
39.   <dir>   1/16/17  0:21  ybaet4p3         
    
40. ;
    
41. run;
    
42. 
    
43. 
    
44. *对每一个文件目录，生成1个宏变量;
    
45. data _null_;
    
46.         set temp  end=eof;
    
47.         call symput('file'||left(_N_), trim(file));        
    
48.         if eof then call symput('nfile', _n_);        
    
49.         run;
    
50. 
    
51. 
    
52. 
    
53. proc printto  log=junk; run;
    
54. %macro csv2sas;
    
55. %do i=1 %to &nfile;
    
56. proc import datafile="C:\Users\dsf\&&file&i\TRD_Dalyr.csv"        /* csv文件的目录 */
    
57.         out=work.dsf&i dbms=dlm  replace;        
    
58.         delimter='09'x;                /* csmar的csv文件是tab分隔的 */
    
59.         run;
    
60. %end;
    
61. %mend csv2sas;
    
62. proc printto; run;
    
63. 
    
64. %csv2sas
    
65. 
    
66. *合并数据集为单个数据文件;
    
67. data out.dsf;
    
68.         set dsf1-dsf28;
    
69.         run;
    
70. 
    
71. * 删去临时数据集dsf1-saf28;
    
72. proc datasets;
    
73.         delete dsf1-dsf28;
    
74.         quit;

复制代码

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：code COD ODE datasets replace