SAS基础宏之11：GetVarListForTable-经管之家官网！

经济学管理学金融学统计学

您当前的位置> 软件培训>>

SAS基础宏之11：GetVarListForTable

人大经济论坛-经管之家：分享大学、考研、论文、会计、留学、数据、经济学、金融学、管理学、统计学、博弈论、统计年鉴、行业分析包括等相关资源。
经管之家是国内活跃的在线教育咨询平台!

完整电子版已上线CDA网校，累计已有10万+在读~ 教材严格按考试大纲编写，适合CDA考生备考，也适合业务及数据分析岗位的从业者提升自我。

TOP热门关键词

专题页面精选

这个宏就是得到指定表格中的变量列表可以选择导出全部、数值、字符格式的变量可以选择导出至数据集或者宏变量%macroGetVarListForTable(SourceTable,TargetTable,OutputVar,VarType,UseLabel);/******************** ...

免费学术公开课,扫码加入

这个宏就是得到指定表格中的变量列表
可以选择导出全部、数值、字符格式的变量
可以选择导出至数据集或者宏变量

%macro GetVarListForTable(SourceTable,TargetTable,OutputVar,VarType,UseLabel);
/**********************************************************************/
/* 此宏的作用是得到指定表格的变量列表。其中，SourceTable是原始表格；*/
/* TargetTable是结果表格；VarType是变量类型，=_Numeric_表示数值型， */
/* =_Character_表示字符型，=_ALL_表示取得全部变量列表，=xx:表示以xx开 */
/* 头的所有变量，=xx%表示包含xx的所有变量；UseLabel是标记变量，=Yes表 */
/* 示用标签代替变量名，否则=No。 */
/* */
/* 最终得到指定表格的变量列表。 */
/* */
/* Created on 2013.2.6 */
/* Modified on 2013.2.17 */
/**********************************************************************/
/* 检查SourceTable的合法性 */
%if %SYSFUNC(FIND(&SourceTable,.)) NE 0 %then %do;
%let GVLFT_SourceLibName=%SCAN(&SourceTable,1,.);
%let GVLFT_SourceDatasetName=%SCAN(&SourceTable,2,.);
%end;
%else %do;
%let GVLFT_SourceLibName=WORK;
%let GVLFT_SourceDatasetName=&SourceTable;
%end;
/* 检查TargetTable的存在性 */
%if &TargetTable EQ %STR() AND &OutputVar EQ %STR() %then %do;
%put ERROR: The TargetTable and OutputVar should not be blank simultaneously, please check it again.;
%goto exit;
%end;
%if &TargetTable EQ %STR() %then %let TargetTable=GVLFT_Res;
/* 检查VarType的非空性 */
%if &VarType EQ %STR() %then %let VarType=_All_;
/* 拆分VarType */
%SeparateString(InputString=&VarType,OutputString=GVLFT_VarType);
/* 检查UseLabel的合法性 */
%if &UseLabel EQ %STR() %then %let UseLabel=No;
%if %UPCASE(&UseLabel) NE YES AND %UPCASE(&UseLabel) NE NO %then %do;
%put ERROR: The UseLabel should be Yes or No, case insensitive and without quotes.;
%goto exit;
%end;
/* 开始计算 */
proc contents data=&SourceTable out=GVLFT_Temp noprint;
run;
%do GVLFT_i=1 %to &GVLFT_VarType_Num;
%if %SYSFUNC(FIND(&&GVLFT_VarType_Var&GVLFT_i,%STR(:))) NE 0 %then %do;
proc sql noprint;
create table GVLFT_Res_&GVLFT_i as
select * from GVLFT_Temp
where UPCASE(libname)=UPCASE("&GVLFT_SourceLibName.") and
UPCASE(memname)=UPCASE("&GVLFT_SourceDatasetName.") and
UPCASE(SUBSTR(name,1,%EVAL(%LENGTH(&&GVLFT_VarType_Var&GVLFT_i)-1))) EQ "%UPCASE(%SUBSTR(&&GVLFT_VarType_Var&GVLFT_i,1,%EVAL(%LENGTH(&&GVLFT_VarType_Var&GVLFT_i)-1)))"
order by VARNUM;
quit;
%end;
%else %if %UPCASE(&&GVLFT_VarType_Var&GVLFT_i) EQ _NUMERIC_ %then %do;
proc sql noprint;
create table GVLFT_Res_&GVLFT_i as
select * from GVLFT_Temp
where UPCASE(libname)=UPCASE("&GVLFT_SourceLibName.") and
UPCASE(memname)=UPCASE("&GVLFT_SourceDatasetName.") and
UPCASE(type)='NUM'
order by VARNUM;
quit;
%end;
%else %if %UPCASE(&&GVLFT_VarType_Var&GVLFT_i) EQ _CHARACTER_ %then %do;
proc sql noprint;
create table GVLFT_Res_&GVLFT_i as
select * from GVLFT_Temp
where UPCASE(libname)=UPCASE("&GVLFT_SourceLibName.") and
UPCASE(memname)=UPCASE("&GVLFT_SourceDatasetName.") and
UPCASE(type)='CHAR'
order by VARNUM;
quit;
%end;
%else %if %SYSFUNC(FIND(&&GVLFT_VarType_Var&GVLFT_i,%STR(%%))) NE 0 %then %do;
proc sql noprint;
create table GVLFT_Res_&GVLFT_i as
select * from GVLFT_Temp
where UPCASE(libname)=UPCASE("&GVLFT_SourceLibName.") and UPCASE(memname)=UPCASE("&GVLFT_SourceDatasetName.") and
UPCASE(name) like UPCASE("%%Mgr%")
order by VARNUM;
quit;
%end;
%else %if %UPCASE(&&GVLFT_VarType_Var&GVLFT_i) EQ _ALL_ %then %do;
proc sql noprint;
create table GVLFT_Res_&GVLFT_i as
select * from GVLFT_Temp
where UPCASE(libname)=UPCASE("&GVLFT_SourceLibName.") and UPCASE(memname)=UPCASE("&GVLFT_SourceDatasetName.")
order by VARNUM;
quit;
%end;
%else %do;
proc sql noprint;
create table GVLFT_Res_&GVLFT_i as
select * from GVLFT_Temp
where UPCASE(libname)=UPCASE("&GVLFT_SourceLibName.") and UPCASE(memname)=UPCASE("&GVLFT_SourceDatasetName.") and
UPCASE(name) EQ %UPCASE("&&GVLFT_VarType_Var&GVLFT_i.")
order by VARNUM;
quit;
%end;
%end;
/* 合并上述表格 */
data &TargetTable;
set
%do GVLFT_j=1 %to &GVLFT_VarType_Num;
GVLFT_Res_&GVLFT_j
%end;
;
run;
%if &OutputVar NE %STR() %then %do;
%global &OutputVar;
%if %UPCASE(&UseLabel) EQ NO %then %do;
proc sql noprint;
select name into :&OutputVar separated by ' '
from &TargetTable
order by VARNUM;
quit;
%end;
%else %if %UPCASE(&UseLabel) EQ YES %then %do;
proc sql noprint;
select label into :&OutputVar separated by ' '
from &TargetTable
order by VARNUM;
quit;
%end;
%end;
/* 删除不必要的表格 */
proc datasets lib=work nolist;
delete GVLFT_:;
quit;
%exit:
%mend;
%macro Demo();
%let SourceTable=Zheng.TurnoverRate;
%let TargetTable=VarList;
%let OutputVar=VarString;
%let VarType=_All_; /* =_Numerical_表示数值型，=_Character_表示字符型，=_ALL_表示取得全部变量列表，=xx:表示以xx开头的所有变量，=xx%表示包含xx的所有变量 */
%let UseLabel=Yes; /* 标记变量，=Yes表示用标签代替变量名，否则=No */
%GetVarListForTable(&SourceTable,&TargetTable,&OutputVar,&VarType,&UseLabel);
%put &VarString;
%mend;

