嘿嘿，你可以在记事本里面 用一下 编辑->替换啊

[em01]

右键点数据编辑的页面——font，选择合适的格式。

/*录入数据*/
input str6 x
001.19
001.21
001.22
001.39
001.41
001.49
001.51
001.52
001.9
025.3
041.1
041.2
042.1
042.2
043.0
045.1
045.3
045.91
045.92
045.93
045.99
054.84
054.85
054.87
054.88
054.89
057.71
end
/*替换小数点*/
local h=length(x)
forvalues i=1/`h' {
replace x=substr(x,1,`i'-1)+substr(x,`i'+1,`h'-`i') if substr(x,`i',1)=="."
}
/*结束*/

另一种处理方法：

clear
input str6 x
001.19
001.21
001.22
001.39
001.41
001.49
001.51
001.52
001.9
025.3
041.1
041.2
042.1
042.2
043.0
045.1
045.3
045.91
045.92
045.93
045.99
054.84
054.85
054.87
054.88
054.89
057.71
end

split x, parse(.)
gen y = x1+x2

*=========结果===============

. list

     +---------------------------+
     |      x    x1   x2       y |
     |---------------------------|
  1. | 001.19   001   19   00119 |
  2. | 001.21   001   21   00121 |
  3. | 001.22   001   22   00122 |
  4. | 001.39   001   39   00139 |
  5. | 001.41   001   41   00141 |
     |---------------------------|
  6. | 001.49   001   49   00149 |
  7. | 001.51   001   51   00151 |
  8. | 001.52   001   52   00152 |
  9. |  001.9   001    9    0019 |
 10. |  025.3   025    3    0253 |
     |---------------------------|
 11. |  041.1   041    1    0411 |
 12. |  041.2   041    2    0412 |
 13. |  042.1   042    1    0421 |
 14. |  042.2   042    2    0422 |
 15. |  043.0   043    0    0430 |
     |---------------------------|
 16. |  045.1   045    1    0451 |
 17. |  045.3   045    3    0453 |
 18. | 045.91   045   91   04591 |
 19. | 045.92   045   92   04592 |
 20. | 045.93   045   93   04593 |
     |---------------------------|
 21. | 045.99   045   99   04599 |
 22. | 054.84   054   84   05484 |
 23. | 054.85   054   85   05485 |
 24. | 054.87   054   87   05487 |
 25. | 054.88   054   88   05488 |
     |---------------------------|
 26. | 054.89   054   89   05489 |
 27. | 057.71   057   71   05771 |
     +---------------------------+

[此贴子已经被作者于2008-8-23 10:45:52编辑过]

[此贴子已经被作者于2008-8-23 13:03:01编辑过]