如何批量将所有数值型变量转化成字符型？

如何批量将所有数值型变量转化成字符型？我写了下面程序，用array转化，还是不行，求解？

1. data a1;
   
2.   set a;
   
3.   array y[*] _numeric_;
   
4.   do i = 1 to dim(y);
   
5.     y[i]=put(y[i],$12.);
   
6.   end;
   
7. run;

复制代码

日志文件：

不需要用数组：
proc contents data=a1 out=cont noprint; run;

proc sql noprint;
select compress(name||'='||'_'||name) into: renames separated by' '
from cont
where type=1 ;

select compress(name||'=strip(put(_'||name||", $12.));")into: tochar separated by' '
from cont
where type=1 ;  
quit;

%put "content:  &tochar";

data a_new;
set a1 (rename=(&renames.));
&tochar;
drop _: ;
run;

需要重新定义一个数组X 然后再做循环  而且是 X[I]=put（Y[i],12.）

%let k=;/*insert number of numeric variables of your data set*/
data your_data(drop=i);
set your_data;
array num_all[*] _numeric_;
array char_all[*] $ char1 - char&k.;
do I=1 to DIM(num_all);
char_all[i]=put(num_all[i], $12.);
end;
run;

%let k=;/*insert number of numeric variables of your data set*/
data your_data(drop=i);
set your_data;
array num_all[*] _numeric_;
array char_all[*] char1 - char&k.;
do I=1 to DIM(num_all);

char_all[i]=put(num_all[i],12.);

end;
run;

z[i] = put(y[i], best.);  *z[i] is char;

1. data your_data;
   
2.         array num_all(*) num1-num10;
   
3.         drop i j;
   
4.         do i=1 to 10000;
   
5.                 do j=1 to dim(num_all);
   
6.                         num_all(j)=round(10000000*ranuni(i),0.01);
   
7.                 end;
   
8.                 output;
   
9.         end;
   
10. run;
    
11. 
    
12. data _null_;
    
13.         set sashelp.vtable;
    
14.         where libname="WORK" & memname="YOUR_DATA";
    
15.         call symput("K",left(num_numeric));
    
16. run;
    
17. 
    
18. 
    
19. data your_data;
    
20.         set your_data;
    
21.         array num_all[*] _numeric_;
    
22.         array char_all[*] $20. char1-char&k.;
    
23.         do i=1 to dim(num_all);
    
24.                 char_all[i]=compress(left(num_all(i)));
    
25.         end;
    
26.         drop i;
    
27. run;

复制代码

字符的长度根据你的需要可进行调整。

zhanglianbo35 发表于 2014-7-16 15:34
不需要用数组：
proc contents data=a1 out=cont noprint; run;

这个程须bugs太多。如果warning可以忍受的话，对小数自动取整就差不多是错误的。京剧

jingju11 发表于 2014-7-17 11:21
这个程须bugs太多。如果warning可以忍受的话，对小数自动取整就差不多是错误的。京剧

strip(put(_'||name||", $12.));")
这个是可以改成  strip(put(_'||name||", best.));") 的，我看提问的那个人是需要写成 $12。

zhanglianbo35 发表于 2014-7-17 21:34
strip(put(_'||name||", $12.));")
这个是可以改成  strip(put(_'||name||", best.));") 的，我看提问的 ...

他原始哪个语句根本没有搞清format的定义和类型.
另外如果某些数据型变量名以_ 起始,也有问题把.
京剧