如何合并一个文件夹里所有txt的数据文件

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

如何合并整理一个文件夹里所有txt的数据文件

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：数据文件 文件夹 txt 数据合并

%let dir=your-directory;

FileName MyDir Pipe "dir ""&dir"" /B";
data _null_;
   *** Get TXT file names from the folder;
        infile MyDir lrecl=300 truncover;
        input @1 content $200. ;
        if substr(content,length(content)-3)=".txt";
        content=cats("&dir\",content);

        *** Read in every TXT file and output to "new.txt";
        infile dummy filevar=content end=done;
        file "new.txt";
        do until(done);
          input;
      put _infile_;
        end;
run;
filename mydir clear;

pobel 发表于 2012-11-23 11:57
%let dir=your-directory;

FileName MyDir Pipe "dir ""&dir"" /B";

大人，能解析一下么？小的看不懂呀！！！

教授果然是高深的，完全看不懂您的意图，好好琢磨一下得

lousum 发表于 2012-11-23 12:30
大人，能解析一下么？小的看不懂呀！！！

%let dir=your-directory;   /*指定文件路径，将“your-directory”换成实际路径*/

FileName MyDir Pipe "dir ""&dir"" /B";
data _null_;
   *** Get TXT file names from the folder;
        infile MyDir lrecl=300 truncover;
        input @1 content $200. ;   /*将指定路径下的文件夹和文件的名字读入变量content*/
        if substr(content,length(content)-3)=".txt"; /*选出txt文件*/
        content=cats("&dir\",content);    /*补全完整路径*/

        *** Read in every TXT file and output to "new.txt";
        infile dummy filevar=content end=done;  /*从变量content指定的文件读取数据*/
        file "new.txt";  /*指定输出文件*/
        do until(done);   /*对于每一个输入txt文件，读到最后就跳出do循环，目的是继续读下一个txt文件而不会造成data步结束*/
          input; /*input语句执行后，读入的值就会存到变量_infile_中*/
          put _infile_; /*将_infile_的值输出到“file”语句指定的txt文件中*/
        end;
run;
filename mydir clear;

pobel 发表于 2012-11-23 14:48
%let dir=your-directory;   /*指定文件路径，将“your-directory”换成实际路径*/

FileName MyDir Pi ...

小小的建议~
FileName MyDir Pipe "dir ""&dir.\*.txt"" /B";
下面就无需判断是否为txt文件了

关于批量导入合并原始文件，名字有规律或者无规律的，这个问题提的太多，建议版主写一个批量合并文件程序大全，回答各种常见问题，并添加注释，方便初学者理解。做成宏，方便初学者使用。

借用DOS命令，不知这个投机取巧的是否可用？

%let root=d:\tst; /*suppose the root is d:\tst*/
options
noxwait noxsync;   
x " copy &root.\*.txt   &root.\all.txt " ;

pobel 发表于 2012-11-23 14:48
%let dir=your-directory;   /*指定文件路径，将“your-directory”换成实际路径*/

FileName MyDir Pi ...

赞赞赞~