[数值计算] 批处理把单位为KB的超大数转换为GB单位

@echo off&setlocal EnableDelayedExpansion
set size=12346058067203134065432153
set num1=%size:~0,4%
set num2=%size:~4%
call :division %num1%
for /l %%i in (0 1 100) do (
   set num=!num2:~%%i,1!
   if "!num!"=="" goto :result
   call :division !var!!num!
)

:result
for /f "delims=0 tokens=*" %%i in ("!str!") do echo %%i

pause>nul
:division
set /a var=%1 %% 1024
set /a res_=%1/1024
set str=!str!!res_!
复制代码

@echo off&setlocal EnableDelayedExpansion
set size=19337576448&set "var=!size:~0,4!"
for /l %%i in (5 1 100) do (
   set var=!var!!size:~%%i,1!
   set /a "res_=var/1024,var=var%%1024"
   set "str=!str!!res_!"
   if "!size:~%%i,1!"=="" goto :result
)
:result
for /f "delims=0 tokens=*" %%i in ("!str!") do (
  set /a "var=%%i/1024/1024,yu=%%i%%1024"
)
echo !var!.!yu! G
pause>nul
复制代码

@echo off
set split=5
set zero=0000000000
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 (
	if exist %%a:\ (
		for /f "tokens=3 delims= " %%i in ('dir /-c %%a:\') do set size=%%i
		setlocal enabledelayedexpansion
		call :pd size-a size-b
		call :xyz ie1 ie2
		echo.
		call echo  你的%%a盘所剩空间为: %%ie1%%.%%ie2:~0,1%%G
		echo.
  	  ))
pause&goto :eof

:pd
if "!size:~-%split%,1!"=="0" (
	set /a split-=1
	goto pd
    ) else (
	call set %1=%%size:~0,-%split%%%
	call set %2=%%size:~-%split%%%
	goto :eof
    )

:xyz
set /a a=%size-a%/1024,b=%size-b%/1024
set /a c=%size-a%%%1024,d=%size-b%%%1024
call set /a e=%a%%%zero:~-%split%%%
call set /a f=%c%%%zero:~-%split%%%
set /a %1=(%e%+%b%+(%f%+%d%)/1024)/(1024*1024)
set /a %2=(%e%+%b%+(%f%+%d%)/1024)%%(1024*1024)
goto :eof
复制代码