如何批量修改变量名

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

请教各位：如何在SAS中批量修改变量名，
例如：变量名分别为V1,V2,V3........V50这50个变量，如果需要将其RENAME为V1_N,V2_N,V3_N......V50_N,该如何操作呢？
因为有多个数据库，其变量的命名方式都是一样的，为了不至于合并的时候造成差错，因此，希望能通过RENAME来重命名，而且每个不同数据库新的变量名方式不同，可以识别是哪个数据库来的变量。
因为变量个数很多，所以不想一个个rename，不知道有没有简单的方法？
尝试用ARRAY,但是，由于变量类型不同（有的是字符型，有的是数字型，有的是日期型），所以好像不行。

恳请各位帮忙解答，非常感谢！

扫码加我 拉你入群

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

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

关键词：rename array 请各位帮忙 name 变量类型 命名方式 数据库 如何 而且

批量获取变量名，然后批量rename 使用宏变量来实现
1.get namelist
2. generate the rename code such as
proc datasets lib=lib;
modify table;
rename
%let i=1;
%let name=%scan(&namelist.,&i.);
  %do %while(%length(&name.));
     &name.=&name._N
%let i=%eval(&i+1);
%let name=%scan(&namelist.,&i.);
  %end;
;
quit;

leptonyu 发表于 2012-1-5 19:17
批量获取变量名，然后批量rename 使用宏变量来实现
1.get namelist
2. generate the rename code such as ...

非常感谢你的回复。但是，因为我SAS学的没那么深入，所以试了一下还是有些疑问。
我的数据保存在名a1的临时数据集中，变量名是V1-V50，那么，namelist是怎么获取的呢？
proc datasets lib=lib （这个是固定的表述么？）
modify table（这个table是特指某个数据集或文档么）
还有后面的&namelist，是不是第一步获取的文档或列表？

不好意思，因为学的不深但又想找点省事，所以问题这么多。我想着能直接套用，结果发现log窗口跳出来很多问题。

再次感谢！

woxuanwo 发表于 2012-1-6 11:08
非常感谢你的回复。但是，因为我SAS学的没那么深入，所以试了一下还是有些疑问。
我的数据保存在名a1的临 ...

Try the contents procedure, and I provided an example here.

data test01;
        format id v1 8. v2 $10. v3 date9.;
        id = 1;
        v1 = 2;
        v2 = 'a';
        v3 = "01Jan2012"d;
run;
proc contents data = test01 out = test02(keep = name) noprint; run;
proc sql noprint;
        select compress(name||'='||name||'_n') into:renames separated by ' '
                from test02
                where lowcase(name) ne 'id';
quit;
data test03;
        set test01(rename=(&renames.));
run;

你可以查询proc datasets的相关帮助 table是数据集名，lib=后面应该填逻辑库名
namelist需要获取，用proc sql 语句获取
楼上这位的代码也是不错，对于小数据集而言都一样

楼上两位的代码都不错哈

学习了很多！好感激！

great, it is very useful!

1. data class;
   
2.    set sashelp.class;
   
3. run;
   
4. 
   
5. data tmp;
   
6.    if 0 then set sashelp.class(keep=age--weight);
   
7. run;
   
8. 
   
9. proc sql noprint;
   
10.      select distinct strip(name)||"=Q1_"||strip(name)
    
11.            into : rename separated by " "
    
12.            from dictionary.columns
    
13.            where libname="WORK" and memname="TMP";
    
14. quit;
    
15. 
    
16. 
    
17. proc datasets library=work;
    
18. modify class;
    
19.    rename &rename;
    
20. run;
    
21. quit;

复制代码

1. /*********************************************/
   
2. 
   
3. data test;
   
4.         format id v1 8. v2 $10. v3 date9.;
   
5.         id = 1;
   
6.         v1 = 2;
   
7.         v2 = 'a';
   
8.         v3 = "01Jan2012"d;
   
9. run;
   
10. 
    
11. 
    
12. %MACRO renamall(libref, dataset, prefix);
    
13.   %LOCAL namelist i ;
    
14. PROC CONTENTS DATA=&libref..&dataset OUT=dumm9999;
    
15. RUN;
    
16. PROC SQL STIMER NOPRINT;
    
17.   SELECT name
    
18.     INTO :namelist SEPARATED BY ' '
    
19.     FROM dumm9999
    
20.   ;
    
21. QUIT;
    
22. PROC DATASETS NOLIST LIBRARY=&libref;
    
23.   MODIFY &dataset;
    
24.     RENAME
    
25.   %LET i = 1;
    
26.   %LET token = %SCAN(&namelist,&i);
    
27.   %DO %WHILE(%LENGTH(&token));
    
28.       &token = &token&prefix.
    
29.     %LET i = %EVAL(&i + 1);
    
30.     %LET token = %SCAN(&namelist,&i);
    
31.   %END;
    
32.     ;
    
33.   RUN;
    
34. QUIT;
    
35. %MEND;
    
36. 
    
37. %renamall(work,test,_N)
    
38. 
    
39. 
    
40. 
    
41. data xx;
    
42. a=1; b=2; c=3; d=4;
    
43. proc sql noprint;
    
44. select compress(name||"=M_"||name)  into : rnmlist separated by ' '
    
45. from dictionary.columns
    
46. where libname='WORK' and memname='XX'
    
47. ;
    
48. data xx;
    
49.   set xx(rename=(&rnmlist));
    
50. proc print;
    
51. run;
    
52. 
    
53. 
    
54. quit;

复制代码