转载 分享 SAS基础宏之1：ChkFile 包括代码实现

百年孤独

  在网上看到了一些比较不错的sas 关于宏的资源 希望对大家有用
& h4 S& _) p& E6 z* S+ l2 s 在此非常感谢 某某论坛的资源共享。
( R. r5 C2 o0 W, O5 I$ O这个宏是用来检查指定目标文件夹或文件是否存在的，若存在则删除，不存在则创建，用于解决在dos中和SAS中无法创建文件夹的问题
例如可以在运行proc export前ChkFile下
2 p7 ?/ y& ^0 D3 w1 V6 y, J
1 U0 ~" l; x* g' t2 K* e$ ^%macro ChkFile(OutFilePath);
) D; @. Q* T! B, y0 }/**********************************************************************/
" u8 ?$ N" K( U+ }/* 此宏的作用是检查指定路径的文件夹或文件是否存在。若指定路径包含文件 */
/* 名，则运行此宏后路径中包含的文件夹存在但文件不存在，方便以后操作； */
$ r4 S* {3 f9 c8 f& a0 l/* 若指定路径不包含文件名，则运行此宏后路径中包含的文件夹存在。其中， */
8 u! N4 H. P4 Z5 |0 d. U- _/* OutFilePath是指定的文件夹或文件路径。注意如果路径中包含文件名，则  */
/* 一定要写全文件名和其扩展名。                                       */
/*                                                                    */
$ j+ C+ r# Q* K/*                                      Created on 2011.9.29          */
/*                                      Modified on 2011.9.29         */
, C8 o/ h- h) @7 V6 Q, H/**********************************************************************/

/* 情形1：当输入参数OutFilePath包含文件名时，注意文件名必须带后缀 */
5 Z& r* H1 ~. ]* w. k9 V# c%if %SYSFUNC(FIND(&OutFilePath,%Str(.))) NE 0 %then %do;
        /* 得到OutFilePath中包含的文件名File和文件夹路径Dir */
* p( n* `( O. T- ^0 l        %let File=%SYSFUNC(SCAN(&OutFilePath,-1,\));
        %let Dir=%SYSFUNC(SUBSTR(&OutFilePath,1,%EVAL(%SYSFUNC(LENGTH(&OutFilePath))-%SYSFUNC(LENGTH(&File)))));

- m( t9 v4 f$ C+ s8 x$ @) R        options noxwait;

1 L1 ^, N, f6 [" l3 Q% f! K( \        %local rc1 fileref1;
        %local rc2 fileref2;
% x/ F# p( B* {, T7 Y        %let rc1=%SYSFUNC(FILENAME(fileref1,&Dir));
7 q' K) p" l# I. a( t" r7 k( r9 ?9 u, B        %let rc2=%SYSFUNC(FILENAME(fileref2,&OutFilePath));

) @8 G$ X$ x8 O0 ^        %if %SYSFUNC(FEXIST(&fileref1)) %then %do;
                %put NOTE: The directory "&Dir" exists.;
. ]+ }# A( ~  A& P* w! N  g                %if %SYSFUNC(FEXIST(&fileref2)) %then %do;                /* 文件夹存在且文件也存在的情形 */
                        %SYSEXEC del &OutFilePath;
                        %put NOTE: The file "&File" also exists, and has been deleted.;
. U4 [& u  _/ w7 b' |$ E                        %end;
                %else %put NOTE: But the file "&File" does not exist.;                /* 文件夹存在且文件不存在的情形 */
                %end;
( V5 G$ I8 k0 Y/ |! J8 F        %else %do;                /* 文件夹不存在的情形 */
                %SYSEXEC md &Dir;
                %put %SYSFUNC(SYSMSG()) The directory has been created.;
                %end;
: x& @4 Y' c% B  ^/ [/ }
8 m& z! \( d" s. s! q: w        %let rc1=%SYSFUNC(FILENAME(fileref1));
        %let rc2=%SYSFUNC(FILENAME(fileref2));
: `0 p+ e: w8 x, n; V%end;
8 b2 e7 G3 y* f3 [( _, }1 k
/* 情形2：当输入参数OutFilePath不包含文件名时 */
1 B# v9 E( [) K7 N%else %do;
  [; v9 X/ L2 Q9 A! {5 j        options noxwait;

        %local rc fileref;
        %let rc=%SYSFUNC(FILENAME(fileref,&OutFilePath));
! r/ r: a2 i  U5 j6 F        %if %SYSFUNC(FEXIST(&fileref))  %then
+ |, z/ Z/ ~) g6 A; t; v                %put NOTE: The directory "&OutFilePath" exists.;
        %else %do;
                %SYSEXEC md &OutFilePath;
                %put %SYSFUNC(SYSMSG()) The directory has been created.;
                %end;
        %let rc=%SYSFUNC(FILENAME(fileref));
# ^& w0 [, K$ j# T%end;

%mend;

3 h. L( O5 j9 f$ k
  }& |3 y3 Q2 s& R- d%macro Demo();

+ o8 [: o% E& p%ChkFile(d:\temp\data.xls);
1 R6 e- t1 n# }. s$ Y5 Y
%mend;