关于本站
人大经济论坛-经管之家：分享大学、考研、论文、会计、留学、数据、经济学、金融学、管理学、统计学、博弈论、统计年鉴、行业分析包括等相关资源。
经管之家是国内活跃的在线教育咨询平台!
获取电子版《CDA一级教材》
完整电子版已上线CDA网校，累计已有10万+在读~ 教材严格按考试大纲编写，适合CDA考生备考，也适合业务及数据分析岗位的从业者提升自我。
TOP热门关键词
响应Webgu号召，发布我做的一系列基础文件操作、数据集操作的宏基本上能完成版上经常有人问到的大部分基础任务我不像各位版大那样勤劳，可能隔三差五来一发吧这个宏是用来检查指定目标文件夹或文件是否存在的，若存在 ...
免费学术公开课,扫码加入 |
基本上能完成版上经常有人问到的大部分基础任务
我不像各位版大那样勤劳，可能隔三差五来一发吧
这个宏是用来检查指定目标文件夹或文件是否存在的，若存在则删除，不存在则创建，用于解决在dos中和SAS中无法创建文件夹的问题
例如可以在运行proc export前ChkFile下
- %macro ChkFile(OutFilePath);
- /**********************************************************************/
- /* 此宏的作用是检查指定路径的文件夹或文件是否存在。若指定路径包含文件 */
- /* 名，则运行此宏后路径中包含的文件夹存在但文件不存在，方便以后操作； */
- /* 若指定路径不包含文件名，则运行此宏后路径中包含的文件夹存在。其中， */
- /* OutFilePath是指定的文件夹或文件路径。注意如果路径中包含文件名，则*/
- /* 一定要写全文件名和其扩展名。 */
- /* */
- /* Created on 2011.9.29 */
- /* Modified on 2011.9.29 */
- /**********************************************************************/
- /* 情形1：当输入参数OutFilePath包含文件名时，注意文件名必须带后缀 */
- %if %SYSFUNC(FIND(&OutFilePath,%Str(.))) NE 0 %then %do;
- /* 得到OutFilePath中包含的文件名File和文件夹路径Dir */
- %let File=%SYSFUNC(SCAN(&OutFilePath,-1,\));
- %let Dir=%SYSFUNC(SUBSTR(&OutFilePath,1,%EVAL(%SYSFUNC(LENGTH(&OutFilePath))-%SYSFUNC(LENGTH(&File)))));
- options noxwait;
- %local rc1 fileref1;
- %local rc2 fileref2;
- %let rc1=%SYSFUNC(FILENAME(fileref1,&Dir));
- %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;
- %put NOTE: The file "&File" also exists, and has been deleted.;
- %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.;
- %end;
- %let rc1=%SYSFUNC(FILENAME(fileref1));
- %let rc2=%SYSFUNC(FILENAME(fileref2));
- %end;
- /* 情形2：当输入参数OutFilePath不包含文件名时 */
- %else %do;
- options noxwait;
- %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.;
- %end;
- %let rc=%SYSFUNC(FILENAME(fileref));
- %end;
- %mend;
- %macro Demo();
- %ChkFile(d:\temp\data.xls);
- %mend;
「经管之家」APP：经管人学习、答疑、交友，就上经管之家！
免流量费下载资料----在经管之家app可以下载论坛上的所有资源，并且不额外收取下载高峰期的论坛币。
涵盖所有经管领域的优秀内容----覆盖经济、管理、金融投资、计量统计、数据分析、国贸、财会等专业的学习宝库，各类资料应有尽有。
来自五湖四海的经管达人----已经有上千万的经管人来到这里，你可以找到任何学科方向、有共同话题的朋友。
经管之家（原人大经济论坛），跨越高校的围墙，带你走进经管知识的新世界。
扫描下方二维码下载并注册APP
免流量费下载资料----在经管之家app可以下载论坛上的所有资源，并且不额外收取下载高峰期的论坛币。
涵盖所有经管领域的优秀内容----覆盖经济、管理、金融投资、计量统计、数据分析、国贸、财会等专业的学习宝库，各类资料应有尽有。
来自五湖四海的经管达人----已经有上千万的经管人来到这里，你可以找到任何学科方向、有共同话题的朋友。
经管之家（原人大经济论坛），跨越高校的围墙，带你走进经管知识的新世界。
扫描下方二维码下载并注册APP
您可能感兴趣的文章
人气文章
本文标题：SAS基础宏之1：ChkFile
本文链接网址：https://bbs.pinggu.org/jg/ruanjianpeixun_sasruanjianpeixun_2337963_1.html
2.转载的文章仅代表原创作者观点,与本站无关。其原创性以及文中陈述文字和内容未经本站证实,本站对该文以及其中全部或者部分内容、文字的真实性、完整性、及时性，不作出任何保证或承若；
3.如本站转载稿涉及版权等问题,请作者及时联系本站,我们会及时处理。
