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

百年孤独

  在网上看到了一些比较不错的sas 关于宏的资源 希望对大家有用
+ G/ |& O5 ]" b! W1 X 在此非常感谢 某某论坛的资源共享。
4 R6 ?3 s7 G* d( {* ^1 }这个宏是用来检查指定目标文件夹或文件是否存在的，若存在则删除，不存在则创建，用于解决在dos中和SAS中无法创建文件夹的问题
& W( Q, E5 a  Y" i" l0 s例如可以在运行proc export前ChkFile下
8 n3 o3 a; A* q; l8 a+ K
% [1 {# s5 w) m5 u7 H  p%macro ChkFile(OutFilePath);
/**********************************************************************/
/* 此宏的作用是检查指定路径的文件夹或文件是否存在。若指定路径包含文件 */
, [1 B4 O( o4 f& i- `/* 名，则运行此宏后路径中包含的文件夹存在但文件不存在，方便以后操作； */
* V! ^6 F/ B( b2 l9 s/* 若指定路径不包含文件名，则运行此宏后路径中包含的文件夹存在。其中， */
# B3 x1 X7 m; m/ Z0 V0 y- e$ ]0 B/* OutFilePath是指定的文件夹或文件路径。注意如果路径中包含文件名，则  */
3 Q7 Q# Q" T* ~: `* ~# l  \/ f& n# }/* 一定要写全文件名和其扩展名。                                       */
/*                                                                    */
# Z2 g- D' `4 t, u" [/*                                      Created on 2011.9.29          */
/*                                      Modified on 2011.9.29         */
; N& U7 y7 s5 k0 e, ~/**********************************************************************/

6 }0 W, w" \1 _/* 情形1：当输入参数OutFilePath包含文件名时，注意文件名必须带后缀 */
3 i- o, m. U6 y0 G" D%if %SYSFUNC(FIND(&OutFilePath,%Str(.))) NE 0 %then %do;
        /* 得到OutFilePath中包含的文件名File和文件夹路径Dir */
0 \) l- y9 @+ Q3 o. D3 N        %let File=%SYSFUNC(SCAN(&OutFilePath,-1,\));
        %let Dir=%SYSFUNC(SUBSTR(&OutFilePath,1,%EVAL(%SYSFUNC(LENGTH(&OutFilePath))-%SYSFUNC(LENGTH(&File)))));
/ c) R  A7 p9 `& s
# D# g3 x* A5 E8 ^/ m2 @/ |        options noxwait;

8 A9 \) W& ^6 K2 f/ j        %local rc1 fileref1;
- X/ g' T6 [6 H5 |! D        %local rc2 fileref2;
$ s. L: D9 y' U' M& G, {" h' n        %let rc1=%SYSFUNC(FILENAME(fileref1,&Dir));
  A7 k: _0 U( H. Q; }        %let rc2=%SYSFUNC(FILENAME(fileref2,&OutFilePath));

        %if %SYSFUNC(FEXIST(&fileref1)) %then %do;
* [  ]+ T7 y- C) l' q0 i6 m                %put NOTE: The directory "&Dir" exists.;
4 f" T0 @. c2 g9 U* U7 X% i; g6 C                %if %SYSFUNC(FEXIST(&fileref2)) %then %do;                /* 文件夹存在且文件也存在的情形 */
                        %SYSEXEC del &OutFilePath;
                        %put NOTE: The file "&File" also exists, and has been deleted.;
0 }0 ?: I1 o  D4 k                        %end;
% z! e! k$ o5 [' m( h5 b                %else %put NOTE: But the file "&File" does not exist.;                /* 文件夹存在且文件不存在的情形 */
                %end;
7 \& K5 l7 F# i1 |        %else %do;                /* 文件夹不存在的情形 */
                %SYSEXEC md &Dir;
0 s" w6 m$ d" b2 ?: ?5 W                %put %SYSFUNC(SYSMSG()) The directory has been created.;
                %end;
; b, m) J5 p0 P0 F
        %let rc1=%SYSFUNC(FILENAME(fileref1));
3 k6 i8 [, I% [0 q7 u8 ?        %let rc2=%SYSFUNC(FILENAME(fileref2));
. L! T3 p: z3 Y1 p8 G6 {%end;

/* 情形2：当输入参数OutFilePath不包含文件名时 */
%else %do;
5 a) Z' @0 ~# C1 i& [* a, D        options noxwait;
/ n+ T$ o+ G' n
/ Y! R1 ?! b1 q8 u2 K# b        %local rc fileref;
. j, `9 _; n7 m+ v; V6 T2 B        %let rc=%SYSFUNC(FILENAME(fileref,&OutFilePath));
        %if %SYSFUNC(FEXIST(&fileref))  %then
                %put NOTE: The directory "&OutFilePath" exists.;
        %else %do;
8 b; I- G9 F& t$ h# N' F                %SYSEXEC md &OutFilePath;
" o1 S* x1 E- W- G, H8 B8 S                %put %SYSFUNC(SYSMSG()) The directory has been created.;
  m: w# y2 x. [# |. Y9 R7 w7 X( v                %end;
        %let rc=%SYSFUNC(FILENAME(fileref));
%end;
' X! S, V- F, z# d3 ~) p1 f7 T
%mend;


%macro Demo();

5 ?/ D0 r: J* u! }) W0 z7 |%ChkFile(d:\temp\data.xls);
3 q% J. P2 b0 U0 c1 z$ A
%mend;