标题: 十进制转十六进制（位操作版） [打印本页]
作者: 0401 时间: 2007-1-7 06:23 标题: 十进制转十六进制（位操作版）
能正确处理的最大数为2147483647，也就是31位2进制数，第32位就出错了，3742668 版主的那个版本也一样，输入2147483648就出错，虽然可以通过位移的次数来判断使精确度达到4294967295，但是我在应用上是碰不到这么大的数了，也就不多麻烦了。
@echo off
setlocal enabledelayedexpansion
set hexstr=0 1 2 3 4 5 6 7 8 9 A B C D E F
set d=0
for %%i in (%hexstr%) do (set d!d!=%%i&set/a d+=1)
set/p scanf=能正确处理的最大数为[2147483647]，请输入需要转换的十进制数：
if not defined scanf exit/b
set dec=%scanf%
call :d2h
if not defined hex set hex=0
echo %dec% 的十六进制为：0x%hex%
pause>nul
exit/b
:d2h
if %scanf% equ 0 exit/b
set/a tscanf=%scanf%"&"15
set/a scanf">>="4
set hex=!d%tscanf%!!hex!
goto :d2h
setlocal enabledelayedexpansion
set hexstr=0 1 2 3 4 5 6 7 8 9 A B C D E F
set d=0
for %%i in (%hexstr%) do (set d!d!=%%i&set/a d+=1)
set/p scanf=能正确处理的最大数为[2147483647]，请输入需要转换的十进制数：
if not defined scanf exit/b
set dec=%scanf%
call :d2h
if not defined hex set hex=0
echo %dec% 的十六进制为：0x%hex%
pause>nul
exit/b
:d2h
if %scanf% equ 0 exit/b
set/a tscanf=%scanf%"&"15
set/a scanf">>="4
set hex=!d%tscanf%!!hex!
goto :d2h
作者: 0401 时间: 2007-1-7 06:24
==已被删除==
[ Last edited by 0401 on 2007-1-25 at 09:19 AM ]
作者: electronixtar 时间: 2007-1-7 08:46
楼主强人
作者: 0401 时间: 2007-1-7 09:24
| Quote: | |
|
我是菜鸟，而且害羞。
用同一种方法再贴一个十进制转二进制的。
@echo off
setlocal enabledelayedexpansion
set/p scanf=能正确处理的最大数为[2147483647]，请输入需要转换的十进制数：
if not defined scanf exit/b
set dec=%scanf%
call :d2b
echo %dec% 的二进制为：%bin%
pause>nul
exit/b
:d2b
set a=1
for /l %%i in (1,1,31) do (
set/a t=%scanf%"&"!a!
set/a a*=2
if !t! equ 0 (set bin=0!bin!) else (set bin=1!bin!)
)
if %bin% equ 0 set bin=0 & goto :eof
:cut0
if %bin:~0,1% equ 0 set bin=%bin:~1%&goto :cut0
setlocal enabledelayedexpansion
set/p scanf=能正确处理的最大数为[2147483647]，请输入需要转换的十进制数：
if not defined scanf exit/b
set dec=%scanf%
call :d2b
echo %dec% 的二进制为：%bin%
pause>nul
exit/b
:d2b
set a=1
for /l %%i in (1,1,31) do (
set/a t=%scanf%"&"!a!
set/a a*=2
if !t! equ 0 (set bin=0!bin!) else (set bin=1!bin!)
)
if %bin% equ 0 set bin=0 & goto :eof
:cut0
if %bin:~0,1% equ 0 set bin=%bin:~1%&goto :cut0
作者: lxmxn 时间: 2007-1-7 17:15
强人一个。
作者: redtek 时间: 2007-1-7 21:04
超级顶！欣赏～～：）
作者: vlanmaster 时间: 2007-1-12 06:55
用的果然爽,厉害。
作者: ccwan 时间: 2007-1-12 06:57
的是厉害。顶了
作者: vkill 时间: 2007-3-13 07:50
0401 兄4楼的 十进制转二进制的 还可以改改的，后面的那 标签:cut0 属于多余
改为这样就好了
| Quote: | |
|
修改如下:
1: 1,1,30 因为你for /l %%i in (1,1,31) do (set/a a*=a) 就已经出错了
2: 加了一句 if %scanf% lss !a! exit/b ,因为数a 与 运算 比它大的数永远是0，既然这样还不如直接if %scanf% lss !a! exit/b结束，后面也就不去前面的 0 了
作者: xycoordinate 时间: 2007-3-13 08:22
先加个"戳",不然下次用时找不到!
作者: genteman 时间: 2007-11-2 12:44
我来回复9楼
if %scanf% lss !a! exit/b
你的这段代码缺点很明显，
每做一次循环，都要判断一次，降低了程序效率
作者: genteman 时间: 2007-11-2 12:57
还有一个问题
“ 1,1,30 因为你for /l %%i in (1,1,31) do (set/a a*=a) 就已经出错了”
这里%%i=31的时候，a=2(30)，并没有错，要到%%i=32时，a=2(31)，
这时才有错
所以9楼的代码才是正确的！
作者: ZJHJ 时间: 2010-8-10 09:03
我用取余的方法写了一个 十进制转十六进制，证实了最大极限处理确实是2147483647，即十六进制极限为7FFFFFFF，反转也同样说明了这个问题。应该说是CMD的极限。