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

百年孤独

  在网上看到了一些比较不错的sas 关于宏的资源 希望对大家有用
在此非常感谢 某某论坛的资源共享。
这个宏是用来检查指定目标文件夹或文件是否存在的，若存在则删除，不存在则创建，用于解决在dos中和SAS中无法创建文件夹的问题
# O" [) \! p: {% y/ l' b/ R: }例如可以在运行proc export前ChkFile下
" g" X7 H( ^1 C# X/ }
! D  \, f) p; J0 I1 h4 W%macro ChkFile(OutFilePath);
8 ~. l+ A# W" s, v" o- S" U% _. c/**********************************************************************/
/* 此宏的作用是检查指定路径的文件夹或文件是否存在。若指定路径包含文件 */
/* 名，则运行此宏后路径中包含的文件夹存在但文件不存在，方便以后操作； */
! Z/ M2 G' O2 `/* 若指定路径不包含文件名，则运行此宏后路径中包含的文件夹存在。其中， */
! A! b7 e/ @% e# O) {; L/* OutFilePath是指定的文件夹或文件路径。注意如果路径中包含文件名，则  */
/* 一定要写全文件名和其扩展名。                                       */
" ]/ v4 x1 Z0 o, g/*                                                                    */
% ^  m! u* j0 h, i2 c" M4 C2 e, |+ S/*                                      Created on 2011.9.29          */
/*                                      Modified on 2011.9.29         */
/**********************************************************************/

/* 情形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)))));

        options noxwait;

        %local rc1 fileref1;
        %local rc2 fileref2;
0 N" L; k. [, e4 D' N1 ~$ Z9 E; B        %let rc1=%SYSFUNC(FILENAME(fileref1,&Dir));
. @4 B  H: h) G- i) M5 `! C        %let rc2=%SYSFUNC(FILENAME(fileref2,&OutFilePath));
. n( y9 K# I8 w8 G0 C+ t6 Q
8 R$ y* l4 H# f        %if %SYSFUNC(FEXIST(&fileref1)) %then %do;
                %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.;
' Z5 u& B* ]" u                        %end;
# K! y8 e! F4 l5 P1 H5 R                %else %put NOTE: But the file "&File" does not exist.;                /* 文件夹存在且文件不存在的情形 */
                %end;
' @9 S3 v9 J9 ]: l        %else %do;                /* 文件夹不存在的情形 */
                %SYSEXEC md &Dir;
                %put %SYSFUNC(SYSMSG()) The directory has been created.;
, V& K. H. G  k: ~9 }                %end;
4 P7 b: s+ Z# v8 V
" }6 ~3 c$ a  E# {3 y* o; o- G) w) X8 D: L        %let rc1=%SYSFUNC(FILENAME(fileref1));
        %let rc2=%SYSFUNC(FILENAME(fileref2));
# Z0 v7 I  t/ `# l%end;
$ v+ g+ b) h- }- T5 K3 o
/* 情形2：当输入参数OutFilePath不包含文件名时 */
%else %do;
  l, s6 C; c: d4 `, l        options noxwait;
/ r) Y. O+ q3 f" U0 i% ^! t
        %local rc fileref;
        %let rc=%SYSFUNC(FILENAME(fileref,&OutFilePath));
8 Z+ i6 p1 f* O        %if %SYSFUNC(FEXIST(&fileref))  %then
' v" z% u4 A. k                %put NOTE: The directory "&OutFilePath" exists.;
        %else %do;
                %SYSEXEC md &OutFilePath;
% }2 z( V4 O! @  E- u+ L                %put %SYSFUNC(SYSMSG()) The directory has been created.;
                %end;
* E! H% s+ I6 Z8 _0 a2 J: {, }        %let rc=%SYSFUNC(FILENAME(fileref));
# b0 u6 _" a1 {3 C6 K" E' k3 Q%end;
; ~% i5 t# |* u+ a2 v! v: ^. G
%mend;
. s1 l& x  G9 ]
$ B9 c; Z" N6 m
8 G# x4 B2 ^$ X& W* s, W- s$ n%macro Demo();
. [/ A1 o' a" Q$ c% F% l/ m+ j
8 v2 D9 X# ^% R! L%ChkFile(d:\temp\data.xls);
1 [8 ^& _; ?: E. L# M
%mend;
/ f: D5 }' _0 b" d. c5 P