[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
可否先把小数点向后推几位先变成整数,对整数计算完之后再转换为小数呢?~
心绪平和,眼藏静谧。

TOP

来一个不通用的,先化为整数~
  1. @Echo Off & setlocal EnableDelayedExpansion
  2. Echo Job        Money>tmp.xls
  3. For /F "skip=1 tokens=1,2*" %%a in (test.xls) do (
  4.       If "%%c" neq "" (
  5.           set "sep="
  6.           Echo %%b[tab]%%c
  7.           set "num=%%c000" & set "num=!num:.=!"
  8.           If "!num:~,1!" equ "-" (set "sep=-" &set "num=!num:-=!")
  9.           set "num=!sep!!num:~,4!"
  10.           set /a _%%a += num
  11.           ) else (
  12.           Echo %%a:total[tab]!_%%a:~0,-2!.!_%%a:~2!
  13.      )
  14. )>>tmp.xls
复制代码

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

评分人数

    • batman: 代码还是够简洁的PB + 5
心绪平和,眼藏静谧。

TOP

返回列表