CrLf

回复 4# oqis


举个栗子：

@echo off

set "输入变量=44.1234560"
::要处理的数字

set "kp=1"
::保留 1 位小数

call :int %输入变量% 输出变量
::调用 :int 并将结果保存在 %输出变量% 中

echo %输出变量%

pause & exit



:int 小数 输出变量
setlocal enabledelayedexpansion
set int=%~1.
if not defined kp set kp=2
if "%kp%"=="0" (set int=!int!0) Else for /l %%i in (1 1 %kp%) do set int=!int!0
for /f "tokens=1,2,3 delims=." %%i in ("!int!") do (
if not "%kp%"=="0" if %%j EQU 0 (endlocal&set %~2=%%i.%%j&goto :eof)
echo !int!
set pf=%%j
set pfe=!pf:~0,1!
set pfd=!pf:~0,%kp%!
set pfc=!pf:~%kp%,1!
if "!kp!"=="0" (
if !pfe! GEQ 5 set /a result=%%i+1
if !pfe! LSS 5 set /a result=%%i
) ELSE (
if !pfc! GEQ 5 set /a tmp1=!pfd!+1
if !pfc! LSS 5 set /a tmp1=!pfd!
set result=%%i.!tmp1!
) 
)
endlocal&set %~2=%result%&goto :eof
复制代码