在SAS中导入空CSV文件

Question

我正在尝试使用一个循环遍历给定文件夹中所有文件的宏导入一系列CSV文件。但是，我想从循环中排除该文件夹中的一些空CSV文件。 SAS中有什么方法可以找到CSV文件大小？

PROC IMPORT OUT=&output
            DATAFILE= "&input"
            DBMS=CSV REPLACE;
     GETNAMES=YES;
     DATAROW=2;
        *GUESSINGROWS=32000;
RUN;

谢谢，山姆

Answer 1

现在可以在数据步骤中完成此操作：

filename fileref 'c:\date.tmp';
data a;
infile fileref truncover;
fid=fopen('fileref');
Bytes=finfo(fid,'File Size (bytes)');                                                                                  
crdate=finfo(fid,'Create Time');
moddate=finfo(fid,'Last Modified');
input var1 $20.;
run;

Answer 2

%macro FileAttribs(filename);
  %local rc fid fidc Bytes;
   %let rc=%sysfunc(filename(onefile,&filename));
   %let fid=%sysfunc(fopen(&onefile));
   %let Bytes=%sysfunc(finfo(&fid,File Size (bytes)));
        %if &Bytes >0 %then %do;
                %put #####Size is > 0#####;
        %end;
        %else %do;
                %put #####Size is < 0#####;
        %end;
   %let fidc=%sysfunc(fclose(&fid));
   %let rc=%sysfunc(filename(onefile));
    %put NOTE: File size of &filename is &Bytes bytes;
%mend FileAttribs;

Answer 3

这是另一种方法：

 %let filename =c:\date.tmp;                                                                                                       
 %let rc=%sysfunc(filename(onefile,&filename)); 

 %let fid=%sysfunc(fopen(&onefile));                                                                                                  
 %let Bytes=%sysfunc(finfo(&fid,File Size (bytes)));                           
 %let fidc=%sysfunc(fclose(&fid));                                                                                                    

 %put NOTE: File size of &filename is &Bytes bytes;