宏循环

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

我在想利用宏来导入数据文件，这些文件名称只有下标差异，即都是book1，book2，book3.。。。这一类的，导入后定义为a1，a2，a3.。。。写了这么一段，可是好像不太对，最后希望不用自己改book1、book2.。。。能用个循环一次全搞定！请问这段程序应该怎么写啊？
多谢各位了，刚开始学，好多不太会，希望各位指点指点！

%macro daoru(n,m);
proc import datafile="D:\book&n.csv" out=a&m ;
run;
%mend;

。。。

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：宏循环 import Macro Book file import 电话 家乐 平度

1. %macro daoru(n);
   
2. %do i=1 %to &n;
   
3.         proc import datafile="D:\book&i..csv" out=a&i;
   
4.         ...................
   
5.         run;
   
6. %end;
   
7. %mend;
   
8. %daoru(n);

复制代码

1. %LET PATH = C:\; * CSV FILE FOLDER;
   
2. 
   
3. OPTIONS NOXWAIT;
   
4. X DIR/B "&PATH\BOOK*.CSV" > "&PATH\DIR.TXT";
   
5. DATA _NULL_;
   
6.   INFILE "&PATH\DIR.TXT" TRUNCOVER END=FINAL;
   
7.   INPUT CSVFILE $ 1-50;
   
8.   COUNT+1;
   
9.   FILE_NAME='F'||STRIP(PUT(COUNT,8.));
   
10.   CALL SYMPUT(FILE_CODE,CSVFILE);
    
11.   IF FINAL THEN CALL SYMPUT('FILE_NUM',PUT(COUNT,8.));
    
12. RUN;
    
13. 
    
14. X DEL "&PATH\DIR.TXT";
    
15. 
    
16. %MACRO READIN;
    
17. %DO I=1 %TO &FILE_NUM;
    
18.   PROC IMPORT DATAFILE = "&PATH\&&F&I" OUT=A&I
    
19.     DBMS = CSV REPLACE;
    
20.   RUN;
    
21. %END;
    
22. %MEND;
    
23. 
    
24. %READIN

复制代码

1. %macro get(n);
   
2.    %do i=1 %to &n;
   
3. proc import out=a&i
   
4. datafile="D:\book&i..csv"
   
5. dbms=csv replace;
   
6. getnames=yes;
   
7. run; %end;
   
8. %mend get;
   
9. %get(n);
   
10. run;

复制代码

试试这个

谢谢各位了，三楼前半部分程序现在有点看不懂，看样子要学的还有很多啊！

leedx 发表于 2011-2-23 16:28
试试这个

好像这样