本帖最后由 hlzj88 于 2024-4-14 10:53 编辑
- @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格式 |