标题: 简单10进制数字转16进制 [打印本页]

---

作者: knoppix7     时间: 2007-10-6 19:14    标题: 简单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

---

作者: Nickey     时间: 2007-10-6 19:30
还可以
速度慢了点

---

作者: knoppix7     时间: 2007-10-6 20:04
PING拿去了。。。。肯定了....

---

作者: 不得不爱     时间: 2007-10-7 13:42
我来个简单点的:(最大处理数字是2147483647,超过就会出错!)

---

作者: knoppix7     时间: 2007-10-7 19:40
十分感谢..

如果ping的时间能少点的话应该不至于那么慢