如何把数据集中的数值型全部变为字符型2

proc format;
value yf 1="m"
         2="f";
run;

data aaa;
input x z$ y b$ a;
label y="sex";
attrib a format=MMDDYY10.;
cards;
1 b 1 c 1
2 e 2 d 2
;
run;


/* yf为y的format
    a的format为 MMDDYY10.
*/

数据集中有字符型 也由数值型，目的把数据集中的数值型全部变为字符型
要求：1.变量名不变
         2.变量顺序不变。
         3.如果存在对应的format，则变成format的值
         4.最好数据集名也不变。
         5.用macro实现。

程序要通用哦！希望得到的结果类似下图


谢谢！

1. proc format;
   
2. value yf 1="m"
   
3.          2="f";
   
4. run;
   
5. 
   
6. data aaa;
   
7. input x z$ y b$ a;
   
8. label y="sex";
   
9. attrib a format=MMDDYY10.
   
10.         y format=yf.;
    
11. cards;
    
12. 1 b 1 c 1
    
13. 2 e 2 d 2
    
14. ;
    
15. run;
    
16. 
    
17. %macro tochar(in=, out=);
    
18. %local i j N tmp1;
    
19. data;stop;run;        %let tmp1 = %substr(&syslast,6);
    
20. 
    
21. proc contents data=&in out=&tmp1 noprint;
    
22. proc sql noprint;
    
23.         select count(*) into :N from &tmp1;
    
24.         %let N=&N;
    
25.         %do i=1 %to &N;
    
26.                 %local varname&i vartype&i varformat&i;
    
27.         %end;
    
28.         select name, type into :varname1-:varname&N, :vartype1-:vartype&N
    
29.                 from &tmp1 order by varnum;
    
30. quit;
    
31. data _null_;
    
32.         if 0 then set ∈
    
33.         %do i=1 %to &N;
    
34.                 call symputx("varformat&i", vformat(&&varname&i));
    
35.         %end;
    
36.         stop;
    
37. run;
    
38. proc sql;
    
39. create table &out as
    
40.         select
    
41.         %do i=1 %to &N;
    
42.                 %if &&vartype&i=1 %then put(&&varname&i, &&varformat&i) as &&varname&i; %else &&varname&i;
    
43.                 %if &i<&N %then ,;
    
44.         %end;
    
45.         from &in;
    
46. quit;
    
47. proc datasets nolist;
    
48.         delete &tmp1;
    
49. quit;
    
50. %mend;
    
51. 
    
52. %tochar(in=aaa, out=bbb)

复制代码

楼主这样的高人应该雇个人帮你搞定这样的小事。

谢谢！

邓贵大 发表于 2014-1-27 03:40
楼主这样的高人应该雇个人帮你搞定这样的小事。

谢谢邓兄！春节快乐！
论坛高手很多，代码写得非常好！多请教，多学习！

macro中如何先对日期格式进行判断呢？ 从而更改为另外的日期格式。

Why don't you just assign the desired Date format to the variable in the first place? It's not worth the extra effort coding a macro.
There are only two data types in SAS - chars or numbers, but not dates. Dates are simply numbers ranging from A.D. 1582 to A.D. 19,900. It's also a lot of hassle to tell if a format is a date format in SAS code because of the existence of numerous built-in data formats and the customized picture/nesting (date) formats.

如果想要解决问题，但不需要解决的漂亮
可以先把数据集导出至外部的txt或csv文件
然后再导入至SAS
导入的时候设置所有变量都是字符型就好了

Not macro.

proc format;
value yf 1="m"
         2="f";
run;

data aaa;
input x z$ y b$ a;
label y="sex";
format y yf.;
attrib a format=MMDDYY10.;
cards;
1 b 1 c 1
2 e 2 d 2
;
run;


proc sql;
  select name into:varslist separated by ' ' from sashelp.vcolumn where libname='WORK' and memname='AAA';

data _null_;
   set sashelp.vcolumn;
   where libname='WORK' and memname='AAA';
   if type='num' then do;
      if not missing(format) then call symput("fmt",trim(left(format)));
                else call symput("fmt",'8.');
                call symput("lab",trim(left(label)));
             call execute(
'data aaa;
retain &varslist;
set aaa ;
   _'||name||'=put( '||strip(name)||',&fmt);
drop '||name||';
label _'||strip(name)||'="&lab  ";

rename _'||strip(name)||'='||strip(name)||';
run;');
      end;
  run;

farmman60 发表于 2014-1-27 10:09
Not macro.

proc format;

good！

farmman60 发表于 2014-1-27 10:09
Not macro.

proc format;

NOTE: 逻辑库“MAPSGFK”中的映射数据集基于 GfK GeoMarketing
      中的数字映射，且要受其版权控制。有关详细信息，请参见
      http://support.sas.com/mapsonline/gfklicense。
NOTE: 从数据集 SASHELP.VCOLUMN. 读取了 5 个观测
      WHERE (libname='WORK') and (memname='AAA');
NOTE: “DATA 语句”所用时间（总处理时间）:
      实际时间          11.37 秒
      CPU 时间          1.35 秒

能否不用SASHELP.VCOLUMN？ 谢谢！