SAS基础宏之1：ChkFile

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

响应Webgu号召，发布我做的一系列基础文件操作、数据集操作的宏

基本上能完成版上经常有人问到的大部分基础任务

我不像各位版大那样勤劳，可能隔三差五来一发吧

这个宏是
      用来检查指定目标文件夹或文件是否存在的，若存在则删除，不存在则创建，用于解决在dos中和SAS中无法创建文件夹的问题

例如可以在运行proc export前ChkFile下

1. %macro ChkFile(OutFilePath);
   
2. /**********************************************************************/
   
3. /* 此宏的作用是检查指定路径的文件夹或文件是否存在。若指定路径包含文件 */
   
4. /* 名，则运行此宏后路径中包含的文件夹存在但文件不存在，方便以后操作； */
   
5. /* 若指定路径不包含文件名，则运行此宏后路径中包含的文件夹存在。其中， */
   
6. /* OutFilePath是指定的文件夹或文件路径。注意如果路径中包含文件名，则  */
   
7. /* 一定要写全文件名和其扩展名。                                       */
   
8. /*                                                                    */
   
9. /*                                      Created on 2011.9.29          */
   
10. /*                                      Modified on 2011.9.29         */
    
11. /**********************************************************************/
    
12. 
    
13. /* 情形1：当输入参数OutFilePath包含文件名时，注意文件名必须带后缀 */
    
14. %if %SYSFUNC(FIND(&OutFilePath,%Str(.))) NE 0 %then %do;
    
15.         /* 得到OutFilePath中包含的文件名File和文件夹路径Dir */
    
16.         %let File=%SYSFUNC(SCAN(&OutFilePath,-1,\));
    
17.         %let Dir=%SYSFUNC(SUBSTR(&OutFilePath,1,%EVAL(%SYSFUNC(LENGTH(&OutFilePath))-%SYSFUNC(LENGTH(&File)))));
    
18. 
    
19.         options noxwait;
    
20. 
    
21.         %local rc1 fileref1;
    
22.         %local rc2 fileref2;
    
23.         %let rc1=%SYSFUNC(FILENAME(fileref1,&Dir));
    
24.         %let rc2=%SYSFUNC(FILENAME(fileref2,&OutFilePath));
    
25. 
    
26.         %if %SYSFUNC(FEXIST(&fileref1)) %then %do;
    
27.                 %put NOTE: The directory "&Dir" exists.;
    
28.                 %if %SYSFUNC(FEXIST(&fileref2)) %then %do;                /* 文件夹存在且文件也存在的情形 */
    
29.                         %SYSEXEC del &OutFilePath;
    
30.                         %put NOTE: The file "&File" also exists, and has been deleted.;
    
31.                         %end;
    
32.                 %else %put NOTE: But the file "&File" does not exist.;                /* 文件夹存在且文件不存在的情形 */
    
33.                 %end;
    
34.         %else %do;                /* 文件夹不存在的情形 */
    
35.                 %SYSEXEC md &Dir;
    
36.                 %put %SYSFUNC(SYSMSG()) The directory has been created.;
    
37.                 %end;
    
38. 
    
39.         %let rc1=%SYSFUNC(FILENAME(fileref1));
    
40.         %let rc2=%SYSFUNC(FILENAME(fileref2));
    
41. %end;
    
42. 
    
43. /* 情形2：当输入参数OutFilePath不包含文件名时 */
    
44. %else %do;
    
45.         options noxwait;
    
46. 
    
47.         %local rc fileref;
    
48.         %let rc=%SYSFUNC(FILENAME(fileref,&OutFilePath));
    
49.         %if %SYSFUNC(FEXIST(&fileref))  %then
    
50.                 %put NOTE: The directory "&OutFilePath" exists.;
    
51.         %else %do;
    
52.                 %SYSEXEC md &OutFilePath;
    
53.                 %put %SYSFUNC(SYSMSG()) The directory has been created.;
    
54.                 %end;
    
55.         %let rc=%SYSFUNC(FILENAME(fileref));
    
56. %end;
    
57. 
    
58. %mend;
    
59. 
    
60. 
    
61. %macro Demo();
    
62. 
    
63. %ChkFile(d:\temp\data.xls);
    
64. 
    
65. %mend;

复制代码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享1 收藏22 回帖

关键词：ChkFile sas基础 file 基础宏 directory 基础 基础宏 ChkFile SAS

谢谢分享。

感谢楼主，很不错的系列，感谢分享，发帖不易，再次点赞！