SAS 批量导入文件

filevar 参数

----------------------------------------------------------------------------------

libname  mylib  "G:\MADATA\contexts\emea_apj\exports\apj\test\";


* x 'dir G:\\MADATA\\contexts\\emea_apj\\exports\\apj\\test\\*.txt /b/s > G:\\MADATA\\contexts\\emea_apj\\exports\\apj\\all.txt';


* x 'move G:\MADATA\contexts\emea_apj\exports\apj\all.txt G:\MADATA\contexts\emea_apj\exports\apj\test\';


data mylib.import_10 ;
infile 'G:\MADATA\contexts\emea_apj\exports\apj\test\all.txt'  dlm='|' firstobs=1;
format file_name $200.;
informat file_name $200.;
input file_name ;


file_name=strip(file_name);
infile aaa filevar=file_name dlm='|' firstobs=2  end=eof;
do while(not eof); 


format my_file_name $70.  year   partner em_margin  $20.;
informat my_file_name $70. year   partner em_margin  $20.;
my_file_name=file_name;
input year  partner em_margin   ;
output;
end;


run;


/* 
proc import datafile='G:\MADATA\contexts\emea_apj\exports\apj\test\all.txt' out=mylib.all_import dbms=dlm replace;
delimiter='|';
getnames=N;
datarow=1;
run;


data mylib.all_infile;
infile 'G:\MADATA\contexts\emea_apj\exports\apj\test\all.txt'  dlm='|' firstobs=1;
format file_name $200.;
informat file_name $200.;
input file_name ;
run;