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

百年孤独

  在网上看到了一些比较不错的sas 关于宏的资源 希望对大家有用
8 \% r+ f- h6 T- u2 N6 n5 o 在此非常感谢 某某论坛的资源共享。
这个宏是用来检查指定目标文件夹或文件是否存在的，若存在则删除，不存在则创建，用于解决在dos中和SAS中无法创建文件夹的问题
2 h( s, v% y/ |; S例如可以在运行proc export前ChkFile下

%macro ChkFile(OutFilePath);
. |% y0 I, T* {" R. T/**********************************************************************/
0 h/ \+ a0 \9 T+ H3 x( |/* 此宏的作用是检查指定路径的文件夹或文件是否存在。若指定路径包含文件 */
/* 名，则运行此宏后路径中包含的文件夹存在但文件不存在，方便以后操作； */
: ^! A- a! o$ E1 g+ L7 @/* 若指定路径不包含文件名，则运行此宏后路径中包含的文件夹存在。其中， */
4 _3 |! X$ R- G( E7 P/* OutFilePath是指定的文件夹或文件路径。注意如果路径中包含文件名，则  */
/* 一定要写全文件名和其扩展名。                                       */
/*                                                                    */
/*                                      Created on 2011.9.29          */
0 {! V. Y0 t/ ^% L( N3 \* V/*                                      Modified on 2011.9.29         */
8 {9 V( H5 u2 L& c/**********************************************************************/

/* 情形1：当输入参数OutFilePath包含文件名时，注意文件名必须带后缀 */
%if %SYSFUNC(FIND(&OutFilePath,%Str(.))) NE 0 %then %do;
: h# v4 @. ]  x1 b        /* 得到OutFilePath中包含的文件名File和文件夹路径Dir */
        %let File=%SYSFUNC(SCAN(&OutFilePath,-1,\));
2 d6 k) J5 j( i        %let Dir=%SYSFUNC(SUBSTR(&OutFilePath,1,%EVAL(%SYSFUNC(LENGTH(&OutFilePath))-%SYSFUNC(LENGTH(&File)))));

* W8 y7 A  E  \# u3 b' f& ~        options noxwait;
: p* ~, e9 L% {7 P( q$ ~0 m/ ?
& {  |$ ~) R+ c* ?; [        %local rc1 fileref1;
        %local rc2 fileref2;
        %let rc1=%SYSFUNC(FILENAME(fileref1,&Dir));
+ |2 `1 s1 t) o- o        %let rc2=%SYSFUNC(FILENAME(fileref2,&OutFilePath));

; y0 E' g/ I  s& [! I        %if %SYSFUNC(FEXIST(&fileref1)) %then %do;
  E- n/ h$ [% a; Z                %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.;                /* 文件夹存在且文件不存在的情形 */
3 L4 G1 Y  a) T                %end;
        %else %do;                /* 文件夹不存在的情形 */
                %SYSEXEC md &Dir;
; J, k( N! Z2 C- _                %put %SYSFUNC(SYSMSG()) The directory has been created.;
' w; b$ Q! _  K" ?                %end;
7 v. \9 A9 ^  s
        %let rc1=%SYSFUNC(FILENAME(fileref1));
        %let rc2=%SYSFUNC(FILENAME(fileref2));
%end;

# I3 _" h! ~4 ~# ^5 ]  g/* 情形2：当输入参数OutFilePath不包含文件名时 */
%else %do;
        options noxwait;
9 r" l# W/ W% D
        %local rc fileref;
        %let rc=%SYSFUNC(FILENAME(fileref,&OutFilePath));
        %if %SYSFUNC(FEXIST(&fileref))  %then
0 ~: Y% C* @  j0 c3 Q7 O6 \' Z$ F                %put NOTE: The directory "&OutFilePath" exists.;
' c. z! C+ F$ Y" w6 V+ w        %else %do;
1 H5 P# A8 y  c# @! y1 }8 [- r                %SYSEXEC md &OutFilePath;
) [( K9 ^% P4 n1 f- \) T% A  n                %put %SYSFUNC(SYSMSG()) The directory has been created.;
" H# p$ [7 z0 r( [6 g' P                %end;
# K& m5 j* d( p; m9 F. a0 H, _        %let rc=%SYSFUNC(FILENAME(fileref));
%end;
) x" H7 R8 h7 _3 Q- F- Z, L
%mend;
1 L0 J4 {) K) ^. `- R, p) l
0 c# W, ~4 T3 y* L0 p
0 j: Y. i! ^+ ~6 p7 ?7 j%macro Demo();
" S4 ]2 Q! O* W+ ^  @' ?
0 R& Z! I) A/ E9 A; D9 V%ChkFile(d:\temp\data.xls);
1 c( `) d; D* ~# \
%mend;