terse

学习了 先计算位数  这样小数可以不考虑其位数

@echo off&setlocal enabledelayedexpansion
for /f "tokens=1-3 delims=        " %%a in ('type test.xls') do (
  if not defined flag (
    echo %%b                %%c>test.xls&set "flag=a"
     ) else (
       if "%%c"=="" (
       for /l %%d in (1 1 !n!) do set mn=!mn!0
         for %%d in (!var1!) do (
             set/a t+=1
             set var2=%%d!mn!
             call set var2=%%var2:~,!n!%%
             >>test.xls call echo %%.!t!%%
             call set/a num+=%%_!t!%%!var2!
             )
       call set num=%%num:~,-!n!%%.%%num:~-!n!%%
       >>test.xls echo %%a:%%b        !num!
    for %%i in (n m var1 num mn t) do set %%i=
  ) else (
    for /f "tokens=1* delims=." %%i in ("%%c") do (
       set /a m+=1
         set "_!m!=%%i"
           set ".!m!=%%b                %%c"
           if not "%%j"=="" (
           set var1=!var1! %%j
           for /f "delims=:" %%l in ('^(echo %%j^&echo.^)^|findstr /o ".*"') do set/a s=%%l-3
           if !s! gtr !n! set/a n=s
         ) else set var1=!var1! 0
       )
     )
   )
 )
复制代码

terse

原帖由 batman 于 2008-12-16 17:20 发表

trese兄是不是写得复杂了点。。。。

确实如兄所言  
计算位数 且分步了 然后补位  
效率都给了计算位数  不考虑位数代码效率似乎可提高些许
发个 小数点后5位的

@echo off&setlocal enabledelayedexpansion
for /f "tokens=1-3 delims=    " %%a in ('type "test.xls"') do (
  if not defined flag (
     echo %%b        %%c>test.xls&set "flag=a"
     ) else (
       if "%%c"=="" (
       >>test.xls echo %%a:%%b    !num:~,-5!.!num:~-5!
       set num=
     ) else (
       >>test.xls echo %%b        %%c
       set str=%%c
       set str1=!str:*.=!
       if "!str1!"=="%%c" set str1=
       call set str2=%%str:.!str1!=%%
       set str1=!str1!00000
       set str1=!str1:~,5!
       set/a num+=!str2!!str1!
     )
   )
 )
pause
复制代码

[ 本帖最后由 terse 于 2008-12-16 22:23 编辑 ]