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

百年孤独

  在网上看到了一些比较不错的sas 关于宏的资源 希望对大家有用
& ]) F# p& Y) S- ^ 在此非常感谢 某某论坛的资源共享。
' A. F5 r: h. m7 U* j. e这个宏是用来检查指定目标文件夹或文件是否存在的，若存在则删除，不存在则创建，用于解决在dos中和SAS中无法创建文件夹的问题
5 C) T% p# s) n) r7 ^2 |% I, y例如可以在运行proc export前ChkFile下

%macro ChkFile(OutFilePath);
/**********************************************************************/
/* 此宏的作用是检查指定路径的文件夹或文件是否存在。若指定路径包含文件 */
/* 名，则运行此宏后路径中包含的文件夹存在但文件不存在，方便以后操作； */
/* 若指定路径不包含文件名，则运行此宏后路径中包含的文件夹存在。其中， */
  D  D" q/ E1 E% v9 W. W1 D4 S/* OutFilePath是指定的文件夹或文件路径。注意如果路径中包含文件名，则  */
! S2 f: }' {: C  a8 j; s/* 一定要写全文件名和其扩展名。                                       */
0 ~; U( ?# b% X/*                                                                    */
/*                                      Created on 2011.9.29          */
% a- \6 n6 ]& O/*                                      Modified on 2011.9.29         */
/**********************************************************************/

1 z' j3 ]. n3 a. X$ p! ]/* 情形1：当输入参数OutFilePath包含文件名时，注意文件名必须带后缀 */
. ]* M* s" \% S) l. f" `0 f%if %SYSFUNC(FIND(&OutFilePath,%Str(.))) NE 0 %then %do;
        /* 得到OutFilePath中包含的文件名File和文件夹路径Dir */
8 K4 y7 v1 O; D& h+ J% Q        %let File=%SYSFUNC(SCAN(&OutFilePath,-1,\));
        %let Dir=%SYSFUNC(SUBSTR(&OutFilePath,1,%EVAL(%SYSFUNC(LENGTH(&OutFilePath))-%SYSFUNC(LENGTH(&File)))));

& i( r5 ?5 d2 U; `        options noxwait;

- x- e0 r( m6 N( L        %local rc1 fileref1;
        %local rc2 fileref2;
; b; n/ g, j4 Z' l& ]/ o3 m        %let rc1=%SYSFUNC(FILENAME(fileref1,&Dir));
        %let rc2=%SYSFUNC(FILENAME(fileref2,&OutFilePath));
$ O% J, R% Q! d
        %if %SYSFUNC(FEXIST(&fileref1)) %then %do;
! q, O) a0 w0 F4 Y( w$ [                %put NOTE: The directory "&Dir" exists.;
& t/ Z" E# {5 {$ r. a1 Z4 A4 C                %if %SYSFUNC(FEXIST(&fileref2)) %then %do;                /* 文件夹存在且文件也存在的情形 */
; v  ^' Q' O/ y; r% B                        %SYSEXEC del &OutFilePath;
6 f6 z! o3 N! N  g1 h3 o                        %put NOTE: The file "&File" also exists, and has been deleted.;
; h1 D! L8 [/ Z                        %end;
                %else %put NOTE: But the file "&File" does not exist.;                /* 文件夹存在且文件不存在的情形 */
8 T, }9 _5 T7 l/ A. P& o& f! i                %end;
        %else %do;                /* 文件夹不存在的情形 */
; Q! M2 b" x- D, s$ N                %SYSEXEC md &Dir;
                %put %SYSFUNC(SYSMSG()) The directory has been created.;
                %end;
. I3 u+ G6 \5 k+ G& g, O
        %let rc1=%SYSFUNC(FILENAME(fileref1));
        %let rc2=%SYSFUNC(FILENAME(fileref2));
%end;
( c$ f+ e8 }9 t; ~3 Y/ e8 ^" \
$ m8 F* A7 R, d; j( Q/* 情形2：当输入参数OutFilePath不包含文件名时 */
%else %do;
        options noxwait;

        %local rc fileref;
+ ^% W( n2 j( a, S        %let rc=%SYSFUNC(FILENAME(fileref,&OutFilePath));
        %if %SYSFUNC(FEXIST(&fileref))  %then
1 N1 `; X& H4 ^( H                %put NOTE: The directory "&OutFilePath" exists.;
        %else %do;
( t0 ?6 E+ Z7 f) V                %SYSEXEC md &OutFilePath;
                %put %SYSFUNC(SYSMSG()) The directory has been created.;
                %end;
8 ^# H) }# f: g1 f' x8 w        %let rc=%SYSFUNC(FILENAME(fileref));
%end;

%mend;
9 W$ s& L' g! q) f0 a2 u: M

%macro Demo();
3 j: f: s9 A& q3 G/ s6 }
# \% t  g6 o0 x5 p# u" b0 k%ChkFile(d:\temp\data.xls);

5 N/ J. ]4 N  ?%mend;
9 r8 v* }# d7 P