如何自动识别将数据库中字符型变量批量变为数值型变量

data a;
input id name$ drgif$ dn msd$;
cards;
1 zhang 1  1  白细胞
2 li         2  1  红细胞
3 chen  2  2  1个
;
run;
请教各位高手，如何在数据库中将字符型变量批量转化为数值型变量？如数据库所示，如果变量所有值都是数字的统一改为数值型变量。感谢！

andy162639 发表于 2015-6-18 17:21
不要意思，刚才理解错误，您的macro是可以的，还有个问题，比如数据库中某个变量绝大部分都是数字，但有 ...

1. data a;
   
2. input id name $ drgif $ dn msd $;
   
3. cards;
   
4. 1 NGN    1  1  白细胞
   
5. 2 NEC   NE  1  红细胞
   
6. 3 NG    NG  2  1个
   
7. ;
   
8. run;
   
9. 
   
10. %macro zhuan(in = ,out = );
    
11. %let rc = %sysfunc(open(&in.(keep = _char_)));
    
12. %let cn = %sysfunc(attrn(&rc.,nvars));
    
13. %let rc = %sysfunc(close(&rc.));
    
14. 
    
15. data &out.;
    
16.   set &in.(in = in) &in. end = last;
    
17. 
    
18.   array allchar _char_;
    
19.   array newchar newchar1 - newchar&cn.;
    
20.   array tmpchar $ tmpchar1 - tmpchar&cn.;
    
21.   array temp temp1 - temp&cn.;
    
22.   retain temp;
    
23. 
    
24.   prx = prxparse('/[^\d\.\s\-]/');
    
25.   if last then call execute('data &out.(drop = tmp:);set &out;');
    
26.   do over allchar;
    
27.     tmpchar = ifc(upcase(allchar) in ('NE','NG'),'',allchar);
    
28.     if in then temp = max(temp,prxmatch(prx,tmpchar));
    
29.           else if ~temp then newchar = input(tmpchar,best.);
    
30.         if last then do;
    
31.       if ~temp then call execute(cat('drop ',vname(allchar),';rename ',vname(newchar),' = ',vname(allchar),';'));
    
32.             else call execute(cat('drop ',vname(newchar),';'));
    
33.         end;
    
34.   end;
    
35.   if last then call execute('run;');
    
36. 
    
37.   if ~in;
    
38.   drop temp: prx;
    
39. run;
    
40. %mend zhuan;
    
41. 
    
42. %zhuan(in = a, out = b);

复制代码

如此来说，你需要增加一数组的变量了；因为对于NG、NE，万一其他指标也有的话，也是不应被转换的。

我考虑过对于整个col，只有NG、NE和数值的情况，才进行转换。

你应该是药厂或者CRO的兄弟吧，虽然NG、NE不会出现在名称指标中，不过还是要谨慎些。

input语句可以实现，但是我没有试过，再说你这都是文字？还怎么转？转ASCII？

不是，带文字的不需要转，只是转所有全部都是数字的变量，我放一些带文字的变量意思是数据库里需要转的变量不是连着的

if anyalpha(msd)=0 then msd_n=input(msd,best.); 也可以写正则判断，更准确

extension 发表于 2015-6-18 13:53
if anyalpha(msd)=0 then msd_n=input(msd,best.); 也可以写正则判断，更准确

这样只是一个一个判断，怎么批量判断呢？

有意思，占位待编辑，以前宏中写过

当时是把整个数据集的整个字符型数值遍历测试了一边，总感觉效率也是有点差

1. data a;
   
2. input id name $ drgif $ dn msd $;
   
3. cards;
   
4. 1 zhang 1  1  白细胞
   
5. 2 li    2  1  红细胞
   
6. 3 chen  2  2  1个
   
7. ;
   
8. run;
   
9. 
   
10. %macro zhuan(in = ,out = );
    
11. %let rc = %sysfunc(open(&in.(keep = _char_)));
    
12. %let cn = %sysfunc(attrn(&rc.,nvars));
    
13. %let rc = %sysfunc(close(&rc.));
    
14. 
    
15. data &out.;
    
16.   set &in.(in = in) &in. end = last;
    
17. 
    
18.   array allchar _char_;
    
19.   array newchar newchar1 - newchar&cn.;
    
20.   array temp temp1 - temp&cn.;
    
21.   retain temp;
    
22. 
    
23.   prx = prxparse('/[^\d\.\s\-]/');  /*sorry，还有负号漏了*/
    
24.   if last then call execute('data &out.;set &out;');
    
25.   do over allchar;
    
26.     if in then temp = max(temp,prxmatch(prx,allchar));
    
27.           else if ~temp then newchar = input(allchar,best.);
    
28.         if last then do;
    
29.       if ~temp then call execute(cat('drop ',vname(allchar),';rename ',vname(newchar),' = ',vname(allchar),';'));
    
30.             else call execute(cat('drop ',vname(newchar),';'));
    
31.         end;
    
32.   end;
    
33.   if last then call execute('run;');
    
34. 
    
35.   if ~in;
    
36.   drop temp: prx;
    
37. run;
    
38. %mend zhuan;
    
39. 
    
40. %zhuan(in = a, out = b);

复制代码

Tigflanker 发表于 2015-6-18 16:35
有意思，占位待编辑，以前宏中写过

当时是把整个数据集的整个字符型数值遍历测试了一边，总感觉效率也是 ...

还有点问题，您的macro跑完后，应该保留的字符型变量都变为缺失值了，怎么修改一下呢？

Tigflanker 发表于 2015-6-18 16:35
有意思，占位待编辑，以前宏中写过

当时是把整个数据集的整个字符型数值遍历测试了一边，总感觉效率也是 ...

data a;
不要意思，刚才理解错误，您的macro是可以的，还有个问题，比如某个变量绝大部分都是数字，但有个别是NK或者其他标示，能否把这类变量中NK变为缺失，然后也转化为数值型呢？求教，不甚感激。

input id name $ drgif $ dn $ msd $;
cards;
1 zhang 1  1    白细胞
2 li        2  .     红细胞
3 chen  2  NK  1个
;
run;

andy162639 发表于 2015-6-18 17:08
还有点问题，您的macro跑完后，应该保留的字符型变量都变为缺失值了，怎么修改一下呢？

我这边正常的，你模拟调试一下。