Question

我从SAS网站上获取了SAS宏，以便列出文件夹中的所有文件。这是完整的参考：http://support.sas.com/kb/25/074.html。

这就是代码：

%macro drive(dir,ext);                                                                                                                        
  %let filrf=mydir;                                                                                                                       
  /* Assigns the fileref of mydir to the directory and opens the directory */                                                                    
  %let rc=%sysfunc(filename(filrf,&dir));                                                                                                
  %let did=%sysfunc(dopen(&filrf));                                                                                                       
  /* Returns the number of members in the directory */                                                                   
  %let memcnt=%sysfunc(dnum(&did));                                                                                                     
   /* Loops through entire directory */                                                                                                  
   %do i = 1 %to &memcnt;               
     /* Returns the extension from each file */                                                                                                                                    
     %let name=%qscan(%qsysfunc(dread(&did,&i)),-1,.);                                                                                                 
     /* Checks to see if file contains an extension */                                                                                     
     %if %qupcase(%qsysfunc(dread(&did,&i))) ne %qupcase(&name) %then %do;                                                                     
     /* Checks to see if the extension matches the parameter value */                                                                      
     /* If condition is true prints the full name to the log       */                                                                      
      %if (%superq(ext) ne and %qupcase(&name) = %qupcase(&ext)) or                                                                       
         (%superq(ext) = and %superq(name) ne) %then %do;                                                                                     
         %put %qsysfunc(dread(&did,&i));                  
      %end;                                                                               
     %end;                                                                                                                               
   %end;                                                                                                                                 
  /* Closes the directory */                                                                                                            
  %let rc=%sysfunc(dclose(&did));                                                                                                                                 
%mend drive;                                                                                                                            

/* First parameter is the directory of where your files are stored. */                                                                
/* Second parameter is the extension you are looking for.           */                                                                
/* Leave 2nd paramater blank if you want a list of all the files.   */                                                                
%drive(c:\,sas)

这个宏（显然）工作正常，问题是返回日志上的结果。我需要将这些结果放入SAS数据集中，以便安排其他操作。我该怎么办？

提前致谢。

Answer 1

首先，如果你可以制作烟斗，你可以这样做：

filename dirlist pipe "dir /b c:\*.sas";

data myfiles;
infile dirlist lrecl=512 truncover;
input 
@1 fullname $512.;
filename = scan(fullname,-1,'\');
run;

如果由于系统限制确实需要使用该宏，则不能直接从中获取输出，因为除了打印到日志之外，它不会执行任何操作。您需要做以下两件事之一：

使用PROC PRINTTO将日志重定向到文件，然后可以解析
更改实际执行某些操作的代码行。 %put %qsysfunc(dread(&did,&i));如果您将此更改为，例如

filename = dread（＆amp; did，＆amp; i）; 输出;

然后从数据步骤中调用宏，您可以使用结果。实际上，你可能最好只是在datastep中运行所有这些并且不需要使用宏 - 它比仅仅为了宏而需要更复杂;在一个更短的datastep中。

SAS，处理宏输出

1 个答案: