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

百年孤独

  在网上看到了一些比较不错的sas 关于宏的资源 希望对大家有用
2 r$ a: x9 ]6 [% Y# T 在此非常感谢 某某论坛的资源共享。
9 J! t3 L( |; m; a这个宏是用来检查指定目标文件夹或文件是否存在的，若存在则删除，不存在则创建，用于解决在dos中和SAS中无法创建文件夹的问题
; _8 A8 I$ H3 {' N3 o例如可以在运行proc export前ChkFile下

%macro ChkFile(OutFilePath);
/**********************************************************************/
. R9 w- {1 h8 s  J* f/* 此宏的作用是检查指定路径的文件夹或文件是否存在。若指定路径包含文件 */
; q: U& W4 U1 p0 e/* 名，则运行此宏后路径中包含的文件夹存在但文件不存在，方便以后操作； */
/* 若指定路径不包含文件名，则运行此宏后路径中包含的文件夹存在。其中， */
/* OutFilePath是指定的文件夹或文件路径。注意如果路径中包含文件名，则  */
/* 一定要写全文件名和其扩展名。                                       */
9 u/ e$ _8 H7 D$ b3 i3 G/*                                                                    */
/*                                      Created on 2011.9.29          */
" F6 o- f  p. f9 y7 Y( x, x' m/*                                      Modified on 2011.9.29         */
) J( F# M4 I2 X/**********************************************************************/

; e/ S6 I+ q; E/ B; H2 d: Q/* 情形1：当输入参数OutFilePath包含文件名时，注意文件名必须带后缀 */
" V5 M6 u/ d! U; g* G. I%if %SYSFUNC(FIND(&OutFilePath,%Str(.))) NE 0 %then %do;
" x2 D9 p: R7 O4 h5 n, _" b        /* 得到OutFilePath中包含的文件名File和文件夹路径Dir */
! W2 a$ }! b) \6 m& m6 u! {        %let File=%SYSFUNC(SCAN(&OutFilePath,-1,\));
        %let Dir=%SYSFUNC(SUBSTR(&OutFilePath,1,%EVAL(%SYSFUNC(LENGTH(&OutFilePath))-%SYSFUNC(LENGTH(&File)))));
1 O: }8 Y* ~3 \4 b$ O5 w. G. G3 @
        options noxwait;
; x. T" S9 h' q5 \% H1 X
        %local rc1 fileref1;
        %local rc2 fileref2;
- G$ _8 |, _, A6 o5 I        %let rc1=%SYSFUNC(FILENAME(fileref1,&Dir));
; A  l$ z( X8 t7 C! M& m0 |. D        %let rc2=%SYSFUNC(FILENAME(fileref2,&OutFilePath));
7 L& ^6 f' e& a7 s5 I5 \& q
. I  _% L. k2 g' H1 r7 T        %if %SYSFUNC(FEXIST(&fileref1)) %then %do;
, J% M$ t/ G' ?. Z0 d* Z: i                %put NOTE: The directory "&Dir" exists.;
% |  X% a: _9 C" L+ h; S& d. Z                %if %SYSFUNC(FEXIST(&fileref2)) %then %do;                /* 文件夹存在且文件也存在的情形 */
8 L8 k. u4 y& `8 L: T                        %SYSEXEC del &OutFilePath;
' W& ]! H+ c0 i                        %put NOTE: The file "&File" also exists, and has been deleted.;
                        %end;
                %else %put NOTE: But the file "&File" does not exist.;                /* 文件夹存在且文件不存在的情形 */
                %end;
        %else %do;                /* 文件夹不存在的情形 */
7 m  g& _! q$ P. W" [5 ?) _                %SYSEXEC md &Dir;
                %put %SYSFUNC(SYSMSG()) The directory has been created.;
6 V; W4 h; u3 `; B/ g7 `                %end;
0 O. `! e' x/ K" }2 J' W( V! j. J
        %let rc1=%SYSFUNC(FILENAME(fileref1));
0 c1 P3 J$ a- l4 m# @        %let rc2=%SYSFUNC(FILENAME(fileref2));
, O3 g) R( l7 w/ z$ E) w%end;
5 ~) y8 E! @/ |1 Q" X" Q8 O5 ~
3 U% x( X, L1 T$ l3 v( p8 ~/* 情形2：当输入参数OutFilePath不包含文件名时 */
%else %do;
        options noxwait;

& i6 i( z" v. ~1 G, I8 T        %local rc fileref;
        %let rc=%SYSFUNC(FILENAME(fileref,&OutFilePath));
        %if %SYSFUNC(FEXIST(&fileref))  %then
                %put NOTE: The directory "&OutFilePath" exists.;
" b8 @5 x" T+ ^5 d$ C4 K# b" m) ]        %else %do;
                %SYSEXEC md &OutFilePath;
1 E0 `8 ^9 _5 y0 ^3 o                %put %SYSFUNC(SYSMSG()) The directory has been created.;
                %end;
        %let rc=%SYSFUNC(FILENAME(fileref));
2 R& x6 i/ S# u: e%end;
% I# N) i7 ]3 ]; N
7 [1 b5 W9 B* j1 U; F%mend;


%macro Demo();

( z0 {8 _1 k7 ^9 v6 }% {%ChkFile(d:\temp\data.xls);

1 ]" B) P' I. ~( N%mend;
. {1 Z% `5 y9 i" f" h9 J