一个比较好的字符转数值宏

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

字符转数值谁都会，×1、+0都可以的嘛，但是因为他人导入错误几十个甚至几百个数值类型都错了呢？挨个去加减乘除？
还有就是那些含有非数值内容的变量一加减乘除信息就减少了，如有的是upper、<0.02等这些信息都是有用的不能全部删除，怎么办？有我在研究生时没事写的小程序基本可以实现全数值内容字符变量转数值。望诸君斧正。

1. /*windows xp系统sas9.13下测试可用。
   
2. 功能：
   
3. 1.出所有的纯数字的字符类型变量并将其转化为数值变量
   
4. 2.将转化后的数据集以原始数据集的顺序存储
   
5. 3.找出所有进行过转化的变量的变量名、位置、标签名等存储到chavn数据集中
   
6. */
   
7. 
   
8. %macro d(data=,out=&data,chavn=);
   
9. /*data为需转换的数据集名，如果不在work库中，需给出逻辑库名称，如“sasuser.jd”。
   
10. out是转换后的数据集名，不指定默认替换原始数据集，为求保险不推荐使用替换原始数据集的方式。
    
11. chavn是规定将所有含有非数值字符的字符型变量名输出到chavn数据集中，此数据集含有原始变量名，变量在out中的位置及标签名,这只是为了查看到底哪些变量进行了转换，可以省略 。
    
12. */
    
13. %let data=%upcase(&data);
    
14. %let a=%scan(&data,1,'.');
    
15. %let b=%scan(&data,2,'.');
    
16. %if &b= %then %do;
    
17.         %let a=WORK;
    
18.         %let b=&data;
    
19.         %let data=WORK.&b;
    
20. %end;/*分别取库名及数据集名称，a为库名，b为集名*/
    
21. 
    
22. data _TMP_;
    
23. set &data;
    
24. run;/*保留原始数据集，特别是在out不等于data时，保留原始数据在工作中很重要。*/
    
25. 
    
26. proc sql noprint ;
    
27. select upcase(name) into :var separated by ' '
    
28. from dictionary.columns
    
29. where libname="&a" and memname="&b";
    
30. quit;
    
31. /*取原始数据中变量的顺序，将变量依照原始顺序存入宏变量var。使转换后仍按此顺序排列*/
    
32. 
    
33. 
    
34. proc sql ;
    
35. create table char as
    
36. select * from &data (keep= _character_ );
    
37. run;/*取原始数据集中所有字符变量组成数据集*/
    
38. 
    
39. proc contents data=char position out=content(keep=name varnum) noprint;
    
40. run;/*取字符型数据集中变量名*/
    
41. 
    
42. proc sort data=content;
    
43. by varnum;
    
44. proc sql noprint;
    
45. select name into: name separated by ' '
    
46. from content order by varnum;
    
47. select 'T_'||compress(name)||'_1' into: name_1 separated by ' '
    
48. from content order by varnum;
    
49. quit;/*将字符型数据集中的变量名按序存入name宏变量，同时产生两列新变量用于存放中间结果*/
    
50. 
    
51. %let s=&sqlObs;/*sqlobs是指sql步骤中的读入的记录数。此处赋值给宏变量s，因为后面还有sql步。
    
52. 也可将“select name into: name separated by ' '”改为“select name，count(*) into: name separated by ' ',: s”*/
    
53. 
    
54. 
    
55.         DATA _Tmp_;
    
56.         set _TMP_;
    
57.         %do i=1 %to &sqlobs ;
    
58.     %let cha&i=%scan(&name,&i);        /*cha&i变量读入原始变量。*/
    
59.     %let rr&I=%scan(&name_1,&i);        /*rr&i变量作为判断是否为字符的中间变量。0为数值，1为字符。*/
    
60.         &&rr&i=0;
    
61.         if compress(&&cha&I)='' then &&rr&i+0;
    
62.         else do;
    
63.                 if compress(&&cha&i,'.','d')=''  then &&rr&i+0;else &&rr&i+1;
    
64.         end;
    
65.     %end;
    
66.         RUN;
    
67. 
    
