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

百年孤独

  在网上看到了一些比较不错的sas 关于宏的资源 希望对大家有用
/ V3 m) q  U# y3 t) ? 在此非常感谢 某某论坛的资源共享。
+ v) [8 _: u, O8 }这个宏是用来检查指定目标文件夹或文件是否存在的，若存在则删除，不存在则创建，用于解决在dos中和SAS中无法创建文件夹的问题
) _' W0 i" e7 A( H2 M例如可以在运行proc export前ChkFile下

%macro ChkFile(OutFilePath);
/**********************************************************************/
/* 此宏的作用是检查指定路径的文件夹或文件是否存在。若指定路径包含文件 */
: r, n. j8 H8 I" c' G# W& ]; g: d/* 名，则运行此宏后路径中包含的文件夹存在但文件不存在，方便以后操作； */
( H8 u8 Y) s4 Z- B/* 若指定路径不包含文件名，则运行此宏后路径中包含的文件夹存在。其中， */
1 G" q3 G+ M! ?5 y( T$ U! E* _- G, Y/* OutFilePath是指定的文件夹或文件路径。注意如果路径中包含文件名，则  */
/* 一定要写全文件名和其扩展名。                                       */
& w5 V; m# a0 N; F/*                                                                    */
  N1 W" x' D1 p% X  Y* A/*                                      Created on 2011.9.29          */
/*                                      Modified on 2011.9.29         */
; ^0 Z, I- O* K1 k/**********************************************************************/

/* 情形1：当输入参数OutFilePath包含文件名时，注意文件名必须带后缀 */
%if %SYSFUNC(FIND(&OutFilePath,%Str(.))) NE 0 %then %do;
$ A* Z. u; t  Q. S        /* 得到OutFilePath中包含的文件名File和文件夹路径Dir */
        %let File=%SYSFUNC(SCAN(&OutFilePath,-1,\));
        %let Dir=%SYSFUNC(SUBSTR(&OutFilePath,1,%EVAL(%SYSFUNC(LENGTH(&OutFilePath))-%SYSFUNC(LENGTH(&File)))));
* \9 T9 l5 F% S: L! u
        options noxwait;
4 L4 q. @* A$ H' H$ l3 B; k
# n0 ~! n7 @' }1 e) X  P. a3 r$ t        %local rc1 fileref1;
        %local rc2 fileref2;
# E6 Z8 J; S0 J8 }, M& X        %let rc1=%SYSFUNC(FILENAME(fileref1,&Dir));
9 Y8 L9 P; ~2 d7 c- z" l        %let rc2=%SYSFUNC(FILENAME(fileref2,&OutFilePath));

1 X# `" T/ A( ^: z( T3 O        %if %SYSFUNC(FEXIST(&fileref1)) %then %do;
  C1 N& c/ w5 g; y* O; v2 ~1 u                %put NOTE: The directory "&Dir" exists.;
# O- D" y! o' ]4 Z- {9 o                %if %SYSFUNC(FEXIST(&fileref2)) %then %do;                /* 文件夹存在且文件也存在的情形 */
                        %SYSEXEC del &OutFilePath;
0 X+ `5 b; |& `                        %put NOTE: The file "&File" also exists, and has been deleted.;
                        %end;
                %else %put NOTE: But the file "&File" does not exist.;                /* 文件夹存在且文件不存在的情形 */
                %end;
" E! I3 ]& k0 t5 j        %else %do;                /* 文件夹不存在的情形 */
                %SYSEXEC md &Dir;
                %put %SYSFUNC(SYSMSG()) The directory has been created.;
7 i; [* W9 k# I! D8 g+ a                %end;
' M: M* |/ O. b. F, X4 |( E) C% B
) @% b& Y0 s4 b8 o        %let rc1=%SYSFUNC(FILENAME(fileref1));
' H, o& d+ s6 I' q        %let rc2=%SYSFUNC(FILENAME(fileref2));
%end;

/* 情形2：当输入参数OutFilePath不包含文件名时 */
  d) h7 J) k/ @8 [, y; ^%else %do;
7 d) a5 O* {3 M) O& \9 t) ?% t& k, D3 D        options noxwait;
) e/ x' \* g; E5 y( ]1 H
        %local rc fileref;
- }3 C* V3 P/ Y        %let rc=%SYSFUNC(FILENAME(fileref,&OutFilePath));
        %if %SYSFUNC(FEXIST(&fileref))  %then
                %put NOTE: The directory "&OutFilePath" exists.;
        %else %do;
                %SYSEXEC md &OutFilePath;
2 W  f/ k3 S: E& l( X9 F                %put %SYSFUNC(SYSMSG()) The directory has been created.;
                %end;
        %let rc=%SYSFUNC(FILENAME(fileref));
1 ?2 J' h: N7 N( I( |/ i, }& j. X%end;
6 V' Y# m' _& @5 u4 W1 G
%mend;
" o. x8 H0 I: o4 _" l, j" U3 G* N4 w
5 E( b1 k5 e" {7 W. m
%macro Demo();

%ChkFile(d:\temp\data.xls);
+ D" y- ~, s# v; L0 h& g
%mend;