用宏批量读入txt，之后如何只生成一个文件？

我不是大神，我也是菜鸟一个......大神以后你自然会看到 *_*!!
我猜测了下楼主代码的想法，添加以下代码，其中宏%a可以根据你的需要来替换
希望对你有帮助

1. options noxwait;
   
2. x "dir d:\*.txt /b > d:\all";
   
3. %macro a(n);
   
4.         %put Just a Test for &n!;
   
5. %mend a;
   
6. data _null_;
   
7.         infile "d:\all";
   
8.         input str:$100.;
   
9.         call execute(compress('%a('||scan(str,1,'.')||');'));
   
10. run;
    
11. x "del d:\all";

复制代码

11# soporaeternus
实在是谢谢大虾，顺利的帮我解决了我的问题！
虽然可以用了，问题也解决了。但是关于call execute语句还是有点不大懂，网上找不到关于他的资料，sas help又看不大懂，但是我一定会继续钻研的~

大虾好谦虚，我看到你帮好多人都解决了问题，每次回答之后还会加上 希望对你有帮助，好感动~~
再次感谢~

助人为快乐之本

If all files are under one location, then use filevar option will be much mor efficient than a macro approach.

我不认为把很多“小”的dataset通过append合起来
会比一个set省多少开销
提供一个用infile的filevar选项的方法
很久没用了，貌似可以更简单点的......
options noxwait;

x "dir d:\*.txt /b > d:\filename";

data ccc;
        length file $300;
        infile "d:\filename";
        input file:$300.;
        file=compress("D:\"||file);
        infile aaa filevar=file end=eof;
        do while (not eof);
                input x;
                output;
        end;
run;

x "del d:\filename";
复制代码

      
         我稍微改一下，先把需要文件移到到临时创建的文件夹中，然后再DIR 命令加上选择 /s，这样就能读到文件的全名称（包括路径），避免在data步处理路径问题，而且能适应多个文件夹及其子文件的情况。

1. options noxwait;
   
2. x "md d:\temp";
   
3. x "move d:\*.txt  d:\temp";
   
4. 
   
5. filename filepath pipe  "dir d:\temp\*.txt /b /s";
   
6.         
   
7. data ccc;
   
8.         infile filepath;
   
9.         input file $300.;
   
10.         infile aaa filevar=file end=eof;
    
11.         do while (not eof);
    
12.                 input x;
    
13.                 output;
    
14.         end;
    
15. run;
    
16. 
    
17. x "move d:\temp\*.* d:";
    
18. x "rmdir d:\temp"

复制代码

hongxx 发表于 2011-8-15 00:20
我稍微改一下，先把需要文件移到到临时创建的文件夹中，然后再DIR 命令加上选择 /s，这 ...

really nice!!!!

1. options noxwait;
   
2. x "md d:\temp";
   
3. x "move d:\*.txt d:\temp";
   
4. 
   
5. filename filepath pipe "dir d:\temp\*.txt /b /s";
   
6. 
   
7. data ccc;
   
8. infile filepath;
   
9. input file $300.;
   
10. infile aaa filevar=file end=eof;
    
11. do while (not eof);
    
12. input x;
    
13. output;
    
14. end;
    
15. run;
    
16. 
    
17. x "move d:\temp\*.* d:";
    
18. x "rmdir d:\temp"

复制代码

直接在DOS里copy：
copy/b file1.txt +file2.txt +file3.txt file4.txt
or:
copy/b *.txt newfile.txt

或者跟平常导入数据一样编写程序，只在导入路径更改将其改成*代替相似地方。例如批量导入E:city文件名为city20120801.txt city20120802.txt……city20121030.txt,这里的city不同、日期不同，年份相同，可将路径写成    INFILE 'E:\city\*2012*.txt'

good