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

百年孤独

  在网上看到了一些比较不错的sas 关于宏的资源 希望对大家有用
在此非常感谢 某某论坛的资源共享。
这个宏是用来检查指定目标文件夹或文件是否存在的，若存在则删除，不存在则创建，用于解决在dos中和SAS中无法创建文件夹的问题
例如可以在运行proc export前ChkFile下
' B! g- B( C; Z. n
%macro ChkFile(OutFilePath);
/**********************************************************************/
; t; {2 E/ G- \1 F0 a6 v; M/* 此宏的作用是检查指定路径的文件夹或文件是否存在。若指定路径包含文件 */
/* 名，则运行此宏后路径中包含的文件夹存在但文件不存在，方便以后操作； */
/* 若指定路径不包含文件名，则运行此宏后路径中包含的文件夹存在。其中， */
4 p$ j! Z, v2 x- Q/* OutFilePath是指定的文件夹或文件路径。注意如果路径中包含文件名，则  */
/* 一定要写全文件名和其扩展名。                                       */
4 T6 F! i; A# N8 X/*                                                                    */
/*                                      Created on 2011.9.29          */
/*                                      Modified on 2011.9.29         */
( r0 S0 ?5 {! c6 S' N% d9 X" Z/**********************************************************************/
7 a2 }( K8 G  e1 i1 I: Y
/* 情形1：当输入参数OutFilePath包含文件名时，注意文件名必须带后缀 */
%if %SYSFUNC(FIND(&OutFilePath,%Str(.))) NE 0 %then %do;
  z7 o$ O2 W. z        /* 得到OutFilePath中包含的文件名File和文件夹路径Dir */
        %let File=%SYSFUNC(SCAN(&OutFilePath,-1,\));
" q7 k) n/ K9 z& o4 z5 q        %let Dir=%SYSFUNC(SUBSTR(&OutFilePath,1,%EVAL(%SYSFUNC(LENGTH(&OutFilePath))-%SYSFUNC(LENGTH(&File)))));

# B: t  _4 \9 B( |' x/ [/ X, l        options noxwait;
) u# S* Y7 j& ^2 m# R7 N; j) `
        %local rc1 fileref1;
% p/ ^3 Q' q. r' o# }/ ]        %local rc2 fileref2;
        %let rc1=%SYSFUNC(FILENAME(fileref1,&Dir));
        %let rc2=%SYSFUNC(FILENAME(fileref2,&OutFilePath));
3 t5 t+ D7 J9 n6 Q4 T7 g2 [; _' Z
* M% K( A2 J/ \* ?5 d        %if %SYSFUNC(FEXIST(&fileref1)) %then %do;
9 k6 e. n& }# y                %put NOTE: The directory "&Dir" exists.;
! _" k0 S! y8 @, J' c1 z                %if %SYSFUNC(FEXIST(&fileref2)) %then %do;                /* 文件夹存在且文件也存在的情形 */
" w( A& S9 o9 ]; u0 P% F7 U3 t1 S0 i, L                        %SYSEXEC del &OutFilePath;
0 m8 f6 N, b0 j/ O                        %put NOTE: The file "&File" also exists, and has been deleted.;
  C7 i& Z5 G" {, k                        %end;
' U* O) l, e2 |5 D1 ~                %else %put NOTE: But the file "&File" does not exist.;                /* 文件夹存在且文件不存在的情形 */
                %end;
# h; l- u. f, F4 o2 N+ j" I        %else %do;                /* 文件夹不存在的情形 */
                %SYSEXEC md &Dir;
                %put %SYSFUNC(SYSMSG()) The directory has been created.;
3 Y( D5 M) }0 L3 K                %end;

! d& M3 i# @: {! @9 J, f# G5 M/ i        %let rc1=%SYSFUNC(FILENAME(fileref1));
        %let rc2=%SYSFUNC(FILENAME(fileref2));
  u3 X; I* W! |: Q%end;

/* 情形2：当输入参数OutFilePath不包含文件名时 */
%else %do;
        options noxwait;
/ v2 E3 M4 w$ c  J3 Y* h
        %local rc fileref;
        %let rc=%SYSFUNC(FILENAME(fileref,&OutFilePath));
2 H) r# r: p) j8 P+ g* {  W        %if %SYSFUNC(FEXIST(&fileref))  %then
6 v( P/ ]0 K& |$ N: Z$ W                %put NOTE: The directory "&OutFilePath" exists.;
; O5 Z, ?3 f* l" |        %else %do;
                %SYSEXEC md &OutFilePath;
+ I6 G+ D- Y+ ^+ T7 b                %put %SYSFUNC(SYSMSG()) The directory has been created.;
- s" \( n* b$ F- O                %end;
" q/ j6 J0 _. N3 ~5 h2 `5 E  e0 f( t        %let rc=%SYSFUNC(FILENAME(fileref));
%end;
7 F+ y8 ]# ^+ R( d. m
/ o3 Y7 C5 T( ?( I%mend;
/ |, [- [6 Z6 w' O% D( l

%macro Demo();
$ [6 T7 L6 A! N4 n+ w) k6 n$ E
; B$ g& E& B* R, o. J%ChkFile(d:\temp\data.xls);
' N" ]  ~5 E0 }) ?
%mend;