关于本站
人大经济论坛-经管之家：分享大学、考研、论文、会计、留学、数据、经济学、金融学、管理学、统计学、博弈论、统计年鉴、行业分析包括等相关资源。
经管之家是国内活跃的在线教育咨询平台!
获取电子版《CDA一级教材》
完整电子版已上线CDA网校，累计已有10万+在读~ 教材严格按考试大纲编写，适合CDA考生备考，也适合业务及数据分析岗位的从业者提升自我。
TOP热门关键词
得到指定Library里的数据集列表可以导出至新的数据集或指定txt文件%macroGetDataSetInfoInLib(LibName,Filter,TargetTable,OutFilePath,Detail);/**************************************************************** ...
免费学术公开课,扫码加入 |
可以导出至新的数据集或指定txt文件
- %macro GetDataSetInfoInLib(LibName,Filter,TargetTable,OutFilePath,Detail);
- /**********************************************************************/
- /* 此宏用于获得目标逻辑库下所有数据集的信息，并将此信息保存至SAS表格 */
- /* 或导出至txt文件中。其中，LibName是指定的逻辑库；Filter是数据集过滤 */
- /* 设置，支持_和%通配符，若需要导出所有数据集列表，可以设置为空； */
- /* TargetTable是保存数据集信息的SAS表格，若不需要生成，可以设为空； */
- /* OutFilePath是导出txt文件的路径，若不需要导出，可以设为空；Detail是 */
- /* 标记变量，=Yes表示导出数据集列表详情，否则=No。 */
- /* */
- /* 最终得到的是含有目标逻辑库下所有数据集信息的SAS表格和存于指定路径 */
- /* 的txt文件。 */
- /* */
- /* Created on 2013.2.23 */
- /* Modified on 2013.4.3 */
- /**********************************************************************/
- /* 检查TargetTable和OutFilePath的非同时为空性 */
- %if &TargetTable EQ %STR() AND &OutFilePath EQ %STR() %then %do;
- %put ERROR: The TargetTable and OutFilePath should not be blank simultaneously, please check it again.;
- %goto exit;
- %end;
- %if &TargetTable EQ %STR() %then %let TargetTable=GDSIIL_Temp;
- /* 检查OutFilePath的合法性，若后缀不存在或非TXT，则改为TXT */
- %if &OutFilePath NE %STR() %then %do;
- %if %SYSFUNC(FIND(&OutFilePath,%STR(.))) EQ 0 %then %do;
- %let OutFilePath=%SYSFUNC(CATS(&OutFilePath,%STR(.TXT)));
- %end;
- %else %if %SYSFUNC(FIND(&OutFilePath,%STR(.))) NE 0 AND %UPCASE(%SCAN(&OutFilePath,-1,%STR(.))) NE TXT %then %do;
- %let OutFilePath=%SYSFUNC(CATS(%SUBSTR(&OutFilePath,1,%LENGTH(&OutFilePath)-%LENGTH(%SCAN(&OutFilePath,-1,%STR(.)))),TXT));
- %end;
- %end;
- /* 检查输入路径下是否存在同名文件，若存在则删除 */
- %if &OutFilePath NE %STR() %then %do;
- %ChkFile(&OutFilePath);
- %end;
- /* 检查Detail的合法性 */
- %if &Detail EQ %STR() %then %let Detail=No;
- %if %UPCASE(&Detail) NE YES AND %UPCASE(&Detail) NE NO %then %do;
- %put ERROR: The Detail should be Yes or No, case insensitive and without quotes.;
- %goto exit;
- %end;
- /* 开始进行计算 */
- proc sql noprint;
- create table &TargetTable as
- select * from SASHELP.VTABLE
- where libname EQ UPCASE("&LibName.")
- %if %UPCASE(&Filter) NE %STR() %then %do;
- and memname like UPCASE("&Filter.");
- %end;
- %else %do;
- ;
- %end;
- quit;
- %if %UPCASE(&Detail) EQ NO %then %do;
- data &TargetTable;
- set &TargetTable(keep=libname memname);
- run;
- %end;
- %if &OutFilePath NE %STR() %then %do;
- %ExportToDelimitedFile(SourceTable=&TargetTable,
- Delimiter='09'x,
- PutNames=Yes,
- OutFilePath=&OutFilePath);
- %end;
- /* 如需要在SAS的Output窗口中打印文件列表，请取消如下注释 */
- /*proc print data=&TargetTable;*/
- /*title1 "Files identified through saved file";*/
- /*run;*/
- /* 删除不必要的表格 */
- proc datasets lib=work nolist;
- delete GDSIIL_:;
- quit;
- %exit:
- %mend;
- %macro Demo();
- %let LibName=Zheng;
- %let Filter=r%; /* 文件过滤设置，若需要导出所有文件列表，则设置为空即可，即Filter=; */
- %let TargetTable=FileList; /* 若不需要生成包含文件列表的SAS表格，则设为空，大小写不敏感 */
- %let OutFilePath=d:\Temp\abc.txt; /* 若不需要导出文件列表txt文件，则设为空，大小写不敏感 */
- %let Detail=Yes; /* =Yes表示在导出文件列表txt文件中包含InDirPath的详情，否则=No，大小写不敏感 */
- %GetDataSetInfoInLib(&LibName,&Filter,&TargetTable,&OutFilePath,&Detail);
- %mend;
「经管之家」APP：经管人学习、答疑、交友，就上经管之家！
免流量费下载资料----在经管之家app可以下载论坛上的所有资源，并且不额外收取下载高峰期的论坛币。
涵盖所有经管领域的优秀内容----覆盖经济、管理、金融投资、计量统计、数据分析、国贸、财会等专业的学习宝库，各类资料应有尽有。
来自五湖四海的经管达人----已经有上千万的经管人来到这里，你可以找到任何学科方向、有共同话题的朋友。
经管之家（原人大经济论坛），跨越高校的围墙，带你走进经管知识的新世界。
扫描下方二维码下载并注册APP
免流量费下载资料----在经管之家app可以下载论坛上的所有资源，并且不额外收取下载高峰期的论坛币。
涵盖所有经管领域的优秀内容----覆盖经济、管理、金融投资、计量统计、数据分析、国贸、财会等专业的学习宝库，各类资料应有尽有。
来自五湖四海的经管达人----已经有上千万的经管人来到这里，你可以找到任何学科方向、有共同话题的朋友。
经管之家（原人大经济论坛），跨越高校的围墙，带你走进经管知识的新世界。
扫描下方二维码下载并注册APP
您可能感兴趣的文章
人气文章
本文标题：SAS基础宏之10：GetDataSetInfoInLib
本文链接网址：https://bbs.pinggu.org/jg/ruanjianpeixun_sasruanjianpeixun_2357721_1.html
2.转载的文章仅代表原创作者观点,与本站无关。其原创性以及文中陈述文字和内容未经本站证实,本站对该文以及其中全部或者部分内容、文字的真实性、完整性、及时性，不作出任何保证或承若；
3.如本站转载稿涉及版权等问题,请作者及时联系本站,我们会及时处理。
