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

百年孤独

  在网上看到了一些比较不错的sas 关于宏的资源 希望对大家有用
8 R4 N: v3 P9 q 在此非常感谢 某某论坛的资源共享。
这个宏是用来检查指定目标文件夹或文件是否存在的，若存在则删除，不存在则创建，用于解决在dos中和SAS中无法创建文件夹的问题
6 v+ B; p* O2 A4 U) {7 r5 g7 d/ a0 M! |例如可以在运行proc export前ChkFile下
) ?: u. N* g" {5 Z: T, Q7 Z
! C. Q4 f2 B- \%macro ChkFile(OutFilePath);
% e5 r6 [5 B* K7 }/**********************************************************************/
/* 此宏的作用是检查指定路径的文件夹或文件是否存在。若指定路径包含文件 */
/* 名，则运行此宏后路径中包含的文件夹存在但文件不存在，方便以后操作； */
& ^) ]2 w: X* N/* 若指定路径不包含文件名，则运行此宏后路径中包含的文件夹存在。其中， */
1 j  t0 f- K5 y  x/ K/ S- z4 j/* OutFilePath是指定的文件夹或文件路径。注意如果路径中包含文件名，则  */
9 K3 [* U3 w5 n. j/* 一定要写全文件名和其扩展名。                                       */
/*                                                                    */
/*                                      Created on 2011.9.29          */
/*                                      Modified on 2011.9.29         */
8 Y2 ~9 A# q" |% x  T/**********************************************************************/

* C' I# F& ~/ D/* 情形1：当输入参数OutFilePath包含文件名时，注意文件名必须带后缀 */
) R5 |9 U6 ]! Q+ f%if %SYSFUNC(FIND(&OutFilePath,%Str(.))) NE 0 %then %do;
( r8 g4 Z1 X; }7 `8 m. S        /* 得到OutFilePath中包含的文件名File和文件夹路径Dir */
3 E) u& N8 I6 k. d! D5 k        %let File=%SYSFUNC(SCAN(&OutFilePath,-1,\));
        %let Dir=%SYSFUNC(SUBSTR(&OutFilePath,1,%EVAL(%SYSFUNC(LENGTH(&OutFilePath))-%SYSFUNC(LENGTH(&File)))));
$ Q; e. g! R' t% A5 s0 W$ v4 F6 M
5 k) `3 a' L" T        options noxwait;
# H4 |7 f, {0 ?4 |  v4 U7 K. K2 a
        %local rc1 fileref1;
        %local rc2 fileref2;
6 B1 R; y- ?, D- M$ M( X$ Y: j        %let rc1=%SYSFUNC(FILENAME(fileref1,&Dir));
        %let rc2=%SYSFUNC(FILENAME(fileref2,&OutFilePath));
& m2 Y3 w% b: x( E( e4 {3 s- g
        %if %SYSFUNC(FEXIST(&fileref1)) %then %do;
                %put NOTE: The directory "&Dir" exists.;
; S9 U9 m* }) e7 a                %if %SYSFUNC(FEXIST(&fileref2)) %then %do;                /* 文件夹存在且文件也存在的情形 */
+ J6 }2 B( n. T                        %SYSEXEC del &OutFilePath;
                        %put NOTE: The file "&File" also exists, and has been deleted.;
                        %end;
# `( L7 F) Z4 q  b/ o) H# i                %else %put NOTE: But the file "&File" does not exist.;                /* 文件夹存在且文件不存在的情形 */
                %end;
" I. n1 c) K! c+ D; C6 V5 `% ?        %else %do;                /* 文件夹不存在的情形 */
/ L% i1 ]4 `! E5 B4 @3 a! t9 L                %SYSEXEC md &Dir;
                %put %SYSFUNC(SYSMSG()) The directory has been created.;
/ W. w; w7 f* r( o                %end;

        %let rc1=%SYSFUNC(FILENAME(fileref1));
- J* l, ^; L7 r2 n: u        %let rc2=%SYSFUNC(FILENAME(fileref2));
7 c8 t6 e/ x# ?5 L$ `- A' V& H; }%end;

6 z6 p- R6 _- N9 O/* 情形2：当输入参数OutFilePath不包含文件名时 */
  P/ N$ V  ~/ U% O6 E4 ?%else %do;
        options noxwait;
6 k4 j% H9 q  c
+ b+ c4 d& x' c1 X        %local rc fileref;
% u1 W* q! c# L# Z8 @+ n* n' k/ |        %let rc=%SYSFUNC(FILENAME(fileref,&OutFilePath));
) \1 ~! _$ L" B1 J: u7 c9 q1 \        %if %SYSFUNC(FEXIST(&fileref))  %then
$ t. e( ]- y# v( H' D                %put NOTE: The directory "&OutFilePath" exists.;
        %else %do;
+ s8 e9 m9 G9 C9 k* q$ {                %SYSEXEC md &OutFilePath;
                %put %SYSFUNC(SYSMSG()) The directory has been created.;
) r# `+ a" @2 `. T' q                %end;
        %let rc=%SYSFUNC(FILENAME(fileref));
) T/ ~: F4 _; Q3 i6 \%end;
6 h: i6 P1 b5 m- x- h5 F
" H- {8 Y/ l7 ^/ L5 q2 c& F%mend;
" g' H+ r9 `; w0 C* K

2 q; W' [  V% U6 P%macro Demo();

%ChkFile(d:\temp\data.xls);

%mend;