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

百年孤独

  在网上看到了一些比较不错的sas 关于宏的资源 希望对大家有用
在此非常感谢 某某论坛的资源共享。
& D+ d2 @( J+ Y3 F0 _6 g6 i这个宏是用来检查指定目标文件夹或文件是否存在的，若存在则删除，不存在则创建，用于解决在dos中和SAS中无法创建文件夹的问题
例如可以在运行proc export前ChkFile下

%macro ChkFile(OutFilePath);
/**********************************************************************/
/* 此宏的作用是检查指定路径的文件夹或文件是否存在。若指定路径包含文件 */
/* 名，则运行此宏后路径中包含的文件夹存在但文件不存在，方便以后操作； */
5 h; u- `3 D0 C" g& Y7 `/* 若指定路径不包含文件名，则运行此宏后路径中包含的文件夹存在。其中， */
/* OutFilePath是指定的文件夹或文件路径。注意如果路径中包含文件名，则  */
0 \1 b; T2 W5 b; e7 Q# y! Q/* 一定要写全文件名和其扩展名。                                       */
' f$ K* V9 Y3 \* g+ m/*                                                                    */
9 \9 T* X7 \$ O1 C4 i' x% b6 Y/*                                      Created on 2011.9.29          */
/*                                      Modified on 2011.9.29         */
; Z$ B. c- f3 f/**********************************************************************/
  d; n7 X2 A8 G
/* 情形1：当输入参数OutFilePath包含文件名时，注意文件名必须带后缀 */
%if %SYSFUNC(FIND(&OutFilePath,%Str(.))) NE 0 %then %do;
        /* 得到OutFilePath中包含的文件名File和文件夹路径Dir */
        %let File=%SYSFUNC(SCAN(&OutFilePath,-1,\));
        %let Dir=%SYSFUNC(SUBSTR(&OutFilePath,1,%EVAL(%SYSFUNC(LENGTH(&OutFilePath))-%SYSFUNC(LENGTH(&File)))));
9 U6 c/ D) J; ]' `* h6 J2 W: G, N
9 O! p9 W0 m% D- T2 c' L) r: s        options noxwait;
. K8 F* i3 W1 t9 a1 I# h+ C0 ^: v
" W: _% ]9 r$ K% j        %local rc1 fileref1;
6 f$ L) ?% d: Z        %local rc2 fileref2;
8 _7 Z) E0 M9 z% i) [0 Z        %let rc1=%SYSFUNC(FILENAME(fileref1,&Dir));
        %let rc2=%SYSFUNC(FILENAME(fileref2,&OutFilePath));

) U7 P% X% E4 x        %if %SYSFUNC(FEXIST(&fileref1)) %then %do;
9 H8 _6 l9 ?2 R- L                %put NOTE: The directory "&Dir" exists.;
  |; B/ b1 _% Y; H                %if %SYSFUNC(FEXIST(&fileref2)) %then %do;                /* 文件夹存在且文件也存在的情形 */
                        %SYSEXEC del &OutFilePath;
, Q) I2 K1 i& G5 I; U' _/ V                        %put NOTE: The file "&File" also exists, and has been deleted.;
5 L: X5 H2 |4 f                        %end;
* s' G' X1 Y/ j8 Y) P- V                %else %put NOTE: But the file "&File" does not exist.;                /* 文件夹存在且文件不存在的情形 */
3 X+ q% O# c* o" _9 |7 ?* `                %end;
        %else %do;                /* 文件夹不存在的情形 */
                %SYSEXEC md &Dir;
                %put %SYSFUNC(SYSMSG()) The directory has been created.;
                %end;
. P3 E9 j! V# l$ _- X, Y
4 g9 x9 ^# q! K$ D* g        %let rc1=%SYSFUNC(FILENAME(fileref1));
0 h4 Y: C* |$ X" Y7 X6 R/ t        %let rc2=%SYSFUNC(FILENAME(fileref2));
%end;

! k3 C/ p; I+ x! a$ |1 k/* 情形2：当输入参数OutFilePath不包含文件名时 */
/ c* |  D/ b6 B%else %do;
        options noxwait;
% U& w. e5 o/ Z+ L( w
        %local rc fileref;
        %let rc=%SYSFUNC(FILENAME(fileref,&OutFilePath));
        %if %SYSFUNC(FEXIST(&fileref))  %then
  a" h- {( n8 _                %put NOTE: The directory "&OutFilePath" exists.;
        %else %do;
& R, K4 @6 N/ S# ^9 d* y/ a6 x5 F                %SYSEXEC md &OutFilePath;
                %put %SYSFUNC(SYSMSG()) The directory has been created.;
  V8 S/ Q& ~0 F, m5 D/ |: t                %end;
        %let rc=%SYSFUNC(FILENAME(fileref));
%end;

%mend;

5 C0 `, @# c/ ]
%macro Demo();
4 u/ _% a3 O" ^4 E0 Y. ~; V, o
, u6 Y$ W' [+ b- ^6 A) X%ChkFile(d:\temp\data.xls);

- P6 r( ^4 E0 P%mend;
% K1 {) N% \, S6 z