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

百年孤独

  在网上看到了一些比较不错的sas 关于宏的资源 希望对大家有用
在此非常感谢 某某论坛的资源共享。
这个宏是用来检查指定目标文件夹或文件是否存在的，若存在则删除，不存在则创建，用于解决在dos中和SAS中无法创建文件夹的问题
1 h1 x6 f7 n" D例如可以在运行proc export前ChkFile下

8 m. }  k3 c9 H2 m8 W  U%macro ChkFile(OutFilePath);
/**********************************************************************/
/* 此宏的作用是检查指定路径的文件夹或文件是否存在。若指定路径包含文件 */
/* 名，则运行此宏后路径中包含的文件夹存在但文件不存在，方便以后操作； */
/* 若指定路径不包含文件名，则运行此宏后路径中包含的文件夹存在。其中， */
/* OutFilePath是指定的文件夹或文件路径。注意如果路径中包含文件名，则  */
! S( g  b- H8 V: M- |/* 一定要写全文件名和其扩展名。                                       */
. N& y7 y( b8 ^$ V' {  b$ S  O/*                                                                    */
% c( a" P3 @1 l3 T8 _/ P8 }/*                                      Created on 2011.9.29          */
/*                                      Modified on 2011.9.29         */
0 C. E- \4 y8 J6 B/**********************************************************************/
7 d8 r  n* |1 B0 T  w# g
5 x' L2 T& G. T$ Q7 Z$ p% d. ?/* 情形1：当输入参数OutFilePath包含文件名时，注意文件名必须带后缀 */
%if %SYSFUNC(FIND(&OutFilePath,%Str(.))) NE 0 %then %do;
% ?3 Q. ^" C5 {' m        /* 得到OutFilePath中包含的文件名File和文件夹路径Dir */
: p: _- J& o1 R/ J- m3 ~% _7 A        %let File=%SYSFUNC(SCAN(&OutFilePath,-1,\));
        %let Dir=%SYSFUNC(SUBSTR(&OutFilePath,1,%EVAL(%SYSFUNC(LENGTH(&OutFilePath))-%SYSFUNC(LENGTH(&File)))));

        options noxwait;

( h+ C1 k( L9 H5 a        %local rc1 fileref1;
        %local rc2 fileref2;
        %let rc1=%SYSFUNC(FILENAME(fileref1,&Dir));
* r, @8 @% t1 W$ }        %let rc2=%SYSFUNC(FILENAME(fileref2,&OutFilePath));

        %if %SYSFUNC(FEXIST(&fileref1)) %then %do;
2 F! |5 ?2 l. D; B5 F" W                %put NOTE: The directory "&Dir" exists.;
3 C2 E) J) c( c7 a5 @                %if %SYSFUNC(FEXIST(&fileref2)) %then %do;                /* 文件夹存在且文件也存在的情形 */
                        %SYSEXEC del &OutFilePath;
                        %put NOTE: The file "&File" also exists, and has been deleted.;
                        %end;
: ?; g) s/ Y. D! L* S                %else %put NOTE: But the file "&File" does not exist.;                /* 文件夹存在且文件不存在的情形 */
( r3 b( X* r( I( d" \$ `9 N                %end;
        %else %do;                /* 文件夹不存在的情形 */
4 D% W! U0 r6 t# Z/ b0 x* X) C! b. S; D                %SYSEXEC md &Dir;
: o! ~5 ]# c- _! H! x2 r3 ]2 w                %put %SYSFUNC(SYSMSG()) The directory has been created.;
( H5 z1 a: c8 N. C                %end;

4 o$ D" W9 _4 ^# }        %let rc1=%SYSFUNC(FILENAME(fileref1));
        %let rc2=%SYSFUNC(FILENAME(fileref2));
' J) K8 d: _0 ^0 m1 `4 U6 m%end;

/ S2 W5 d9 w, ~' x. P1 U: V/* 情形2：当输入参数OutFilePath不包含文件名时 */
/ K% k& ^) u% N7 Y- T! ]%else %do;
        options noxwait;
! |3 T+ e4 w: \
- \) X$ r2 h# t        %local rc fileref;
        %let rc=%SYSFUNC(FILENAME(fileref,&OutFilePath));
# }1 p+ y. E' l7 I0 j        %if %SYSFUNC(FEXIST(&fileref))  %then
                %put NOTE: The directory "&OutFilePath" exists.;
        %else %do;
5 v3 b  H% V; v/ P                %SYSEXEC md &OutFilePath;
+ w5 U5 C2 ]3 J$ C& Y2 s. u                %put %SYSFUNC(SYSMSG()) The directory has been created.;
                %end;
- y3 W5 s9 v/ [1 h        %let rc=%SYSFUNC(FILENAME(fileref));
%end;

/ ~+ ~/ D: U# ^0 b& y) W1 K! c%mend;

! }+ T5 a; Y/ |  s, e
) p$ C4 O/ _. \' L%macro Demo();
' H! P5 i, |, @" u4 A+ \, I( w
) O/ r0 B# Q2 V  q4 B+ k. T%ChkFile(d:\temp\data.xls);
2 q$ P" D/ b" N# ?: ^
%mend;