1 20 50 150 500
欢迎来到存起来软件站,找素材,搜软件,就上存起来软件站!
当前位置 >Home >脚本 >脚本下载 >批处理 >转换处理
阿拉伯数字与罗马数字互转程序的批处理命令 阿拉伯与罗马数字互转程序bat
跳转至下载链接

脚本介绍

能实现阿拉伯数字与罗马数字互转程序的批处理文件 ,双击运行

复制代码代码如下:
:: 阿拉伯与罗马数字互转程序
:: qzwqzw <a href="//bbs.cn-dos.net">//bbs.cn-dos.net</a>
:: 2007-01-03 Revision 2
:: 出处:<a href="//www.cn-dos.net/forum/viewthread.php?tid=26230">//www.cn-dos.net/forum/viewthread.php?tid=26230</a>
@echo off
setlocal EnableDelayedExpansion</p><p>for /l %%i in (1,1,100) do (
set /a numin=!random!*4200/32768-100
set in=!numin!
set out=
call :Arab2Roman
set in=!out!
call :Roman2Arab
echo.%%i [!numin!:!in!:!out!]
if !numin! neq !out! set /p=--- Invalid ---
)
pause
endlocal
goto :eof</p><p>:Arab2Roman
setlocal EnableDelayedExpansion
set num=%in%
set /a tmp=num+0
if not "%num%"=="%tmp%" goto :eof
if %num% geq 4000 goto :eof
if %num% leq 0 goto :eof</p><p>set i=0
for %%v in (1000 900 500 400 100 90 50 40 10 9 5 4 1) do (
set /a i+=1
set arab!i!=%%v
)</p><p>set i=0
for %%v in (M CM D CD C XC L XL X IX V IV I) do (
set /a i+=1
set roman!i!=%%v
)</p><p>set i=1
:a2r_loop
call set tmp=%%arab%i%%%</p><p>if 1%num% lss 1%tmp% (
set /a i+=1
) else (
call set rom=%rom%%%roman%i%%%
set /a num-=tmp
)</p><p>if 1%num% gtr 10 goto a2r_loop</p><p>endlocal & set out=%rom%
goto :eof
::Arab2Roman</p><p>:Roman2Arab
setlocal EnableDelayedExpansion</p><p>echo.%in%|findstr /r "[^IVXLCDMivxlcdm]">nul && goto :eof</p><p>set i=0
for %%v in (1000 900 500 400 100 90 50 40 10 9 5 4 1) do (
set /a i+=1
set arab!i!=%%v
)</p><p>set i=0
for %%v in (M 1 D 2 C 3 L 4 X 5 V 6 I) do (
set /a i+=1
set roman!i!=%%v
)</p><p>set in=%in:m=M%
set in=%in:d=D%
set in=%in:c=C%
set in=%in:l=L%
set in=%in:x=X%
set in=%in:v=V%
set in=%in:i=I%</p><p>set in=%in:CM=1%
set in=%in:CD=2%
set in=%in:XC=3%
set in=%in:XL=4%
set in=%in:IX=5%
set in=%in:IV=6%</p><p>set i=1
set num=0
:r2a_loop
set tmp=%in:~0,1%
call set rom1=%%roman%i%%%
if "%tmp%"=="%rom1%" (
call set /a num+=arab%i%
set in=%in:~1%
) else (
set /a i+=1
)
if %i% gtr 13 goto :eof
if not "%in%"=="" goto r2a_loop</p><p>endlocal & set out=%num%
goto :eof
::Roman2Arab


警告:运行BAT源码是一种危险的动作,如果你不熟悉,请不要尝试!

下载地址

特别说明:

本站所有资源仅供学习与参考,请勿用于商业用途,否则产生的一切后果将由您自己承担!

本站为非营利性站点,所有资源均是网上搜集或私下交流学习之用,任何涉及

商业盈利目的均不得使用,否则产生的一切后果将由您自己承担!本站仅仅提供

一个观摩学习的环境,将不对任何资源负法律责任。所有资源请在下载后24小时内删除。若无意中侵犯到您的版权利益,敬请来信联系我们。我们会在收到信息三天内给予处理!

本站提供的普通下载点可能造成多线程类的软件无法下载,建议直接点击或另存为下载!

如有侵犯您的版权,请及时联系513175919#qq.com(#换@),我们将尽快处理。

Top