如何获取某数值变量的实际数值长度

求助各位大神一个问题：

基本目标：想要获得某数值变量的实际长度。
例如：2.3   34.4   4   4.55   12.34  则按照最长的那个值12.34返回：4.2

打算用 retain + length + max 取得所有观测的最大长度；打算用 length - find . 获得小数位数。

遇到的困难是：length方法必须用在字符型变量，而若使用put方法转换时，需要指定转换格式。
而且又不希望直接用compress强行转化，会有强转提示，如此陷入困境。

请问各位，有无解法？谢谢。

1. data in;
   
2. input a b @@;
   
3. cards;
   
4. 2.3 3 3.4 4 13.2 2 2 2 23.33 4
   
5. ;
   
6. run;
   
7. 
   
8. data out;set in;retain length 1;
   
9.   length=max(length,length(compress(a,.)));   run;

复制代码

自己已写好，贡献出来，也许会有人要用：

1. %Macro TF_JD(TF_JD_DS=,TF_JD_VAR=);
   
2.   %let dsid=%sysfunc(open(&TF_JD_DS.));  
   
3.   %let TF_JD_R=%sysfunc(vartype(&dsid,%sysfunc(varnum(&dsid,&TF_JD_VAR.))));
   
4.   
   
5.   data _NULL_;set &TF_JD_DS. end=last;
   
6.     retain TF_JD_Temp111 0 TF_JD_Temp222 0;
   
7.   
   
8.     %if &TF_JD_R. eq C %then %do;
   
9.       &TF_JD_VAR.1=input(&TF_JD_VAR.,best.);%end;
   
10.     %else %do;&TF_JD_VAR.1=&TF_JD_VAR.;%end;
    
11.   
    
12.     TF_JD_Temp1=intz(&TF_JD_VAR.1);
    
13.     TF_JD_Temp2=&TF_JD_VAR.1-TF_JD_Temp1;
    
14.   
    
15.     TF_JD_Temp11=length(strip(put(TF_JD_Temp1,best.)));
    
16.     TF_JD_Temp22=length(strip(compress(put(TF_JD_Temp2,best.),'-')))-2;
    
17.   
    
18.     TF_JD_Temp111=max(TF_JD_Temp11,TF_JD_Temp111);
    
19.     TF_JD_Temp222=max(TF_JD_Temp22,TF_JD_Temp222);
    
20.   
    
21.     if last then call symputx('TF_JD_R',
    
22.             strip(put(TF_JD_Temp111+TF_JD_Temp222,best.))||'.'||strip(put(TF_JD_Temp222,best.)));
    
23.   run;
    
24. %Mend TF_JD;
    
25. 
    
26. data b;
    
27.   c='1.234';output;
    
28.   c='-12.3';output;
    
29.   c='1.3';output;
    
30. run;
    
31. 
    
32. %TF_JD(TF_JD_DS=b,TF_JD_VAR=c);
    
33. %put >>>%sysevalf(&TF_JD_R.+1)<<<;

复制代码

1. data in;
   
2. input a @@;
   
3. cards;
   
4. 2.3 3 311.4 4 13.2 2 2 2 23.33 4 1393.234
   
5. ;
   
6. run;
   
7. 
   
8. data out;
   
9.     set in;
   
10.     retain  max_int max_dec max_len;
    
11.       int_len = int(log10(a))+1;
    
12.       dec_len = length(scan(a, 2, '.'));
    
13.            LL = int_len + dec_len + 1;
    
14.           fff = cats(LL, '.', dec_len);
    
15.      if Int_len > max_int then max_int = int_len;
    
16.      if dec_len > max_dec then max_dec = dec_len;
    
17.           if LL > max_len then max_len = LL;
    
18. run;
    
19. proc print data=out; title 'out'; run;

复制代码

yongyitian 发表于 2013-10-20 12:39

感谢！！

scan(a, 2, '.')还有强转NOTE，不过int（）给了我很大的提示，我记得还有一个取小数的方法。

采纳你了。

看看

Tigflanker 发表于 2013-10-20 13:21
感谢！！

scan(a, 2, '.')还有强转NOTE，不过int（）给了我很大的提示，我记得还有一个取小数的方法。 ...

1. data test;
   
2.   input a;
   
3.   do dec_len = 1 by 1 until(d<1.0E-12);
   
4.    p= 10**dec_len;
   
5.    d = a*p - int(a*p);
   
6.   end;
   
7.   put a=  dec_len=;
   
8.   drop p d;
   
9. datalines;
   
10. 1.1
    
11. 1.12
    
12. 1.123
    
13. 1.1234
    
14. 1.12345
    
15. 1.123456
    
16. ;run;

复制代码

1. data out;
   
2.     retain _in _dn fmt;
   
3.     if _n_=1 then do until(last);
   
4.         set in end=last;
   
5.         _re=prxparse('/(\d*)\.?(\d*)/');
   
6.         if prxmatch(_re,strip(put(a,best32.))) then do;
   
7.             call prxposn(_re,1,_p,_l1);
   
8.             call prxposn(_re,2,_p,_l2);
   
9.         end;
   
10.         _in=max(_in,_l1);
    
11.         _dn=max(_dn,_l2);
    
12.         fmt=catx('.',sum(_in,_dn,1),_dn);
    
13.     end;
    
14.     set in;
    
15.     drop _:;
    
16. run;

复制代码

结果怎么一个都看不懂

请问哪个函数可以直接读取数值型变量的长度啊？

mark8865 发表于 2015-7-6 14:39
请问哪个函数可以直接读取数值型变量的长度啊？

如果你指的是变量本身的长度，用vlength、vformat、vinformat即可

如果你指的是这个变量里的值，最大的是?.?(例如12.4)，那可能没直接的方法。

Tigflanker 发表于 2015-7-6 15:17
如果你指的是变量本身的长度，用vlength、vformat、vinformat即可

如果你指的是这个变量里的值，最大的 ...

谢谢你的帮助，最近在弄数据，新手一枚，遇到好多问题。