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

百年孤独

  在网上看到了一些比较不错的sas 关于宏的资源 希望对大家有用
在此非常感谢 某某论坛的资源共享。
! ~6 F* S& Q4 j. ]7 r1 O这个宏是用来检查指定目标文件夹或文件是否存在的，若存在则删除，不存在则创建，用于解决在dos中和SAS中无法创建文件夹的问题
0 L9 {, ~( Y( i, x& l* P例如可以在运行proc export前ChkFile下

7 G- l& q: h/ O' a8 Q- N- `8 V6 s%macro ChkFile(OutFilePath);
8 C& ~+ O' H* v; E/**********************************************************************/
/* 此宏的作用是检查指定路径的文件夹或文件是否存在。若指定路径包含文件 */
( H! E. G- H$ l) j' A5 O, p. |/* 名，则运行此宏后路径中包含的文件夹存在但文件不存在，方便以后操作； */
/* 若指定路径不包含文件名，则运行此宏后路径中包含的文件夹存在。其中， */
/* OutFilePath是指定的文件夹或文件路径。注意如果路径中包含文件名，则  */
( ]! U* H4 W* `3 Y/* 一定要写全文件名和其扩展名。                                       */
! |; ~- E. \% W+ E, w% ^6 z( |. a/*                                                                    */
. w, T/ U+ P, N2 ^+ y1 @/*                                      Created on 2011.9.29          */
/*                                      Modified on 2011.9.29         */
/**********************************************************************/
/ L0 l+ }3 M9 n4 v+ ~
/* 情形1：当输入参数OutFilePath包含文件名时，注意文件名必须带后缀 */
%if %SYSFUNC(FIND(&OutFilePath,%Str(.))) NE 0 %then %do;
6 z6 I$ U6 \9 Q% q+ Z$ }        /* 得到OutFilePath中包含的文件名File和文件夹路径Dir */
        %let File=%SYSFUNC(SCAN(&OutFilePath,-1,\));
        %let Dir=%SYSFUNC(SUBSTR(&OutFilePath,1,%EVAL(%SYSFUNC(LENGTH(&OutFilePath))-%SYSFUNC(LENGTH(&File)))));
3 x( Z: b: e- q  G$ J% k0 v
        options noxwait;
- [4 r5 ?3 P# d5 {. Y7 X
        %local rc1 fileref1;
7 f; b: v9 y& k6 f        %local rc2 fileref2;
        %let rc1=%SYSFUNC(FILENAME(fileref1,&Dir));
        %let rc2=%SYSFUNC(FILENAME(fileref2,&OutFilePath));

4 t( _# C) N' S; v' Z        %if %SYSFUNC(FEXIST(&fileref1)) %then %do;
                %put NOTE: The directory "&Dir" exists.;
                %if %SYSFUNC(FEXIST(&fileref2)) %then %do;                /* 文件夹存在且文件也存在的情形 */
                        %SYSEXEC del &OutFilePath;
                        %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;                /* 文件夹不存在的情形 */
: C& o  L; E: d  C                %SYSEXEC md &Dir;
                %put %SYSFUNC(SYSMSG()) The directory has been created.;
3 f" a$ W. @2 q3 C1 m# K% M* t+ r& ?                %end;

        %let rc1=%SYSFUNC(FILENAME(fileref1));
        %let rc2=%SYSFUNC(FILENAME(fileref2));
; @/ F0 U' [5 q, O9 Z0 c7 |9 e7 H" h%end;

+ i( k1 i8 l. ~& F7 [! t/* 情形2：当输入参数OutFilePath不包含文件名时 */
%else %do;
        options noxwait;
7 S5 ?# t2 c! D8 s* {
" _, \4 j1 t- V2 e1 b7 W+ y4 F! O+ E        %local rc fileref;
8 T& o/ r8 S( {! m        %let rc=%SYSFUNC(FILENAME(fileref,&OutFilePath));
$ ~+ N. M/ n5 n3 P& L        %if %SYSFUNC(FEXIST(&fileref))  %then
                %put NOTE: The directory "&OutFilePath" exists.;
+ m8 x  ^) `1 B5 F        %else %do;
                %SYSEXEC md &OutFilePath;
                %put %SYSFUNC(SYSMSG()) The directory has been created.;
: ~2 X7 Y7 p0 a- G                %end;
        %let rc=%SYSFUNC(FILENAME(fileref));
%end;
& M5 T/ s/ g, V3 `4 D8 i3 Z) w( Z9 r
%mend;
; Q# `$ o( j) i2 R8 J

; A8 v" o4 N+ E/ X%macro Demo();
- f- z* r' E: l4 ]& F: B% u
%ChkFile(d:\temp\data.xls);
* R- Y# \! U  x7 S
%mend;