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

百年孤独

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

! [* a# o/ Z* t( J5 B9 @$ a%macro ChkFile(OutFilePath);
/**********************************************************************/
/* 此宏的作用是检查指定路径的文件夹或文件是否存在。若指定路径包含文件 */
/* 名，则运行此宏后路径中包含的文件夹存在但文件不存在，方便以后操作； */
" o8 o$ N0 L- @/* 若指定路径不包含文件名，则运行此宏后路径中包含的文件夹存在。其中， */
/* OutFilePath是指定的文件夹或文件路径。注意如果路径中包含文件名，则  */
/* 一定要写全文件名和其扩展名。                                       */
4 U: b! f! Z- r& G% S, G# F% J/*                                                                    */
$ U  i' \7 [/ e  J8 s& \/*                                      Created on 2011.9.29          */
/*                                      Modified on 2011.9.29         */
/**********************************************************************/

. f  Y& m9 I7 _7 }9 }8 T( ^/* 情形1：当输入参数OutFilePath包含文件名时，注意文件名必须带后缀 */
%if %SYSFUNC(FIND(&OutFilePath,%Str(.))) NE 0 %then %do;
. z; U. B" v! }        /* 得到OutFilePath中包含的文件名File和文件夹路径Dir */
        %let File=%SYSFUNC(SCAN(&OutFilePath,-1,\));
" Y3 |9 T" ~" i, W  B, f+ m& }: H9 f: [        %let Dir=%SYSFUNC(SUBSTR(&OutFilePath,1,%EVAL(%SYSFUNC(LENGTH(&OutFilePath))-%SYSFUNC(LENGTH(&File)))));

$ `8 v, S% |2 ^. W# X' |        options noxwait;

        %local rc1 fileref1;
. M8 ^( g% C! p  M9 h        %local rc2 fileref2;
        %let rc1=%SYSFUNC(FILENAME(fileref1,&Dir));
5 w) P% a2 b# n$ S0 l4 Q        %let rc2=%SYSFUNC(FILENAME(fileref2,&OutFilePath));

$ G0 |( A# L, S        %if %SYSFUNC(FEXIST(&fileref1)) %then %do;
                %put NOTE: The directory "&Dir" exists.;
3 Z) K* I8 l: C7 f+ _" d  G8 E                %if %SYSFUNC(FEXIST(&fileref2)) %then %do;                /* 文件夹存在且文件也存在的情形 */
$ I' z4 {' o5 }9 r9 p) [& W- i                        %SYSEXEC del &OutFilePath;
! E2 o$ A& z7 Z- [% r% d' D                        %put NOTE: The file "&File" also exists, and has been deleted.;
                        %end;
                %else %put NOTE: But the file "&File" does not exist.;                /* 文件夹存在且文件不存在的情形 */
+ T4 a5 s1 a5 Z6 k0 H1 Q+ w                %end;
        %else %do;                /* 文件夹不存在的情形 */
$ k' f3 H2 Y% }' a" }) F% ]                %SYSEXEC md &Dir;
                %put %SYSFUNC(SYSMSG()) The directory has been created.;
! D, c8 e; O. J# _2 a: z2 _                %end;

        %let rc1=%SYSFUNC(FILENAME(fileref1));
        %let rc2=%SYSFUNC(FILENAME(fileref2));
%end;
$ x( W' I* W! T
/* 情形2：当输入参数OutFilePath不包含文件名时 */
%else %do;
2 @0 P5 \; I) V; w        options noxwait;

. N$ s; H- Y. k! [+ e        %local rc fileref;
        %let rc=%SYSFUNC(FILENAME(fileref,&OutFilePath));
        %if %SYSFUNC(FEXIST(&fileref))  %then
                %put NOTE: The directory "&OutFilePath" exists.;
        %else %do;
9 @# @; N) f9 P1 N                %SYSEXEC md &OutFilePath;
                %put %SYSFUNC(SYSMSG()) The directory has been created.;
                %end;
        %let rc=%SYSFUNC(FILENAME(fileref));
, A1 o; L5 C/ k3 c, [%end;
1 }3 u0 T" H3 X7 Q' V
%mend;
2 N: W- v. b7 Q
8 B+ a' A# }8 d( M
%macro Demo();

%ChkFile(d:\temp\data.xls);
2 R' D2 P* \  Z1 K% A
%mend;
' `7 V/ g$ F! I5 J& \! i