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

百年孤独

  在网上看到了一些比较不错的sas 关于宏的资源 希望对大家有用
( Y: U& _5 n; h! C3 l7 B, K 在此非常感谢 某某论坛的资源共享。
这个宏是用来检查指定目标文件夹或文件是否存在的，若存在则删除，不存在则创建，用于解决在dos中和SAS中无法创建文件夹的问题
" u4 h  L, G! l- S& p: {例如可以在运行proc export前ChkFile下
2 T' k2 Y# y. r$ ~- o
8 i) i- ?; |3 E2 h5 @5 t* r2 S" S%macro ChkFile(OutFilePath);
, d% \4 h+ w% N4 m' `9 r  ~$ _/**********************************************************************/
/* 此宏的作用是检查指定路径的文件夹或文件是否存在。若指定路径包含文件 */
5 W9 N( k2 W5 x+ w  e/* 名，则运行此宏后路径中包含的文件夹存在但文件不存在，方便以后操作； */
/* 若指定路径不包含文件名，则运行此宏后路径中包含的文件夹存在。其中， */
/* OutFilePath是指定的文件夹或文件路径。注意如果路径中包含文件名，则  */
5 R3 Y1 h9 \* M1 k& a/* 一定要写全文件名和其扩展名。                                       */
/*                                                                    */
/*                                      Created on 2011.9.29          */
  Z0 E3 o3 S% ^1 B; U% y/*                                      Modified on 2011.9.29         */
9 A4 p$ C( n4 o0 p0 f/**********************************************************************/

/* 情形1：当输入参数OutFilePath包含文件名时，注意文件名必须带后缀 */
, [+ z. {! F. l+ c%if %SYSFUNC(FIND(&OutFilePath,%Str(.))) NE 0 %then %do;
        /* 得到OutFilePath中包含的文件名File和文件夹路径Dir */
0 Y2 Y4 \4 N/ h# j$ M, H        %let File=%SYSFUNC(SCAN(&OutFilePath,-1,\));
        %let Dir=%SYSFUNC(SUBSTR(&OutFilePath,1,%EVAL(%SYSFUNC(LENGTH(&OutFilePath))-%SYSFUNC(LENGTH(&File)))));

2 A' R; H. ?% f! T8 [        options noxwait;

        %local rc1 fileref1;
, {! K2 \: N6 F        %local rc2 fileref2;
5 i& z/ V- N$ f& U0 \2 i8 H* l$ u        %let rc1=%SYSFUNC(FILENAME(fileref1,&Dir));
8 G: q5 ]/ p4 G6 A0 i        %let rc2=%SYSFUNC(FILENAME(fileref2,&OutFilePath));
) t+ I1 |- ?  i5 d- e1 c  N
1 f& B# z4 c/ b8 K# C4 ^8 F. i" H- S        %if %SYSFUNC(FEXIST(&fileref1)) %then %do;
, R( F: j% D* c$ x3 a9 Y# r                %put NOTE: The directory "&Dir" exists.;
                %if %SYSFUNC(FEXIST(&fileref2)) %then %do;                /* 文件夹存在且文件也存在的情形 */
( Z* h, l6 m$ ^  s, [& e+ ~- K                        %SYSEXEC del &OutFilePath;
  ~! @; }! \- X0 H+ t% R/ O                        %put NOTE: The file "&File" also exists, and has been deleted.;
6 a: q2 {  a- U1 `6 n; d! p- _0 @                        %end;
& E: T3 Z/ E( k& }$ }6 z' U" c3 W                %else %put NOTE: But the file "&File" does not exist.;                /* 文件夹存在且文件不存在的情形 */
- p$ n% _, U6 I                %end;
        %else %do;                /* 文件夹不存在的情形 */
" b3 U6 y/ N& k9 O/ f% r                %SYSEXEC md &Dir;
( r/ s0 U2 U+ d# u* b; ^. u                %put %SYSFUNC(SYSMSG()) The directory has been created.;
8 p/ }" g) R0 q! i+ W( J, W6 |4 E                %end;
$ P( Q3 D+ y* g; R
. @. B& Q! r) d2 b/ [. \        %let rc1=%SYSFUNC(FILENAME(fileref1));
. R' Z' h( P. J! {! G9 _4 b, Q        %let rc2=%SYSFUNC(FILENAME(fileref2));
%end;

5 f. {3 A. L4 C/* 情形2：当输入参数OutFilePath不包含文件名时 */
%else %do;
; ^# o* |2 V* h! _/ }: h; {7 ~        options noxwait;
2 E9 t8 H" ^, x* f: I
        %local rc fileref;
' i2 P& c# k' K6 }. D1 \. X        %let rc=%SYSFUNC(FILENAME(fileref,&OutFilePath));
' w! {( n- @" P# V% ~) N  K1 b        %if %SYSFUNC(FEXIST(&fileref))  %then
. }$ N0 Y( O  F* C% `; ~                %put NOTE: The directory "&OutFilePath" exists.;
        %else %do;
5 i1 d5 l" W( ~+ l                %SYSEXEC md &OutFilePath;
                %put %SYSFUNC(SYSMSG()) The directory has been created.;
                %end;
) w! l: e, n3 j/ S- K& S' `- N        %let rc=%SYSFUNC(FILENAME(fileref));
6 W/ y! w, G8 u& ?' h/ k% F% ?%end;

%mend;


: _9 s: l1 _, r& u$ @& _%macro Demo();
* r3 t# J0 x5 ]! S! j. m
%ChkFile(d:\temp\data.xls);

6 n: [# {* ]$ O- \%mend;
: \! `' Y7 s* k* Q/ U9 m* W1 c