如何keep出有规律的变量名

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

数据集中，有N个变量名以“DTC”结尾的变量。我想把他们都keep出来，应该怎么写？

扫码加我 拉你入群

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

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

分享0 收藏4 回帖

关键词：keep 数据集 如何

好像是 keep :DTC   你试一下

data a;
input addtc $ ddtc dd;
cards;
a 1 2
a 2 3
;
run;

data b;
set sashelp.vcolumn;
where libname='WORK' and memname='A' and substr(left(reverse(name)),1,3)='ctd';;
run;
data b;
set b;
if _n_=1 then do; vlist=name;retain vlist;end;
else vlist=compress(vlist||'*'||name);
run;

data b;
set b;
by libname;
if last.libname;
vlist=tranwrd(vlist,'*',' ');
run;
proc sql noprint;
select vlist into :vlist
from b;
quit;
data c;
set a;
keep &vlist;
run;

macro

感谢 mymine，我在qq群里得到的答案，思路和 mymine 一致，有点小出入。

在select into中使用 separated by，可以更简洁。

data a;
input addtc $ ddtc dd;
cards;
a 1 2
a 2 3
;
run;

data b;
set sashelp.vcolumn;
where libname='WORK' and memname='A' and substr(left(reverse(name)),1,3)='ctd';;
run;
proc sql noprint;
select name into :keep
separated by " "
from b;
quit;

data c;
set a;
keep &keep;
run;

这个语句果然不错，以前没有用到过
又学到了一招

学习

提供另外一种解决方案，仅供参考：

1. .......
   
2. proc contents data=test
   
3. noprint
   
4. short
   
5. out=result(keep=name type);
   
6. run;
   
7. proc sql noprint;
   
8. select name into :keep
   
9. separated by " "
   
10. from result where substr(left(reverse(name)),1,3)='ctd';;
    
11. quit;
    
12. ........

复制代码

思路真的是很重要的哦

nomad5 发表于 2012-7-3 15:14
感谢 mymine，我在qq群里得到的答案，思路和 mymine 一致，有点小出入。

在select into中使用 separated ...

Thanks