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

百年孤独

  在网上看到了一些比较不错的sas 关于宏的资源 希望对大家有用
. G7 }' n9 v' b7 w5 _5 k8 }+ ^ 在此非常感谢 某某论坛的资源共享。
这个宏是用来检查指定目标文件夹或文件是否存在的，若存在则删除，不存在则创建，用于解决在dos中和SAS中无法创建文件夹的问题
例如可以在运行proc export前ChkFile下
% G3 o5 W/ O3 ^) g6 Y
%macro ChkFile(OutFilePath);
$ [- X4 X$ T: [7 B: o/**********************************************************************/
  V" X, b$ A2 p3 J  ~  J/* 此宏的作用是检查指定路径的文件夹或文件是否存在。若指定路径包含文件 */
; L- B: t9 c& }7 Z, i/* 名，则运行此宏后路径中包含的文件夹存在但文件不存在，方便以后操作； */
, `/ ^7 I3 J' E( g/* 若指定路径不包含文件名，则运行此宏后路径中包含的文件夹存在。其中， */
2 r8 ^1 p8 |" {0 q/* OutFilePath是指定的文件夹或文件路径。注意如果路径中包含文件名，则  */
/* 一定要写全文件名和其扩展名。                                       */
% A9 x  ~" G" {, ~6 p- ?3 H/*                                                                    */
/*                                      Created on 2011.9.29          */
/*                                      Modified on 2011.9.29         */
/**********************************************************************/
( f0 E1 @  ~5 s  ], g
/* 情形1：当输入参数OutFilePath包含文件名时，注意文件名必须带后缀 */
  r. I3 u( f  b5 e%if %SYSFUNC(FIND(&OutFilePath,%Str(.))) NE 0 %then %do;
, A8 t# [; k8 u, _+ [" n        /* 得到OutFilePath中包含的文件名File和文件夹路径Dir */
% `3 x0 |7 v1 ~5 }3 B3 Q( ^        %let File=%SYSFUNC(SCAN(&OutFilePath,-1,\));
9 z+ V2 Z& L* Q/ }        %let Dir=%SYSFUNC(SUBSTR(&OutFilePath,1,%EVAL(%SYSFUNC(LENGTH(&OutFilePath))-%SYSFUNC(LENGTH(&File)))));
, H6 Y5 N4 Q- F$ b* y( a0 j
" r5 S& V9 N" Q0 ]        options noxwait;

        %local rc1 fileref1;
. z* O; s* A4 ~6 u        %local rc2 fileref2;
        %let rc1=%SYSFUNC(FILENAME(fileref1,&Dir));
% [2 y' C4 _. E! ]        %let rc2=%SYSFUNC(FILENAME(fileref2,&OutFilePath));

2 q: F# D& b& k3 [        %if %SYSFUNC(FEXIST(&fileref1)) %then %do;
5 ]) T9 k/ s3 P" J$ l                %put NOTE: The directory "&Dir" exists.;
- b2 L% e% g+ K+ X8 J                %if %SYSFUNC(FEXIST(&fileref2)) %then %do;                /* 文件夹存在且文件也存在的情形 */
                        %SYSEXEC del &OutFilePath;
* c" }% K2 j! W# M+ s" p" J9 l9 h3 F, H                        %put NOTE: The file "&File" also exists, and has been deleted.;
                        %end;
6 N/ _& f  N; U: s! c                %else %put NOTE: But the file "&File" does not exist.;                /* 文件夹存在且文件不存在的情形 */
& e) S% ~- B& H. ?  U3 X/ O                %end;
        %else %do;                /* 文件夹不存在的情形 */
                %SYSEXEC md &Dir;
# o! p, ^# m6 R- c                %put %SYSFUNC(SYSMSG()) The directory has been created.;
                %end;

        %let rc1=%SYSFUNC(FILENAME(fileref1));
) b4 L+ b* B1 }# Q! j5 D" x        %let rc2=%SYSFUNC(FILENAME(fileref2));
%end;
; D/ w" m5 I7 o) h/ I
3 @/ z6 V- {, G/* 情形2：当输入参数OutFilePath不包含文件名时 */
% ?+ a+ y& `( b, e# u" j' ~- t%else %do;
( ~2 I' \  t4 i9 w( t8 X. o        options noxwait;
, @$ B, V1 B. U5 M
        %local rc fileref;
        %let rc=%SYSFUNC(FILENAME(fileref,&OutFilePath));
        %if %SYSFUNC(FEXIST(&fileref))  %then
! {' t" Z& {$ S$ b* n3 j% y  r                %put NOTE: The directory "&OutFilePath" exists.;
        %else %do;
                %SYSEXEC md &OutFilePath;
                %put %SYSFUNC(SYSMSG()) The directory has been created.;
9 w7 e$ h" f2 s2 O& W                %end;
5 d" B: V# ?/ V+ d" {/ e: z6 v        %let rc=%SYSFUNC(FILENAME(fileref));
%end;

: d& A9 a) W5 e" }; f3 b%mend;

' D+ c- l8 v/ }: d
%macro Demo();
1 S7 c1 x8 l" g
%ChkFile(d:\temp\data.xls);

: _6 q' u0 [+ n8 Z' t+ ]%mend;