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

百年孤独

  在网上看到了一些比较不错的sas 关于宏的资源 希望对大家有用
; y0 r3 R* S2 E) R% ^2 \( d 在此非常感谢 某某论坛的资源共享。
这个宏是用来检查指定目标文件夹或文件是否存在的，若存在则删除，不存在则创建，用于解决在dos中和SAS中无法创建文件夹的问题
# n8 }4 k5 z/ r, Z& l0 O" Z6 \例如可以在运行proc export前ChkFile下
" t/ P  ?1 h1 x: J& o. H3 P
%macro ChkFile(OutFilePath);
& Z# H1 A; j/ t  S6 O+ ?: u( ]8 [/**********************************************************************/
2 h7 w( L0 Y! L+ B- M/* 此宏的作用是检查指定路径的文件夹或文件是否存在。若指定路径包含文件 */
/* 名，则运行此宏后路径中包含的文件夹存在但文件不存在，方便以后操作； */
" O. O+ V  f7 l: }9 _7 d% z: t/* 若指定路径不包含文件名，则运行此宏后路径中包含的文件夹存在。其中， */
. N+ T% o& U5 g, O# J# p8 m5 `/* OutFilePath是指定的文件夹或文件路径。注意如果路径中包含文件名，则  */
" j8 W5 m# n: g7 z/* 一定要写全文件名和其扩展名。                                       */
/*                                                                    */
/*                                      Created on 2011.9.29          */
. m: @; D* V8 ~- r3 E/*                                      Modified on 2011.9.29         */
/**********************************************************************/
; a# D2 s7 j" [9 V0 i
/* 情形1：当输入参数OutFilePath包含文件名时，注意文件名必须带后缀 */
%if %SYSFUNC(FIND(&OutFilePath,%Str(.))) NE 0 %then %do;
        /* 得到OutFilePath中包含的文件名File和文件夹路径Dir */
        %let File=%SYSFUNC(SCAN(&OutFilePath,-1,\));
8 E" a+ t: _* m1 v2 K8 L3 J+ ^        %let Dir=%SYSFUNC(SUBSTR(&OutFilePath,1,%EVAL(%SYSFUNC(LENGTH(&OutFilePath))-%SYSFUNC(LENGTH(&File)))));
3 I( [2 z) X' A7 x& B: h
        options noxwait;

  p6 _' @. G9 t2 y8 H        %local rc1 fileref1;
        %local rc2 fileref2;
        %let rc1=%SYSFUNC(FILENAME(fileref1,&Dir));
! D( ?- T" k" b# y: N+ e        %let rc2=%SYSFUNC(FILENAME(fileref2,&OutFilePath));

6 N: L3 r. J# _5 {1 W        %if %SYSFUNC(FEXIST(&fileref1)) %then %do;
                %put NOTE: The directory "&Dir" exists.;
                %if %SYSFUNC(FEXIST(&fileref2)) %then %do;                /* 文件夹存在且文件也存在的情形 */
                        %SYSEXEC del &OutFilePath;
5 {  b( A/ B& m2 s# R5 Y( m                        %put NOTE: The file "&File" also exists, and has been deleted.;
9 r2 I7 E. b% l0 [                        %end;
  }! C1 T/ J$ X                %else %put NOTE: But the file "&File" does not exist.;                /* 文件夹存在且文件不存在的情形 */
                %end;
        %else %do;                /* 文件夹不存在的情形 */
& W) S: h. i6 I" e                %SYSEXEC md &Dir;
                %put %SYSFUNC(SYSMSG()) The directory has been created.;
! y0 m/ ?0 t, e( k                %end;

        %let rc1=%SYSFUNC(FILENAME(fileref1));
        %let rc2=%SYSFUNC(FILENAME(fileref2));
%end;
8 D) g6 Q4 [- r8 x8 `1 P
/* 情形2：当输入参数OutFilePath不包含文件名时 */
% x$ f* |6 G# C, `%else %do;
5 E. S# \. F6 x% R/ B: n- r) I) Q        options noxwait;

9 o9 ]7 f: P) F, b; O% E" G: }/ N/ O2 O        %local rc fileref;
7 B% }- m: i/ e, }- |5 H% N        %let rc=%SYSFUNC(FILENAME(fileref,&OutFilePath));
        %if %SYSFUNC(FEXIST(&fileref))  %then
                %put NOTE: The directory "&OutFilePath" exists.;
        %else %do;
( ^: h+ }. J" b' W# h8 e( p  m                %SYSEXEC md &OutFilePath;
7 h. T. O# c& V4 D- x5 N* A' z" V4 D  Q                %put %SYSFUNC(SYSMSG()) The directory has been created.;
" m7 \; T# ]$ c4 E1 @* w                %end;
% A. X. R4 w% e1 y. U5 I5 M2 i0 O        %let rc=%SYSFUNC(FILENAME(fileref));
%end;

8 U+ T4 W" }6 T5 K# o0 U- X* [%mend;

+ v6 o# D- L. W& y# B3 d
' d9 u! s! e" J' J) W* r; |%macro Demo();
, I3 l. G2 k4 k4 C1 K
%ChkFile(d:\temp\data.xls);

# _8 p1 ]5 i) W1 J7 v0 c, K%mend;
7 e6 M, o0 }9 w. i