中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 十进制转十六进制（位操作版）

0401
中级用户

带走

积分 435
发帖 88
注册 2005-9-24
状态离线

『楼主』: 十进制转十六进制（位操作版）

能正确处理的最大数为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

此帖被 +40 点积分

点击查看详情

2007-1-7 06:23

0401
中级用户

带走

积分 435
发帖 88
注册 2005-9-24
状态离线

『第 2 楼』:

==已被删除==

[ Last edited by 0401 on 2007-1-25 at 09:19 AM ]

2007-1-7 06:24

electronixtar
铂金会员

积分 7493
发帖 2672
注册 2005-9-2
状态离线

『第 3 楼』:

楼主强人

2007-1-7 08:46

0401
中级用户

带走

积分 435
发帖 88
注册 2005-9-24
状态离线

『第 4 楼』:

Quote:

Originally posted by electronixtar at 2007-1-7 08:46:
楼主强人

我是菜鸟，而且害羞。
用同一种方法再贴一个十进制转二进制的。

@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

此帖被 +15 点积分

点击查看详情

2007-1-7 09:24

lxmxn
版主

积分 11386
发帖 4938
注册 2006-7-23
状态离线

『第 5 楼』:

　　强人一个。

2007-1-7 17:15

redtek
金牌会员

积分 2902
发帖 1147
注册 2006-9-21
状态离线

『第 6 楼』:

超级顶！欣赏～～：）

　　　　Redtek，一个永远在网上流浪的人……

_.,-*~'`^`'~*-,.__.,-*~'`^`'~*-,._,_.,-*~'`^`'~*-,._,_.,-*~'`^`'~*-,._

2007-1-7 21:04

vlanmaster
初级用户

积分 100
发帖 46
注册 2006-12-19
状态离线

『第 7 楼』:

用的果然爽,厉害。

2007-1-12 06:55

ccwan
金牌会员

积分 2725
发帖 1160
注册 2006-9-23
来自河北廊坊
状态离线

『第 8 楼』:

的是厉害。顶了

三人行，必有吾师焉。学然后知不足，教然后知困，然后能自强也。

2007-1-12 06:57

vkill
金牌会员

积分 4103
发帖 1744
注册 2006-1-20
来自甘肃.临泽
状态离线

『第 9 楼』:

0401 兄4楼的十进制转二进制的还可以改改的，后面的那标签:cut0 属于多余

改为这样就好了

Quote:

:d2b
set a=1
for /l %%i in (1,1,30) do (
      set/a t=%scanf%"&"!a!
      set/a a*=2
      if !t! equ 0 (set bin=0!bin!) else (set bin=1!bin!)
      if %scanf% lss !a! exit/b
)
if %bin% equ 0 set bin=0 & goto :eof

修改如下:
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 了

2007-3-13 07:50