SAS基础宏之11：GetVarListForTable

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

宏作用

---

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

1. %macro GetVarListForTable(SourceTable,TargetTable,OutputVar,VarType,UseLabel);
   
2. 
   
3. /**********************************************************************/
   
4. /* 此宏的作用是得到指定表格的变量列表。其中，SourceTable是原始表格；  */
   
5. /* TargetTable是结果表格；VarType是变量类型，=_Numeric_表示数值型，   */
   
6. /* =_Character_表示字符型，=_ALL_表示取得全部变量列表，=xx:表示以xx开 */
   
7. /* 头的所有变量，=xx%表示包含xx的所有变量；UseLabel是标记变量，=Yes表 */
   
8. /* 示用标签代替变量名，否则=No。                                      */
   
9. /*                                                                    */
   
10. /* 最终得到指定表格的变量列表。                                       */
    
11. /*                                                                    */
    
12. /*                                      Created on 2013.2.6           */
    
13. /*                                      Modified on 2013.2.17          */
    
14. /**********************************************************************/
    
15. 
    
16. /* 检查SourceTable的合法性 */
    
17. %if %SYSFUNC(FIND(&SourceTable,.)) NE 0 %then %do;
    
18.         %let GVLFT_SourceLibName=%SCAN(&SourceTable,1,.);
    
19.         %let GVLFT_SourceDatasetName=%SCAN(&SourceTable,2,.);
    
20. %end;
    
21. %else %do;
    
22.         %let GVLFT_SourceLibName=WORK;
    
23.         %let GVLFT_SourceDatasetName=&SourceTable;
    
24. %end;
    
25. 
    
26. /* 检查TargetTable的存在性 */
    
27. %if &TargetTable EQ %STR() AND &OutputVar EQ %STR() %then %do;
    
28.         %put ERROR: The TargetTable and OutputVar should not be blank simultaneously, please check it again.;
    
29.         %goto exit;
    
30. %end;
    
31. 
    
32. %if &TargetTable EQ %STR() %then %let TargetTable=GVLFT_Res;
    
33. 
    
34. /* 检查VarType的非空性 */
    
35. %if &VarType EQ %STR() %then %let VarType=_All_;
    
36. 
    
37. /* 拆分VarType */
    
38. %SeparateString(InputString=&VarType,OutputString=GVLFT_VarType);
    
39. 
    
40. /* 检查UseLabel的合法性 */
    
41. %if &UseLabel EQ %STR() %then %let UseLabel=No;
    
42. 
    
43. %if %UPCASE(&UseLabel) NE YES AND %UPCASE(&UseLabel) NE NO %then %do;
    
44.         %put ERROR: The UseLabel should be Yes or No, case insensitive and without quotes.;
    
45.         %goto exit;
    
46. %end;
    
47. 
    
48. /* 开始计算 */
    
49. proc contents data=&SourceTable out=GVLFT_Temp noprint;
    
50. run;
    
51. 
    
52. %do GVLFT_i=1 %to &GVLFT_VarType_Num;
    
53.         %if %SYSFUNC(FIND(&&GVLFT_VarType_Var&GVLFT_i,%STR(:))) NE 0 %then %do;
    
54.                 proc sql noprint;
    
55.                         create table GVLFT_Res_&GVLFT_i as
    
56.                                 select * from GVLFT_Temp
    
57.                                         where UPCASE(libname)=UPCASE("&GVLFT_SourceLibName.") and
    
58.                                                 UPCASE(memname)=UPCASE("&GVLFT_SourceDatasetName.") and
    
59.                                                 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)))"
    
60.                                         order by VARNUM;
    
61.                 quit;
    
62.         %end;
    
63.         %else %if %UPCASE(&&GVLFT_VarType_Var&GVLFT_i) EQ _NUMERIC_ %then %do;
    
64.                 proc sql noprint;
    
65.                         create table GVLFT_Res_&GVLFT_i as
    
66.                                 select * from GVLFT_Temp
    
67.                                         where UPCASE(libname)=UPCASE("&GVLFT_SourceLibName.") and
    
68.                                                 UPCASE(memname)=UPCASE("&GVLFT_SourceDatasetName.") and
    
69.                                                 UPCASE(type)='NUM'
    
70.                                         order by VARNUM;
    
71.                 quit;
    
72.         %end;
    
73.         %else %if %UPCASE(&&GVLFT_VarType_Var&GVLFT_i) EQ _CHARACTER_ %then %do;
    
74.                 proc sql noprint;
    
75.                         create table GVLFT_Res_&GVLFT_i as
    
