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

百年孤独

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

2 c0 f  A, R; i" H%macro ChkFile(OutFilePath);
; @2 A& l! k2 A* X& z7 z" b/**********************************************************************/
/* 此宏的作用是检查指定路径的文件夹或文件是否存在。若指定路径包含文件 */
- L4 r6 n8 U( p  H3 ~/* 名，则运行此宏后路径中包含的文件夹存在但文件不存在，方便以后操作； */
/* 若指定路径不包含文件名，则运行此宏后路径中包含的文件夹存在。其中， */
: ]* C! R. j+ C6 W! O/* OutFilePath是指定的文件夹或文件路径。注意如果路径中包含文件名，则  */
/* 一定要写全文件名和其扩展名。                                       */
/*                                                                    */
( \- h# u+ k' G) L# N3 m/*                                      Created on 2011.9.29          */
/*                                      Modified on 2011.9.29         */
/**********************************************************************/
$ b& y+ Y0 P8 n0 |6 x
. S" Z! B. A8 R2 ~/* 情形1：当输入参数OutFilePath包含文件名时，注意文件名必须带后缀 */
; e$ ]7 B% O8 S: X%if %SYSFUNC(FIND(&OutFilePath,%Str(.))) NE 0 %then %do;
8 Q! d3 [: j/ M8 d! p$ S6 \+ j        /* 得到OutFilePath中包含的文件名File和文件夹路径Dir */
        %let File=%SYSFUNC(SCAN(&OutFilePath,-1,\));
& E8 f1 A" T5 L        %let Dir=%SYSFUNC(SUBSTR(&OutFilePath,1,%EVAL(%SYSFUNC(LENGTH(&OutFilePath))-%SYSFUNC(LENGTH(&File)))));

        options noxwait;
8 u/ `0 {9 x: l2 ]
3 P, c; E# G' f$ n* B0 s0 _        %local rc1 fileref1;
9 E8 ]2 T. j: c6 s+ h# @! `        %local rc2 fileref2;
        %let rc1=%SYSFUNC(FILENAME(fileref1,&Dir));
" t# I: F: X: J/ K9 a+ ^" u        %let rc2=%SYSFUNC(FILENAME(fileref2,&OutFilePath));

        %if %SYSFUNC(FEXIST(&fileref1)) %then %do;
                %put NOTE: The directory "&Dir" exists.;
                %if %SYSFUNC(FEXIST(&fileref2)) %then %do;                /* 文件夹存在且文件也存在的情形 */
                        %SYSEXEC del &OutFilePath;
3 l, h, ?5 ?3 [: {7 d, \! s9 U. ]% O1 ^                        %put NOTE: The file "&File" also exists, and has been deleted.;
- K& q2 Y7 s. t! ~, g$ n; P4 W                        %end;
7 T; Z( m( [/ z$ ^4 I% U                %else %put NOTE: But the file "&File" does not exist.;                /* 文件夹存在且文件不存在的情形 */
                %end;
+ I) S: W! b7 V3 O) Q* W        %else %do;                /* 文件夹不存在的情形 */
                %SYSEXEC md &Dir;
                %put %SYSFUNC(SYSMSG()) The directory has been created.;
6 ?. p2 Q1 W. ~- l, H) T                %end;
9 ~2 N& b- {. C+ e
        %let rc1=%SYSFUNC(FILENAME(fileref1));
        %let rc2=%SYSFUNC(FILENAME(fileref2));
/ x; L0 x# R  n% v, w& m* Z%end;
) T) @2 C; h" a. A: z$ F
, ^6 n% y, e* {$ n6 D2 ^/* 情形2：当输入参数OutFilePath不包含文件名时 */
. ?5 j* [# b: s! A%else %do;
        options noxwait;

0 ?/ N9 w. h1 U        %local rc fileref;
  d4 D& t0 Y7 @  j5 _        %let rc=%SYSFUNC(FILENAME(fileref,&OutFilePath));
        %if %SYSFUNC(FEXIST(&fileref))  %then
                %put NOTE: The directory "&OutFilePath" exists.;
6 I$ P: C' b* f) j8 n! T        %else %do;
& k2 E  F0 H8 l1 P  J( o  L                %SYSEXEC md &OutFilePath;
, g% k  Y" Y$ l4 R                %put %SYSFUNC(SYSMSG()) The directory has been created.;
                %end;
        %let rc=%SYSFUNC(FILENAME(fileref));
+ }' H8 L3 l0 M( d9 W6 b$ t' y8 o%end;
- H' @, g* P$ r5 y7 ]. O8 @; |8 w  B
%mend;
8 ?, r; U2 V" J- D' }
6 [/ U: I& O& ?% U7 b8 d; C
%macro Demo();
6 t8 O8 R; I5 B3 v8 d! H
%ChkFile(d:\temp\data.xls);

%mend;
' q# o3 G, S: O. V9 Z" ~