你还在为批量重命名变量发愁吗？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

数据集里变量太多，没有规律，如何重命名着实让人烦。

分享一个简单的例子。如何批量给某些变量加些前缀或后缀

以sashelp.class 数据集为例。

http://blog.sina.com.cn/s/blog_41889b90010153bh.html

1. ************************;
   
2. ***macro definition;
   
3. ************************;
   
4. %macro renamevar(dslib,dsname,prefix,suffix,fromnum,tonum) ;
   
5. ods   listing close;
   
6. ods trace on;
   
7. ods output variables=varlist  ;
   
8. proc contents data=&dslib..&dsname;
   
9. run;
   
10. ods trace off;
    
11. ods listing;
    
12. 
    
13. proc sql;
    
14.   select  cats(variable,"=","&prefix._",variable,"_&suffix")
    
15.             into :renamelist  separated by " "
    
16. from  varlist
    
17. where num between &fromnum and &tonum;
    
18. quit;
    
19. 
    
20. *********************************************************************;
    
21. *** thanks for  Malcolm's suggestion; proc datasets is more efficient.
    
22. ***********************************************************************;
    
23. proc datasets lib=&dslib ;
    
24.   modify  &dsname;
    
25.   rename &renamelist;
    
26. run;
    
27. %mend renamevar;
    
28. 
    
29. ******************;
    
30. *** do it;
    
31. *****************;
    
32. 
    
33. %renamevar(sashelp,class,pre,suf,3,5);

复制代码

扫码加我 拉你入群

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

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

分享1 收藏5 回帖

关键词：批量重命名 definition suggestion EFFICIENT Variables definition contents close 命名 如何

good to know, thanks!

nice！顶起！

hssnow 发表于 2012-5-18 01:57
nice！顶起！

最近忙着答辩？

嗯，学习了。。。提供另外一种方法参考一下~~~

1. %macro rename(table,prefix,suffix);
   
2. 
   
3. proc sql noprint;
   
4.       select count(name),name into :_count,:_varlist separated by "|"
   
5.       from sashelp.vcolumn
   
6.           where libname="%upcase(%scan(&table,1,.))" and memname="%upcase(%scan(&table,2,.))";
   
7.   quit;
   
8. 
   
9.   %put &_count. &_varlist.;
   
10. 
    
11.   %local blank result1 result2;
    
12.   %local str1 str2 str3 i;
    
13.   %let blank=|  |;
    
14.   %let result1=;
    
15.   %let result2=;
    
16.   %do i=1 %to &_count;
    
17.       %let str1=%scan(&_varlist,&i);
    
18.       %let str2=&prefix._&str1._&suffix.;
    
19.       %let str3= &str1=&str2;
    
20.       %let result1=&blank&str3␣
    
21.       %let result2=&result2&result1;
    
22. %end;
    
23. %global rename_sentence;
    
24. %let rename_sentence=%sysfunc(compress(&result2,"|"));
    
25. %let rename_sentence=%sysfunc(compress(&rename_sentence,"|"));
    
26. %put &rename_sentence;
    
27. 
    
28. data class;
    
29.       set &table.;
    
30.       rename &rename_sentence;
    
31. run;
    
32. %mend;
    
33. 
    
34. %rename(sashelp.class,pre,suf);

复制代码

可~乐 发表于 2012-5-18 10:06
嗯，学习了。。。提供另外一种方法参考一下~~~

不错。思路差不多。

不错，留个脚印~

webgu 发表于 2012-5-18 08:55
最近忙着答辩？

忙着写毕业论文啊，各种写不动。。。

dataset是 很高效啊