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

百年孤独

  在网上看到了一些比较不错的sas 关于宏的资源 希望对大家有用
在此非常感谢 某某论坛的资源共享。
这个宏是用来检查指定目标文件夹或文件是否存在的，若存在则删除，不存在则创建，用于解决在dos中和SAS中无法创建文件夹的问题
2 Z- s6 U. W" q7 Z9 A例如可以在运行proc export前ChkFile下

%macro ChkFile(OutFilePath);
& E+ H# t5 l1 x1 X0 v& e6 L3 \/**********************************************************************/
( k" s# N' P+ e/* 此宏的作用是检查指定路径的文件夹或文件是否存在。若指定路径包含文件 */
2 C8 |' Q0 i# I' J/* 名，则运行此宏后路径中包含的文件夹存在但文件不存在，方便以后操作； */
/* 若指定路径不包含文件名，则运行此宏后路径中包含的文件夹存在。其中， */
/* OutFilePath是指定的文件夹或文件路径。注意如果路径中包含文件名，则  */
/* 一定要写全文件名和其扩展名。                                       */
% H' Y3 H. E6 i8 `/*                                                                    */
/*                                      Created on 2011.9.29          */
1 P$ C0 m! b/ e+ K9 l/*                                      Modified on 2011.9.29         */
/**********************************************************************/
$ R& \3 j; c+ `
/* 情形1：当输入参数OutFilePath包含文件名时，注意文件名必须带后缀 */
%if %SYSFUNC(FIND(&OutFilePath,%Str(.))) NE 0 %then %do;
        /* 得到OutFilePath中包含的文件名File和文件夹路径Dir */
' n* W7 y$ X  r        %let File=%SYSFUNC(SCAN(&OutFilePath,-1,\));
  }$ D! i1 q  Y0 k% V* ?. r        %let Dir=%SYSFUNC(SUBSTR(&OutFilePath,1,%EVAL(%SYSFUNC(LENGTH(&OutFilePath))-%SYSFUNC(LENGTH(&File)))));

        options noxwait;

8 m6 ]7 {9 ?6 M! G. r& a5 `, W9 `        %local rc1 fileref1;
0 x" v* g& H) f" @: n& k( m; B9 S* C        %local rc2 fileref2;
        %let rc1=%SYSFUNC(FILENAME(fileref1,&Dir));
        %let rc2=%SYSFUNC(FILENAME(fileref2,&OutFilePath));

        %if %SYSFUNC(FEXIST(&fileref1)) %then %do;
5 I$ z: x% F2 j) M                %put NOTE: The directory "&Dir" exists.;
- v; k) c# j* q6 W6 A                %if %SYSFUNC(FEXIST(&fileref2)) %then %do;                /* 文件夹存在且文件也存在的情形 */
4 F7 u9 p; c  ]# I                        %SYSEXEC del &OutFilePath;
0 w7 B' C- Q# I" o. [                        %put NOTE: The file "&File" also exists, and has been deleted.;
                        %end;
$ s+ P3 L, [( W2 b6 y9 o" }                %else %put NOTE: But the file "&File" does not exist.;                /* 文件夹存在且文件不存在的情形 */
                %end;
* L) y5 o2 g2 ?5 z, L) {, n% g1 s        %else %do;                /* 文件夹不存在的情形 */
                %SYSEXEC md &Dir;
. N, o3 F2 H3 t4 O& V0 O9 k                %put %SYSFUNC(SYSMSG()) The directory has been created.;
                %end;
7 r( C( |3 \6 h$ O- Z: x
, u: _+ t* d2 \0 `( m        %let rc1=%SYSFUNC(FILENAME(fileref1));
  u; t7 O& L5 B3 S        %let rc2=%SYSFUNC(FILENAME(fileref2));
- }. d4 N# [* b+ K! N; ]%end;

2 ^- d3 P3 U- B8 T4 d9 w/* 情形2：当输入参数OutFilePath不包含文件名时 */
%else %do;
4 {' N$ f6 N4 O/ o# F  ~% j) n  v: b        options noxwait;
- b" [$ Z3 c2 F) z* l+ ^
% a2 |8 `/ K7 Q% O        %local rc fileref;
0 b8 v1 `: U! C/ K        %let rc=%SYSFUNC(FILENAME(fileref,&OutFilePath));
2 I) O# u" T4 V$ T8 a; h4 J        %if %SYSFUNC(FEXIST(&fileref))  %then
                %put NOTE: The directory "&OutFilePath" exists.;
        %else %do;
                %SYSEXEC md &OutFilePath;
4 G7 P! F" H1 ^8 ]                %put %SYSFUNC(SYSMSG()) The directory has been created.;
                %end;
. [& h& n# X9 ]/ [- f        %let rc=%SYSFUNC(FILENAME(fileref));
%end;
9 B; P/ x( t/ n: p1 z
9 f' N* X# _$ j9 t, d2 t6 B%mend;
5 k! U$ B( j, y3 Z4 O% V

%macro Demo();

5 _7 Q1 _3 c7 Z& ?2 k  B$ z1 D%ChkFile(d:\temp\data.xls);
% W" {+ x5 E5 H7 ^: l; p1 D
%mend;