【练习-033】计算并重写xls文件

batman

出题目的：
       通过解题熟练掌握数值计算的技巧以及重写文件的技巧
加分原则：
       1、完美代码加分15分
       2、思路独特基分5分
       2、代码高效基分4分
       3、代码简洁基分3分
       4、代码通用基分2分
       5、无临时文件基分1分
题目如下：
       有一test.xls文件，原文件及内容如下

链接: https://pan.baidu.com/s/12E6O0w67T1_0MPO-mS2lTQ?pwd=bsk7

      要求通过批处理计算表中各人的工资总和(结果保留两位小数，填写在total后的空格里)，并改写test.xls如下图

相关说明：
       1、本题说难不难说容易却不是那么简单，在数值计算上有很多要考虑的问题，大家细心应答了。
       2、暂请版主们不要贴代码，但可以跟贴做提示和指导。

jains521

@echo off & setlocal enabledelayedexpansion
cd.>_new.xls
::解题思路为提升小数为整数
for /f "tokens=1,2,3 delims=	" %%i in (test.xls) do (
	if "%%j" equ "total" (
		echo %%i	%%j	!_%%i:~0,-2!.!_%%i:~-2!>>_new.xls
	) else (
		echo %%i	%%j	%%k>>_new.xls
		set _tmp=%%k
		set /a _decimal=!_tmp:.=*0+!
		set /a "_%%i+= _decimal + _tmp*100"
	)
)
pause
复制代码

jains521

加减法的运算就按照大数的写法就行了.
小数点后面补0到相等长度.在计算. 判断是否有进位.之后在处理整数..整数我想个人的工资不会有超过8位数的人才吧.
所以整体思路. 区分整数和小数,,小数补0至2数相等长度.在按大数四则计算小数.

qlcom

原帖由 batman 于 2008-12-19 08:19 发表

set/a m=n+2 兄弟可以仔细看下文件是没有规律的，但你这种方法确是可取的，利用xls的函数公式，好!为这思路加分。

谁说没规律,total占一行(而去掉第一行后,除了total所在的行以外都要参加计算),下一个计算起点比起上一个计算终点的行数刚好相差2,顺便麻烦楼主帮我在本版求问的帖子解下锁,谢谢!

batman

原帖由 qlcom 于 2008-12-18 20:01 发表
@echo on &setlocal enabledelayedexpansion
set/a m=2,n=-1
for /f "tokens=1-3 delims=        " %%i in (test.xls) do (
        set/a n+=1
        if !n!==0 (>test.xls echo %%j        %%k) else (
    ...

set/a m=n+2 兄弟可以仔细看下文件是没有规律的，但你这种方法确是可取的，利用xls的函数公式，好!为这思路加分。

qlcom

@echo on &setlocal enabledelayedexpansion
set/a m=2,n=-1
for /f "tokens=1-3 delims=        " %%i in (test.xls) do (
        set/a n+=1
        if !n!==0 (>test.xls echo %%j        %%k) else (
                if "%%j"=="total" (
                >>test.xls echo %%i:%%j        =sum(b!m!:b!n!^)
                set/a m=n+2
                ) else (
                >>test.xls echo %%j        %%k
                )
        )
)
exit
复制代码

echo以及delims后面的空格都是一个TAB字符.顺便问问各位老大,怎么用p把数据写进已经排版的xls文件(比如居中,改变了列宽等)中呢?

[ 本帖最后由 qlcom 于 2008-12-18 20:15 编辑 ]

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 编辑 ]

batman

原帖由 terse 于 2008-12-15 23:17 发表
学习了 先计算位数  这样小数可以不考虑其位数
@echo off&setlocal enabledelayedexpansion
for /f "tokens=1-3 delims=        " %%a in ('type test.xls') do (
  if not defined flag (
    echo %%b         ...

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

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
       )
     )
   )
 )
复制代码

shqf

二位版主的代码还真简洁，又一次学习了。

batman

本人认为在数值加减计算上用delims=.将数值分为两个部分来计算比较合适，但在数值乘除计算上还是将数值先化为整数来计算再化为小数较为合适。

pusofalse

来一个不通用的，先化为整数~

@Echo Off & setlocal EnableDelayedExpansion
Echo Job        Money>tmp.xls
For /F "skip=1 tokens=1,2*" %%a in (test.xls) do (
      If "%%c" neq "" (
          set "sep="
          Echo %%b[tab]%%c
          set "num=%%c000" & set "num=!num:.=!"
          If "!num:~,1!" equ "-" (set "sep=-" &set "num=!num:-=!")
          set "num=!sep!!num:~,4!"
          set /a _%%a += num
          ) else (
          Echo %%a:total[tab]!_%%a:~0,-2!.!_%%a:~2!
     )
)>>tmp.xls
复制代码

[ 本帖最后由 pusofalse 于 2008-12-15 00:06 编辑 ]

batman

此题难道就这么难吗？技术组的也没看见几个来接招的！贴出本人的解，大家测试时请将标注为[TAB]的地方改为制表符：

@echo off&setlocal enabledelayedexpansion
for /f "tokens=1-3" %%a in ('type test.xls') do (
     if not defined flag (
       echo %%b[TAB]%%c>test.xls&set "flag=a"
       ) else (
       if "%%c" neq "" (
         for /f "tokens=1,2 delims=." %%i in ("%%c") do (
              set "a=%%i"&set "b=%%j00"&set "+=+"
              if "!a:~,1!" equ "-" set "+=-"
              set /a num1!+!=!a:-=!,num2!+!=1!b:~,2!%%100
              if !num2! geq 100 set /a num2-=100,num1+=1
              if !num2! lss 0 set /a num2+=100,num1-=1
              if !num2! lss 10 set "num2=0!num2!"
         )
         echo %%b[TAB]%%c>>test.xls
         ) else (
         echo %%a:%%b[TAB]!num1!.!num2!>>test.xls&set /a num1=0,num2=0
      )
    )
) 
复制代码

[ 本帖最后由 batman 于 2008-12-16 17:24 编辑 ]

shqf

@echo off&setlocal enabledelayedexpansion
for /f "skip=1 tokens=1,2,3 delims=	" %%a in (test.xls) do (
  if not defined flag >test.xls echo job	money
  set flag=1
  if "%%b"=="total" (
    >>test.xls echo %%a:%%b	!total:~0,-5!.!total:~-5!
    set total=0) else (
    >>test.xls echo %%b	%%c
    call :count %%c
    set /a total=!total!+!money!
  )
)
test.xls
exit

:count
for /f "tokens=1,2 delims=." %%i in ("%1") do (
  set money=%%j00000
  set money=!money:~0,5!
  set money=%%i!money!
)
goto :eof
复制代码

小数计算部分略作改善，5位小数内可行。其他地方不知如何再精简了。

batman

楼上的兄弟还请注意代码的书写规范，分清层次，切不可写在一堆，同时代码还可简化。

[ 本帖最后由 batman 于 2008-12-14 10:45 编辑 ]