请帮忙看看程序哪错了

1. *-------将c盘里的所有csv文件导入---------*;
   
2. filename indata pipe "dir c:\*.csv /b";
   
3. data vname;
   
4. length fname $20.;
   
5. infile indata truncover;
   
6. input fname $20.;
   
7. call symput ('nvars',_n_);
   
8. run;
   
9. %macro want;
   
10. %do i = 1 %to &nvars;
    
11. data _null_;
    
12. set vname(firstobs = &i obs = &i);
    
13. call symput ('file', strip(fname));
    
14. run;
    
15. proc import
    
16. out = %substr(&file,1,%length(&file)-4)
    
17. datafile = "c:\&file"
    
18. dbms = csv replace;
    
19. guessingrows = 32676;
    
20. getnames = YES;
    
21. run;
    
22. %end;
    
23. %mend;
    
24. %want
    
25. 
    
26. *------------依次带入回归过程步中------------*;
    
27. 
    
28. %macro LoopReg;
    
29. %do i=1 %to &nvars;
    
30. data _null_;
    
31. set vname(firstobs=&i obs=&i);
    
32. call symput("DT",strip(fname));
    
33. call symput("file",%substr(&DT,1,%length(&DT)-4));
    
34. run;
    
35. proc reg data=&file;
    
36. model y=x;
    
37. run;
    
38. %end;
    
39. %mend;
    
40. %loopreg

复制代码

上面的宏want没有问题，但带入回归过程步就出问题了。

带入回归那里出错是因为：在同一个数据集里面，不能调用刚生成的宏变量，因为在编译的时候，那些宏变量已经解析了，所以等于楼主的那个DT还没有值呢。还有一点，楼主曾多次问我为何要有那个点，者可以说是习惯，点代表了解析的结束，养成习惯，比如楼主写带有扩展名的时候，如果%let file=abc; 然后%put &file.xls，那么解析出来的有是abcxls，但是如果写成%put &file..xls解析出来的就是正确的名字abc.xls，这样说很好理解吧？

所以改成这样：

1. %macro LoopReg;
   
2.   %do i = 1 %to &nvars.;
   
3.     data _null_;
   
4.       set vname(firstobs = &i. obs = &i.);
   
5.       call symput("file",strip(fname));
   
6.     run;

复制代码

&DT generated by symput after the data step

sniperhgy 发表于 2014-10-24 16:50
带入回归那里出错是因为：在同一个数据集里面，不能调用刚生成的宏变量，因为在编译的时候，那些宏变量已经 ...

多谢指点！我改成这样就可以了：

1. *-------将c盘里的所有csv文件导入---------*;
   
2. filename indata pipe "dir c:\*.csv /b";
   
3. data vname;
   
4. length fname $20.;
   
5. infile indata truncover;
   
6. input fname $20.;
   
7. call symput ('nvars',_n_);
   
8. run;
   
9. %macro want;
   
10. %do i = 1 %to &nvars;
    
11. data _null_;
    
12. set vname(firstobs = &i obs = &i);
    
13. call symput ('file', strip(fname));
    
14. run;
    
15. proc import
    
16. out = %substr(&file,1,%length(&file)-4)
    
17. datafile = "c:\&file"
    
18. dbms = csv replace;
    
19. guessingrows = 32676;
    
20. getnames = YES;
    
21. run;
    
22. %end;
    
23. %mend;
    
24. %want
    
25. 
    
26. *------------依次带入回归过程步中------------*;
    
27. 
    
28. %macro LoopReg;
    
29.   %do i = 1 %to &nvars.;
    
30.     data _null_;
    
31.       set vname(firstobs = &i. obs = &i.);
    
32.       call symput("file",strip(fname));
    
33.     run;
    
34.         %let file=%substr(&file,1,%length(&file)-4);
    
35.         proc reg data=&file;
    
36.         model y=x;
    
37.         run;
    
38.         %end;
    
39.         %mend;
    
40.         %loopreg

复制代码

把宏变量的截短用%let写在data步外了。

点的含义知道了

bullstag 发表于 2014-10-24 21:47
&DT generated by symput after the data step

多谢回复！

augustin4 发表于 2014-10-24 23:48
多谢指点！我改成这样就可以了：把宏变量的截短用%let写在data步外了。

点的含义知道了

解决了就好，恭喜