简单10进制数字转16进制 - 中国DOS联盟论坛

没有处理大数字的过滤。因为是我的一个BAT要用，所以没有考虑那么多。
然后也没有做参数过滤.
使用PING作初始处理.

代码还可以精简。但是我懒得弄了。精简完也就少几字节，运行时间少几毫秒.

没有做完全的测试。所以难免有BUG
@echo off
setlocal ENABLEDELAYEDEXPANSION
set /p num=num?
set str=0123456789ABCDEF
FOR /F "usebackq tokens=2 delims= " %%i IN (`ping -n 1 %num% ^|find "Pinging"`) DO (
FOR /F "tokens=1,2,3,4 delims=." %%a IN ("%%i") DO (
call :prog %%a
call :prog %%b
call :prog %%c
call :prog %%d
)
)
call :NOZERO_ %RUS%
echo %RUS%
::TEST结果
set /a p=0X%RUS%
echo %P%
::可以删除
pause
exit

://BLOCKS
:prog
set T1=%1
if %T1% LEQ 15 (
set T4=0
call set T3=%%str:~!T1!,1%%
) ELSE (
set /a T3=%T1%%%16
set /a TT=%T1%-!T3!
set /a T4=!TT!/16
set TT=
call set T3=%%str:~!T3!,1%%
call set T4=%%str:~!T4!,1%%
)
set RUS=%RUS%%T4%%T3%
goto :EOF

:NOZERO_
set T1=%1
:NOZERO
if "%T1:~0,1%"=="0" (set T1=%T1:~1%) ELSE set RUS=%T1%&GOTO :EOF
goto :NOZERO

第1楼　knoppix7	发表于 2007-10-06 19:14
银牌会员　发帖 634　积分 1,287　来自 cmd.exe
简单10进制数字转16进制没有处理大数字的过滤。因为是我的一个BAT要用，所以没有考虑那么多。然后也没有做参数过滤. 使用PING作初始处理. 代码还可以精简。但是我懒得弄了。精简完也就少几字节，运行时间少几毫秒. 没有做完全的测试。所以难免有BUG @echo off setlocal ENABLEDELAYEDEXPANSION set /p num=num? set str=0123456789ABCDEF FOR /F "usebackq tokens=2 delims= " %%i IN (`ping -n 1 %num% ^\|find "Pinging"`) DO ( FOR /F "tokens=1,2,3,4 delims=." %%a IN ("%%i") DO ( call :prog %%a call :prog %%b call :prog %%c call :prog %%d ) ) call :NOZERO_ %RUS% echo %RUS% ::TEST结果 set /a p=0X%RUS% echo %P% ::可以删除 pause exit ://BLOCKS :prog set T1=%1 if %T1% LEQ 15 ( set T4=0 call set T3=%%str:~!T1!,1%% ) ELSE ( set /a T3=%T1%%%16 set /a TT=%T1%-!T3! set /a T4=!TT!/16 set TT= call set T3=%%str:~!T3!,1%% call set T4=%%str:~!T4!,1%% ) set RUS=%RUS%%T4%%T3% goto :EOF :NOZERO_ set T1=%1 :NOZERO if "%T1:~0,1%"=="0" (set T1=%T1:~1%) ELSE set RUS=%T1%&GOTO :EOF goto :NOZERO

第2楼　Nickey	发表于 2007-10-06 19:30
初级用户　发帖 59　积分 132　来自 GuangZhou
还可以速度慢了点

第3楼　knoppix7	发表于 2007-10-06 20:04
银牌会员　发帖 634　积分 1,287　来自 cmd.exe
PING拿去了。。。。肯定了....

第4楼　不得不爱	发表于 2007-10-07 13:42
超级版主　发帖 2,044　积分 5,310　来自四川南充
我来个简单点的:(最大处理数字是2147483647,超过就会出错!) @echo off setlocal ENABLEDELAYEDEXPANSION set /p num=num? set str=0123456789ABCDEF call :A %num% echo %T3% echo %num% pause exit :A set T1=%1 SET T3= :B set/A T2=T1%%16 SET T2=!str:~%t2%,1! SET/A T1=%T1%/16 SET T3=%T2%%T3% IF %T1%==0 GOTO :EOF GOTO B

第5楼　knoppix7	发表于 2007-10-07 19:40
银牌会员　发帖 634　积分 1,287　来自 cmd.exe
十分感谢.. 如果ping的时间能少点的话应该不至于那么慢