合并大量相同格式的txt文件并导入sas

各位大神大牛，我有5个字段的学生数据，包括：学生姓名，学号，性别，入学日期，毕业日期。

可是有100个班的TXT文件，文件名分别是：1班，2班，3班...100班，


想要将他们合并，同时导入sas进行分析，求助各位大侠写个宏程序一次性批量导入，感激不尽啊

The following code requires that the filenames has the form: class1.txt class2.txt ... class100.txt, and the variables are in the order: Name ID Gender Edate Bdate.
If there is no variable names in the text file, the firstobs=1 should be used.

1. %macro InputMultiFiles(num);
   
2.   %do i=1 %to #
   
3.      data class;
   
4.        infile "F:\MySAS\Temp\class&i..txt" firstobs=2;
   
5.        input name $  ID Gender Edate : yymmdd10. Bdate : yymmdd10.;
   
6.      run;
   
7.     proc append base=ALL_Class data=class;
   
8.     run;
   
9.   %end;
   
10. %mend InputMultiFiles;
    
11. %InputMultiFiles(10);

复制代码

%macro merge(num);
  proc printto log=_null_;
  %do i=1 %to #
    proc import out=class&i datafile="c:\docs\class&i.txt" dbms=dlm replace;
    %if i=1 %then %do;
           data class_all;
            set class&i(obs=0);
           run;
        %end;
        proc append base=class_all data=class&i;
        proc datasets lib=work nolist;
    delete class&i;
        run;
  %end;
  proc printto;
  run;
%mend;

%merge(100)

farmman60 发表于 2013-10-14 10:04
%macro merge(num);
  proc printto log=_null_;
  %do i=1 %to #

1. %if i=1 %then
   
2. %do;
   
3. data class_all;
   
4. set class&i(obs=0);
   
5. run;
   
6. %end;

复制代码

这句是干什么？还有obs=0起什么作用？

不同表内的数据需要flag吗？

1. data a;
   
2.   infile 'C:\temp\*.txt';

复制代码

假设文件都在TEMP文件夹下

_i_ 发表于 2013-10-14 13:22
不同表内的数据需要flag吗？

Good Question. The flag as a variable is necessary in most cases for analytical purpose and grouping. add
    class = "class&i";
before input statement should be ok.

妖帝东皇 发表于 2013-10-14 11:38
这句是干什么？还有obs=0起什么作用？

同问~

围观学习~