复制代码

「经管之家」APP：经管人学习、答疑、交友，就上经管之家！
免流量费下载资料----在经管之家app可以下载论坛上的所有资源，并且不额外收取下载高峰期的论坛币。
涵盖所有经管领域的优秀内容----覆盖经济、管理、金融投资、计量统计、数据分析、国贸、财会等专业的学习宝库，各类资料应有尽有。
来自五湖四海的经管达人----已经有上千万的经管人来到这里，你可以找到任何学科方向、有共同话题的朋友。
经管之家（原人大经济论坛），跨越高校的围墙，带你走进经管知识的新世界。
扫描下方二维码下载并注册APP

本文关键词：

本文论坛网址：https://bbs.pinggu.org/thread-2364464-1-1.html

上一篇 | 100论坛币求何正斌的《经济学三百年》

下一篇 | SAS基础宏之12：DeleteMissObs

SAS软件培训精彩帖子推荐更多

您可能感兴趣的文章

本站推荐的文章

人气文章

本文标题：SAS基础宏之11：GetVarListForTable

本文链接网址：https://bbs.pinggu.org/jg/ruanjianpeixun_sasruanjianpeixun_2364464_1.html

1.凡人大经济论坛-经管之家转载的文章,均出自其它媒体或其他官网介绍,目的在于传递更多的信息,并不代表本站赞同其观点和其真实性负责；
2.转载的文章仅代表原创作者观点,与本站无关。其原创性以及文中陈述文字和内容未经本站证实,本站对该文以及其中全部或者部分内容、文字的真实性、完整性、及时性，不作出任何保证或承若；
3.如本站转载稿涉及版权等问题,请作者及时联系本站,我们会及时处理。

SAS基础宏之11：GetVarListForTable-经管之家官网！

SAS软件培训