请问如何批量导入文件（格式一样）

shiyiming

请问如何批量导入文件（格式一样）

shiyiming

在filename中放入要的文件
filename BadFile (
'P:\Regular Report\200901\B1001.bad'
'P:\Regular Report\200901\B1002.bad'
'P:\Regular Report\200901\B1003.bad'
'P:\Regular Report\200901\B1004.bad');

如果要放入宏变量的话，用""包括文件，否则不会解析

shiyiming

导入数据的话，想到的常规方法是用proc import，
批量导入的话，考虑写成宏循环，这是目前想到的方法。

shiyiming

filename indata pipe 'dir c:\exer /b';    /*c:\exer是文件所在的目录*/
data file_list;
length fname $20.;
infile indata truncover;
call symput ('num_files',_n_);
input fname $20.;
prefixname=tranwrd(fname,'.xls','');   /*如果是csv，就写csv*/
call symput ('out',prefixname);
call symput ('in',fname);
run;

data _null_;
set file_list;
by prefixname;
if first.prefixname
then call execute('proc import out=' || prefixname || '
datafile="c:\0\exer1\' || fname || '" dbms=excel replace; run;');   /*如果是csv，就把excel写成csv*/
run;