hlzj88

@echo off&setlocal enabledelayedexpansion
:cl
set /p sr=------输入数字-----》
set sz=000!sr!

if !sr! gtr 3999 echo 输入数字大于3999&&goto cl
set qw=!sz:~-4,1!
for %%i in (1.M,2.MM,3.MMM) do set qw=!qw:%%~ni=%%~xi!

set bw=!sz:~-3,1!
for %%i in (1.C,2.CC,3.CCC,4.CD,5.D,6.DC,7.DCC,8.DCCC,9.CM) do set bw=!bw:%%~ni=%%~xi!

set sw=!sz:~-2,1!
for %%i in (1.X,2.XX,3.XXX,4.XL,5.L,6.LX,7.LXX,8.LXXX,9.XC) do set sw=!sw:%%~ni=%%~xi!

set gw=!sz:~-1,1!
for %%i in (1.I,2.II,3.III,4.IV,5.V,6.VI,7.VII,8.VIII,9.IX) do set gw=!gw:%%~ni=%%~xi!

set jg=!qw!!bw!!sw!!gw!
set jg=!jg:.=!
set jg=!jg:0=!
echo 已转换!sr!为!jg!
goto cl
复制代码

保存为ansi格式