1转换为000001，怎么写程序呀？在线等。。。

各位大师：
现在有一些数字

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

想把他们变成六位的，前面加0 该怎么处理呀，当然数据量很大，并且是不连续的。。

data a;
input x$6.;
cards;
2
34
098
;
run;
proc sql;
update a
set x=repeat('0',5-length(compress(x)))||x where length(x) lt 6;
quit;

得看是在哪里，不同的编程环境是不一样的，excel是最容易实现的。

谢谢，想用SAS来实现

1# sun_man
若是在excle中，右击/设置单元格格式/数字/分类选：邮编/确定

1# sun_man

If those inputs are numeric, even further the inputs are char, the following code works, but maybe with some notes:

1. 
   
2. data Dset;
   
3. input num;
   
4. cards;
   
5. 2
   
6. 34
   
7. 098
   
8. ;
   
9. run;
   
10. data _null_;
    
11. set Dset;
    
12. if . <0 +num < 1000000 then char =substr(put(1000000+num, 7.), 2.);
    
13.   else do;
    
14.       _error_ =0;
    
15.       put '***attention on too big number or bizzare inputs***';
    
16.   end;
    
17. putlog @1 num = @10 char =;
    
18. run;

复制代码

SAS has a format zw.d     w, d are integers. See example below.

Zw.d Format

--------------------------------------------------------------------------------

Writes standard numeric data with leading 0s Category: Numeric  
Alignment: right  



1    data _null_;
2       do i= 1 to 5;
3          put i= i= z6.;
4        end;
5    run;

i=1 i=000001
i=2 i=000002
i=3 i=000003
i=4 i=000004
i=5 i=000005
NOTE: DATA statement used (Total process time):
      real time           0.45 seconds
      cpu time            0.00 seconds

[b]对变量名加输出格式，为Z6.，如数字变量为number1， 在输出时写成  number1 z6.即可。

谢谢各位，热心的人

bobguy 发表于 2009-11-27 03:41
SAS has a format zw.d     w, d are integers. See example below.

Zw.d Format

--------------------------------------------------------------------------------

Writes standard numeric data with leading 0s Category: Numeric  
Alignment: right  



1    data _null_;
2       do i= 1 to 5;
3          put i= i= z6.;
4        end;
5    run;

i=1 i=000001
i=2 i=000002
i=3 i=000003
i=4 i=000004
i=5 i=000005
NOTE: DATA statement used (Total process time):
      real time           0.45 seconds
      cpu time            0.00 seconds

个人感觉这个答案更好，简单明了。用最少的代码做最多的事~~~~