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

百年孤独

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

$ k' y5 d- q" |/ G/ Y%macro ChkFile(OutFilePath);
- }4 @$ U) ~3 _  U/**********************************************************************/
% \! V5 x# N) \, ^& l4 ^/* 此宏的作用是检查指定路径的文件夹或文件是否存在。若指定路径包含文件 */
$ @4 Z) c' S2 l/* 名，则运行此宏后路径中包含的文件夹存在但文件不存在，方便以后操作； */
/* 若指定路径不包含文件名，则运行此宏后路径中包含的文件夹存在。其中， */
9 b2 d; E7 o4 L/* OutFilePath是指定的文件夹或文件路径。注意如果路径中包含文件名，则  */
6 U' i* O9 b3 y* n/* 一定要写全文件名和其扩展名。                                       */
/*                                                                    */
/*                                      Created on 2011.9.29          */
* A' L9 V/ d- n' S  p, }7 C/*                                      Modified on 2011.9.29         */
. |5 g# K# V+ `' E1 t' ^/**********************************************************************/
! N8 C2 G. H. I+ H( W/ s. q( a1 q
/* 情形1：当输入参数OutFilePath包含文件名时，注意文件名必须带后缀 */
%if %SYSFUNC(FIND(&OutFilePath,%Str(.))) NE 0 %then %do;
        /* 得到OutFilePath中包含的文件名File和文件夹路径Dir */
# v& x4 s# x6 W! c        %let File=%SYSFUNC(SCAN(&OutFilePath,-1,\));
1 e- g1 f7 D% |$ l: l        %let Dir=%SYSFUNC(SUBSTR(&OutFilePath,1,%EVAL(%SYSFUNC(LENGTH(&OutFilePath))-%SYSFUNC(LENGTH(&File)))));

        options noxwait;

7 X5 R6 m; m9 K. t        %local rc1 fileref1;
; x2 i7 F! a( n1 r+ _        %local rc2 fileref2;
        %let rc1=%SYSFUNC(FILENAME(fileref1,&Dir));
        %let rc2=%SYSFUNC(FILENAME(fileref2,&OutFilePath));
0 A1 ~& Q  R& f% e% t
7 F! S$ s% Q  h        %if %SYSFUNC(FEXIST(&fileref1)) %then %do;
0 {4 F) F9 k6 H  d0 P; G. L                %put NOTE: The directory "&Dir" exists.;
, m2 `, `; m4 S# D                %if %SYSFUNC(FEXIST(&fileref2)) %then %do;                /* 文件夹存在且文件也存在的情形 */
5 w, K% g8 {0 D8 P, Q                        %SYSEXEC del &OutFilePath;
% i5 t- ?, [3 i& O: l                        %put NOTE: The file "&File" also exists, and has been deleted.;
& v) A$ \" _" z6 w8 G; _' v                        %end;
                %else %put NOTE: But the file "&File" does not exist.;                /* 文件夹存在且文件不存在的情形 */
                %end;
        %else %do;                /* 文件夹不存在的情形 */
                %SYSEXEC md &Dir;
                %put %SYSFUNC(SYSMSG()) The directory has been created.;
0 G9 o! f# [9 n  a- F# X3 A                %end;
- U" w3 _( ^4 m4 e$ o4 K6 U
/ D6 k/ Q0 Z( b5 s4 I2 ~        %let rc1=%SYSFUNC(FILENAME(fileref1));
        %let rc2=%SYSFUNC(FILENAME(fileref2));
%end;
& L5 R9 s/ F" p! {4 O* a
$ {8 x6 K7 V, c/* 情形2：当输入参数OutFilePath不包含文件名时 */
%else %do;
4 A% _& z9 W  U6 G- D        options noxwait;
4 e/ @5 d# Y9 R' @' O; t
        %local rc fileref;
        %let rc=%SYSFUNC(FILENAME(fileref,&OutFilePath));
        %if %SYSFUNC(FEXIST(&fileref))  %then
                %put NOTE: The directory "&OutFilePath" exists.;
        %else %do;
                %SYSEXEC md &OutFilePath;
                %put %SYSFUNC(SYSMSG()) The directory has been created.;
2 ^  W2 c' }9 {! K' x. T                %end;
2 Z% a8 r- A# P9 c        %let rc=%SYSFUNC(FILENAME(fileref));
%end;
0 ~3 R* w$ `- B5 ~) i; m
%mend;
9 Y. y& G. X  g2 R" j/ k6 ?' `
  _8 H" N( E7 u" H
%macro Demo();

! h; V, x# F& l7 c* F* `, [# s%ChkFile(d:\temp\data.xls);
: P' q$ h: c4 i# \9 @0 N0 d
% i8 f# a1 |1 D: z6 I%mend;