76.                                 select * from GVLFT_Temp
    
77.                                         where UPCASE(libname)=UPCASE("&GVLFT_SourceLibName.") and
    
78.                                                 UPCASE(memname)=UPCASE("&GVLFT_SourceDatasetName.") and
    
79.                                                 UPCASE(type)='CHAR'
    
80.                                         order by VARNUM;
    
81.                 quit;
    
82.         %end;
    
83.         %else %if %SYSFUNC(FIND(&&GVLFT_VarType_Var&GVLFT_i,%STR(%%))) NE 0 %then %do;
    
84.                 proc sql noprint;
    
85.                         create table GVLFT_Res_&GVLFT_i as
    
86.                                 select * from GVLFT_Temp
    
87.                                         where UPCASE(libname)=UPCASE("&GVLFT_SourceLibName.") and UPCASE(memname)=UPCASE("&GVLFT_SourceDatasetName.") and
    
88.                                                 UPCASE(name) like UPCASE("%%Mgr%")
    
89.                                         order by VARNUM;
    
90.                 quit;
    
91.         %end;
    
92.         %else %if %UPCASE(&&GVLFT_VarType_Var&GVLFT_i) EQ _ALL_ %then %do;
    
93.                 proc sql noprint;
    
94.                         create table GVLFT_Res_&GVLFT_i as
    
95.                                 select * from GVLFT_Temp
    
96.                                         where UPCASE(libname)=UPCASE("&GVLFT_SourceLibName.") and UPCASE(memname)=UPCASE("&GVLFT_SourceDatasetName.")
    
97.                                         order by VARNUM;
    
98.                 quit;
    
99.         %end;
    
100.         %else %do;
     
101.                 proc sql noprint;
     
102.                         create table GVLFT_Res_&GVLFT_i as
     
103.                                 select * from GVLFT_Temp
     
104.                                         where UPCASE(libname)=UPCASE("&GVLFT_SourceLibName.") and UPCASE(memname)=UPCASE("&GVLFT_SourceDatasetName.") and
     
105.                                                 UPCASE(name) EQ %UPCASE("&&GVLFT_VarType_Var&GVLFT_i.")
     
106.                                         order by VARNUM;
     
107.                 quit;
     
108.         %end;
     
109. %end;
     
110. 
     
111. /* 合并上述表格 */
     
112. data &TargetTable;
     
113.         set
     
114.         %do GVLFT_j=1 %to &GVLFT_VarType_Num;
     
115.                 GVLFT_Res_&GVLFT_j
     
116.         %end;
     
117.         ;
     
118. run;
     
119. 
     
120. %if &OutputVar NE %STR() %then %do;
     
121.         %global &OutputVar;
     
122. 
     
123.         %if %UPCASE(&UseLabel) EQ NO %then %do;
     
124.                 proc sql noprint;
     
125.                         select name into :&OutputVar separated by ' '
     
126.                                 from &TargetTable
     
127.                                 order by VARNUM;
     
128.                 quit;
     
129.         %end;
     
130.         %else %if %UPCASE(&UseLabel) EQ YES %then %do;
     
131.                 proc sql noprint;
     
132.                         select label into :&OutputVar separated by ' '
     
133.                                 from &TargetTable
     
134.                                 order by VARNUM;
     
135.                 quit;
     
136.         %end;
     
137. %end;
     
138. 
     
139. /* 删除不必要的表格 */
     
140. proc datasets lib=work nolist;
     
141.     delete GVLFT_:;
     
142. quit;
     
143. 
     
144. %exit:
     
145. %mend;
     
146. 
     
147. 
     
148. %macro Demo();
     
149. 
     
150. %let SourceTable=Zheng.TurnoverRate;
     
151. %let TargetTable=VarList;
     
152. %let OutputVar=VarString;
     
153. %let VarType=_All_;                /* =_Numerical_表示数值型，=_Character_表示字符型，=_ALL_表示取得全部变量列表，=xx:表示以xx开头的所有变量，=xx%表示包含xx的所有变量 */
     
154. %let UseLabel=Yes;                /* 标记变量，=Yes表示用标签代替变量名，否则=No */
     
155. %GetVarListForTable(&SourceTable,&TargetTable,&OutputVar,&VarType,&UseLabel);
     
156. 
     
157. %put &VarString;
     
158. 
     
159. %mend;

复制代码

扫码加我 拉你入群

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

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

分享1 收藏3 回帖

关键词：varlist Table sas基础 ABLE tvar sas 基础宏 GetVarListForTable