批处理把单位为KB的超大数转换为GB单位

随风

如 e 盘大小为 12346058067203134065432153  kb
要求换算出 有多少 G  ?

给个思路.

youxi01

借用小学数学计算时的 “借位思想”。
测试代码：

1. @echo off&setlocal EnableDelayedExpansion
   
2. set size=12346058067203134065432153
   
3. set num1=%size:~0,4%
   
4. set num2=%size:~4%
   
5. call :division %num1%
   
6. for /l %%i in (0 1 100) do (
   
7.    set num=!num2:~%%i,1!
   
8.    if "!num!"=="" goto :result
   
9.    call :division !var!!num!
   
10. )
    
11. 
    
12. :result
    
13. for /f "delims=0 tokens=*" %%i in ("!str!") do echo %%i
    
14. 
    
15. pause>nul
    
16. :division
    
17. set /a var=%1 %% 1024
    
18. set /a res_=%1/1024
    
19. set str=!str!!res_!

复制代码

不知道结果对不对罗

随风

结果基本正确,但还是不知道这是什么原理.
数学等于零
简化了一点,不知道还能不能更简洁?
:

1. @echo off&setlocal EnableDelayedExpansion
   
2. set size=19337576448&set "var=!size:~0,4!"
   
3. for /l %%i in (5 1 100) do (
   
4.    set var=!var!!size:~%%i,1!
   
5.    set /a "res_=var/1024,var=var%%1024"
   
6.    set "str=!str!!res_!"
   
7.    if "!size:~%%i,1!"=="" goto :result
   
8. )
   
9. :result
   
10. for /f "delims=0 tokens=*" %%i in ("!str!") do (
    
11.   set /a "var=%%i/1024/1024,yu=%%i%%1024"
    
12. )
    
13. echo !var!.!yu! G
    
14. pause>nul

复制代码

[ 本帖最后由 随风 于 2007-12-7 10:20 编辑 ]

youxi01

set /a "var=%%i/1024/1024,yu=%%i%%1024"

这里 加引号有什么用途?

随风

加不加一样的,

ieutk

我也来一个,相比楼上两位大大,我的代码好"复杂",都有点不好意思贴出来了

1. @echo off
   
2. set split=5
   
3. set zero=0000000000
   
4. for %%a in (C D E F G H I J K L M N O P Q R S T U V W X Y Z) do (
   
5.         if exist %%a:\ (
   
6.                 for /f "tokens=3 delims= " %%i in ('dir /-c %%a:\') do set size=%%i
   
7.                 setlocal enabledelayedexpansion
   
8.                 call :pd size-a size-b
   
9.                 call :xyz ie1 ie2
   
10.                 echo.
    
11.                 call echo  你的%%a盘所剩空间为: %%ie1%%.%%ie2:~0,1%%G
    
12.                 echo.
    
13.             ))
    
14. pause&goto :eof
    
15. 
    
16. :pd
    
17. if "!size:~-%split%,1!"=="0" (
    
18.         set /a split-=1
    
19.         goto pd
    
20.     ) else (
    
21.         call set %1=%%size:~0,-%split%%%
    
22.         call set %2=%%size:~-%split%%%
    
23.         goto :eof
    
24.     )
    
25. 
    
26. :xyz
    
27. set /a a=%size-a%/1024,b=%size-b%/1024
    
28. set /a c=%size-a%%%1024,d=%size-b%%%1024
    
29. call set /a e=%a%%%zero:~-%split%%%
    
30. call set /a f=%c%%%zero:~-%split%%%
    
31. set /a %1=(%e%+%b%+(%f%+%d%)/1024)/(1024*1024)
    
32. set /a %2=(%e%+%b%+(%f%+%d%)/1024)%%(1024*1024)
    
33. goto :eof

复制代码

youxi01

单看你的代码结构,就不得不让我给你加分啊?
不过,弱弱的问一句，你这个似乎用专门的代码编辑工具写的吧?

ieutk

嗯,谢谢加分!

是一个叫什么notepad+的工具写的吧,现在不记的,上次中招了,重搞系统就没见那工具

随风

ls两位，什么叫用编辑工具写的？youxi你是怎么看出来的？
楼上说的这个工具，论坛里有啊，第三方软件里面。

ieutk

我也不清楚youxi01是怎么看出来的

我也想知道他是怎么看出来的