68. %do i=1 %to &sqlobs;
    
69. proc sql noprint ;
    
70. select max(&&rr&i) into :r&i
    
71. from _TMP_;
    
72. quit;
    
73. %end;/*计算各rr&i的最大值。*/
    
74. 
    
75. data _TMP_;
    
76. set _TMP_;
    
77. %let str=;
    
78. %do i=1 %to &s;
    
79.         %if &&r&i=0 %then %do;  
    
80.           %let e=%scan(&name,&i);
    
81.           %let e1=T_&e._2;
    
82.           &e1=&e*1;
    
83.           drop &e;
    
84.           rename &e1=&e;
    
85.         %end;
    
86.         %if &&r&i>0 %then %do;
    
87.         /*%put "含非数值的字符变量有：" %scan(&name,&i);*/
    
88.         %let str=&str. %scan(&name,&i);
    
89.         %end;
    
90. %end;
    
91. run;/*rr&i为0则转换变量类型，反之将所有的变量名以空格间隔输出到str宏变量中。*/
    
92. 
    
93. data _TMP_; set _TMP_;
    
94. drop  &name_1;
    
95. run;/*去掉宏变量rr&i所产生的所有变量。*/
    
96. 
    
97. data &out;
    
98. retain &var;
    
99. set _TMP_;
    
100. run;/*以原始顺序排列变量*/
     
101. 
     
102. proc delete data=char content _tmp_;
     
103. run;
     
104. 
     
105. %if &chavn^= %then %do;
     
106. proc contents data=&out(keep=&str) position out=&chavn(keep=name varnum label) noprint;
     
107. run;%end;
     
108. 
     
109. /*显示未转换的字符变量，需注意其中有的可能只有几个观测含有非数值字符，这种要自己转换*/
     
110. %put "不是全部都是数值的字符变量，如全为字母汉字或含有“<0.002”，此类变量为转换：";
     
111. %put &str;
     
112. 
     
113. %mend;
     
114. /*此程序基本满足我所说的要求：
     
115. 1.全部转换；
     
116. 2.转数不转值；
     
117. 3变量名及顺序不变（即除了变量类型变其他都不变。）
     
118. 4.将不能转的变量列出，方便查看哪些是部分记录含有字符的变量。
     
119. 最好能多一个宏参数使含字符值记录小于该限的输出，而不输出全部的含非数值的字符变量（如10000条记录中尿微量白蛋白可能有1000条是显示“<0.02”，那么这一个宏参数“0.5”就会把那些50%以上记录都是非数值的变量去掉，如此就会把一些变量如住址【基本都含数值】去掉不显示出来。而一些仅小部分记录含非数值内容的变量保留。）
     
120. 
     
121. 另此宏的缺点：
     
122. 1.如前所述缺一参数，我不打算加了。
     
123. 2.宏中会用到两个中间数据库：cha、_TMP_与content。使用前必须保证work中不含同名数据库才行。
     
124. 3.宏中使用了中间变量名'T_"原变量名"_1'、'T_"原变量名"_2'如果数据集中有同名变量的话会覆盖，建议事前查看好，事后注意原始数据库中的变量数与最终库中的变量数是否相等，不等说明有问题，只能麻烦先手改再用了。不过由于事先考虑到这个问题中间变量都是前面加“T_”、后面加"_1"/"_2",按理不会出现重名的情况。
     
125. 4.还是老问题效率效率。
     
126. 恳请牛人支援！！！！！
     
127. dahufa
     
128. 2009.10.2 2pm
     
129. */
     
130. 
     
131. 
     
132. 
     
133. /*下面是使用该宏的一个实例
     
134. %d(data=d.jd1,out=j,CHAVN=R);
     
135. 或
     
136. %d(data=d.jd1,out=j);
     
137. */

复制代码

好像后面有个改写版的丢掉了就这个凑活一下吧。海涵！

扫码加我 拉你入群

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

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

分享1 收藏12 回帖

关键词：contents position Content delete RETAIN 信息

收藏下，以备不时之需

不是很懂

字符转数值 收藏以备不时只需

收藏备用

Me too. Save just in case.