SAS批量导入时规定输入输出格式

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

如题，现在我的一个文件夹里有几十个csv文件，他们的命名都是一样的，只是后缀的数字不同。表单里变量也是一样的，我想用宏程序一下子就导进去。但是用import这个语句不能规定输入输出格式。所以想请教各位论坛中的大神，看能不能给我一段批量导入的宏程序，而且能够规定输入输出格式。拜谢！

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：批量导入 输出格式 import Port 宏程序 import 文件夹 程序 而且 命名

1. options noxwait;
   
2. 
   
3. *指定数据文件所在的目录;
   
4. %let path=f:\tmp\;
   
5. *指定输出数据集前缀;
   
6. %let OutPrefix=Mydata;
   
7. 
   
8. x "dir &path /b > fname.txt";
   
9. 
   
10. *导入xls数据的宏;
    
11. %macro importdata(filename,ith);
    
12. 
    
13. %let fposfix=%sysfunc(reverse(%substr(%sysfunc(reverse(&filename)),1,%sysfunc(min(%length(&filename),4)))));
    
14. %let fposfix=%upcase(&fposfix);
    
15. proc import datafile="&path.&filename" out=&OutPrefix.&ith
    
16.    dbms=
    
17.           %if &fposfix=%str(.XLS) %then EXCEL;
    
18.    %else %if &fposfix=%str(.TXT) %then TAB;
    
19.    %else %if &fposfix=%str(.CSV) %then CSV;
    
20.    %else %if &fposfix=%str(.MDB) %then ACCESS;
    
21.    %else %if &fposfix=%str(.DBF) %then DBF;
    
22.    replace;
    
23.    getnames=yes;
    
24.    delimiter=' ';
    
25. run;
    
26.   *以下三行语句是合并所有数据集，条件要求：数据集变量结构一致;
    
27. data all;
    
28.    set %if &ith ne 1 %then all; &OutPrefix.&ith;
    
29. run;
    
30. %mend;
    
31. 
    
32. %mend;
    
33. 
    
34. *导入所有数据文件;
    
35. data _null_;
    
36. infile "fname.txt";
    
37. input filename & $100.;
    
38. *执行宏，只导入指定格式的数据文件;
    
39. FNFIX=UPCASE(REVERSE(SUBSTR(LEFT(REVERSE(FILENAME)),1,4)));
    
40. IF  FNFIX IN (".XLS",".TXT",".MDB",".DBF",".CSV")
    
41. THEN call execute('%importdata(' || trim(filename) || ',' || _n_ || ')');
    
42. run;
    
43. 
    

复制代码

sushe1527 发表于 2015-3-25 09:39

谢谢！但是这段程序只能导入啊，import不能规定导入变量的输入和输出格式啊