求助 批量 修改 变量名

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

现有一数据 变量名为 d23 e40 c50 ... zh9000 共500个不规则变量名

如何改为                   d1   d2    d3  ...  d500

请各位大大不吝赐教！

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：不规则 如何

同问，呵呵

看看这篇http://blog.csdn.net/yugao1986/article/details/6224326,

yugao1986 发表于 2011-9-19 16:19
看看这篇http://blog.csdn.net/yugao1986/article/details/6224326,

可是这些都只是加坠子啊

revelc 发表于 2011-9-19 16:23
可是这些都只是加坠子啊

简单修改下,原理是一样的

1. /* 以此为例,4个变量 */
   
2. DATA A;
   
3. d23=1; e40=2; c50=3; zh9000=4;
   
4. run;
   
5. /* 原理,将变量读入红变量进行修改 */
   
6. %macro rename(lib,dsn,newname);
   
7. proc sql noprint;
   
8.    select nvar into :num_vars
   
9.    from dictionary.tables
   
10.    where libname="&LIB" and memname="&DSN";
    
11.    select distinct(name) into :var1-:var%trim(%left(&num_vars))
    
12.    from dictionary.columns
    
13.    where libname="&LIB" and memname="&DSN";
    
14. quit;
    
15. proc datasets library = &LIB;
    
16.    modify &DSN;
    
17.    rename
    
18.       %do i = 1 %to &num_vars.;
    
19.       &&var&i = &newname.&i.
    
20.       %end;
    
21.    ;
    
22. quit;
    
23. %mend rename;
    
24. data b;
    
25. set a;
    
26. run;
    
27. %rename(WORK,b,D);

复制代码

运行结果:
NOTE: Renaming variable c50 to D1.
NOTE: Renaming variable d23 to D2.
NOTE: Renaming variable e40 to D3.
NOTE: Renaming variable zh9000 to D4.

NOTE: MODIFY was successful for WORK.A.DATA.
NOTE: PROCEDURE DATASETS used (Total process time):
      real time           0.03 seconds
      cpu time            0.01 seconds

yugao1986 发表于 2011-9-19 16:37
简单修改下,原理是一样的 运行结果:
NOTE: Renaming variable c50 to D1.
NOTE: Renaming variable d ...

感谢 虽然有点复杂 不过问题解决了