@echo off
setlocal ENABLEDELAYEDEXPANSION
title 小数转分数&color 60
mode con cols=31 lines=7
set er=goto err
:loop
cls&echo 你可以用,表示循环节
echo 合法的输入格式：
echo,                 .
echo 1.8  .8,3(表示0.83)  5.,285714
set input=&set /p input=请输入：
echo !input!|findstr "^[0-9.,]*$">nul||%er%
if "!input:.=!"=="!input!" ^
for /f "tokens=* delims=0" %%i in ("!input!") do (
set /a tp=%%i+1-1
echo !tp!
pause>nul
goto :loop
)
set tp=!input:*.=!&if not "!tp:.=!"=="!tp!" %er%
if not "!input:,=!"=="!input!" (echo !input:*,=!|findstr "[.,]">nul&&%er%)
echo !input!|findstr "[.,]0*$">nul&&%er%
if "!input:~0,1!"=="." set input=0!input!
set tp=!input:*.=.!
set a=!input:%tp%=!
set b=!input:%a%.=!&set tp=!input:*,=,!
set b=!b:%tp%=!&if "!input:,=!"=="!input!" (set c=) else set c=!tp:,=!
for /f "tokens=* delims=0" %%i in ("!a!") do set /a a=%%i+1-1
call :len "!b!" blength
call :len "!c!" clength
call :string !blength! 0 bnum0
call :string !clength! 9 cnum9
if "!c!"=="" (
set /a "d=!b!"&set e=1!bnum0!
) else (
set /a "d=(!b!+1-1)*(!cnum9!+1-1)+(!c!+1-1)"&set e=!cnum9!!bnum0!
)
call :gcd !d! !e! decomdiv
set /a d/=!decomdiv!,e/=!decomdiv!
if !a! neq 0 set /p=!a!+<nul
echo !d!/!e!
pause>nul
goto loop
:err
echo cls&echo 非法输入&pause>nul&goto loop
:len
set "string=%~1"
set len=0
if "!string!"=="" set %2=%len%&goto :eof
:len2
if "!string:~%len%,1!"=="" (set %2=%len%&goto :eof) else set /a len+=1&&goto len2
:string
set "%3="&(for /l %%i in (1 1 %1) do set "%3=!%3!%2")&goto :eof
:gcd
set /a tempa=%1,tempb=%2
:gcd2
if !tempa! geq !tempb! (set /a tempa=!tempa!%%!tempb!) else set /a tempb=!tempb!%%!tempa!
if !tempa!==0 set %3=!tempb!&goto :eof
if !tempb!==0 (set %3=!tempa!&goto :eof) else goto gcd2
复制代码