如何将数值型转变为字符型？

data aaa;
label x="编号" z="值";
input z y$ x@@;
cards;
1 a 2
1 b 3
2 c 4
;
run;

要求产生的新数据集中变量名顺序不变，有label。变量均为字符型，程序最好能通用，谢谢！

1. proc format;
   
2.         value sexfmt 1='男' 2='女';
   
3. run;
   
4. 
   
5. data aaa;
   
6. label x="编号" z="值";
   
7. format sex sexfmt.;
   
8. format time mmddyy10.;
   
9. input z y$ x sex time@@;
   
10. cards;
    
11. 1 a 2 1 2000
    
12. 1 b 3 2 1000
    
13. 2 c 4 1 3000
    
14. ;
    
15. run;
    
16. 
    
17. %macro numtochar(libname=,dataset=,charlen=);
    
18. 
    
19. options mvarsize=MAX;
    
20. 
    
21. %let uclib=%upcase(&libname);
    
22. %let ucds=%upcase(&dataset);
    
23. 
    
24. proc sql noprint;
    
25.         select         case
    
26.                                 when format=" " then cats("__",name,"=strip(put(",name,",best.));")
    
27.                                 else cats("__",name,"=strip(put(",name,",",format,"));")
    
28.                         end,
    
29.                         case
    
30.                                 when label^=" " then cats("__",name,"='",label,"'")
    
31.                                 else ""
    
32.                         end,
    
33.                         cats("__",name,"=",name,""),
    
34.                         cats(name),
    
35.                         cats("__",name)
    
36.         into         :converts separated by " ",
    
37.                         :labels separated by " ",
    
38.                         :renames separated by " ",
    
39.                         :drops separated by " ",
    
40.                         :nnames separated by " "
    
41.         from dictionary.columns where upcase(libname)="&uclib." and upcase(memname)="&ucds" and type="num";
    
42.         select cats(name) into :names separated by " " from dictionary.columns where upcase(libname)="&uclib." and upcase(memname)="&ucds";
    
43. quit;
    
44. 
    
45. data want;
    
46.         length &nnames. $ &charlen.;
    
47.         set aaa;
    
48.         &converts.;
    
49.         label &labels.;
    
50.         drop &drops.;
    
51.         rename &renames.;
    
52. run;
    
53. 
    
54. data want;
    
55.         retain &names.;
    
56.         set want;
    
57. run;
    
58. %mend;
    
59. 
    
60. %numtochar(libname=work,dataset=aaa,charlen=32)

复制代码

data work.bbb(drop = z y x
                        rename = (z1 = z y1 = y x1 = x));
        set work.aaa;
        label x1="编号" z1="值";
        z1 = put(z,8.);
        y1 = y;
        x1 = put(x,8.);
       
run;

1. %macro numtochar(libname=,dataset=,charlen=);
   
2. 
   
3. options mvarsize=MAX;
   
4. 
   
5. %let uclib=%upcase(&libname);
   
6. %let ucds=%upcase(&dataset);
   
7. 
   
8. proc sql noprint;
   
9.         select         cats("__",name,"=strip(put(",name,",best.));"),
   
10.                         cats("__",name,"='",label,"'"),
    
11.                         cats("__",name,"=",name,""),
    
12.                         cats(name),
    
13.                         cats("__",name)
    
14.         into         :converts separated by " ",
    
15.                         :labels separated by " ",
    
16.                         :renames separated by " ",
    
17.                         :drops separated by " ",
    
18.                         :nnames separated by " "
    
19.         from dictionary.columns where upcase(libname)="&uclib." and upcase(memname)="&ucds" and type="num";
    
20.         select cats(name) into :names separated by " " from dictionary.columns where upcase(libname)="&uclib." and upcase(memname)="&ucds";
    
21. quit;
    
22. 
    
23. data want;
    
24.         length &nnames. $ &charlen.;
    
25.         set aaa;
    
26.         &converts.;
    
27.         label &labels.;
    
28.         drop &drops.;
    
29.         rename &renames.;
    
30. run;
    
31. 
    
32. data want;
    
33.         retain &names.;
    
34.         set want;
    
35. run;
    
36. %mend;
    
37. 
    
38. %numtochar(libname=work,dataset=aaa,charlen=32)

复制代码

本程序可将指定数据集中所有数值型变量，改为字符型变量，变量长度可以自行设置，保留标签及变量顺序如果数据集变量本身有变量以__开头，可能会有问题，因为程序里用到了这种变量，做修改即可。

谢谢YueweiLiu

proc format;
        value sexfmt 1='男' 2='女';
run;

data aaa;
label x="编号" z="值";
format sex sexfmt.;
format time mmddyy10.;
input z y$ x sex time@@;
cards;
1 a 2 1 2000
1 b 3 2 1000
2 c 4 1 3000
;
run;

补充两个要求，有format的数值型转成format格式的字符型变量，日期型数值变量转成mmddyy10.格式的字符型变量。

。。  先吃饭，回头给你看。。

proc format;
         value sexfmt 1='男' 2='女';
run;

data aaa;
label x="编号" z="值";
format sex sexfmt.;
format time mmddyy10.;
input z y$ x sex time@@;
cards;
1 a 2 1 2000
1 b 3 2 1000
2 c 4 1 3000
;
run;

data test;
     set sashelp.vcolumn;
         where libname="WORK" and memname="AAA";
         length code $100;
         if type="num" then do;
            if missing(format) then code=cat(strip(name),"=put(",strip(name)||"_1",",best.-l);");
                else   code=cat(strip(name),"=put(",strip(name)||"_1,",strip(format)||"-l);");
        end;
        else if type="char" then code= cat(strip(name),"=",strip(name)||"_1;");
run;

proc sql noprint;
    select strip(name),
           strip(name)||"="||quote(strip(label)||" "),
           strip(name)||"="||strip(name)||"_1" ,
                   strip(code)
    into : name separated by " ",
          : label separated by " ",
           : rename separated by " ",
                   : code separated by ""
      from test;
quit;


data transform;
    label &label;
    set aaa(rename=(&rename));
    &code
        keep &name;
run;

1. case
   
2.        when format=" " then cats("__",name,"=strip(put(",name,",best.));")
   
3.        else cats("__",name,"=strip(put(",name,",",format,"));")
   
4. end,

复制代码

主要改的这一句。

如有好的想法，继续奖励！