设为首页收藏本站

切换到宽版

论坛BBS

批处理之家»论坛 › 批处理专区: BAT CMD DOS › BAT原创&转载 › BAT转载代码 › 批处理把十进制转换成二,八,十六进制

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

12 / 2 页下一页

返回列表发新帖

查看: 52425|回复: 18

批处理把十进制转换成二,八,十六进制

发表于 2011-4-7 16:02:06 | 显示全部楼层 |阅读模式

转自: http://www.52sky.org/article/Computer%20Program/44.html

复制代码

评分

参与人数 1	PB +18	收起理由
lxzzr	+ 18	感谢分享

查看全部评分

回复

发表于 2011-4-7 17:26:55 | 显示全部楼层

很厉害呀，能帮忙解释一下大概思路....?!谢谢

回复 

发表于 2011-5-15 18:41:07 | 显示全部楼层

十进制与2、8、16 进制转换方法
模上2取余，除以二取整，实际就是除以二取余数，当正好除尽时（这里不包括小数），将余数由低位到高位排列即相应十进制的二进制表，其他进制同理

回复 

▄︻┻═┳一

发表于 2011-6-19 02:11:38 | 显示全部楼层

代码太长了，，，

回复 

发表于 2011-6-19 11:07:28 | 显示全部楼层

4# ▄︻┻═┳一

你给个短的呗

回复 

发表于 2011-6-19 14:27:49 | 显示全部楼层

5# Batcher

貌似随风写过32进制以内的通用版

回复 

发表于 2011-6-19 18:38:34 | 显示全部楼层

不考虑速度的话，用递归，代码应该很简短

zm感兴趣否？

回复 

发表于 2011-6-20 14:58:29 | 显示全部楼层

对输入数长度判断在16位以内如需处理更大数可自加判断
当然有人可处理转其他进制

@echo off&setlocal enabledelayedexpansion
set/p Str=请输入十进制数:
set "Code=0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ_@"
for %%i in (2 8 16) do set S=!str!&call:lp %%i _%%i&ECHO !str! 对应 [%%i进制]: !_%%i!
pause&exit
:lp
set U=!S!FEDCBA9876543210
SET/A U=0x!U:~16,1!,R=0
for /l %%i in (0 1 %U%) do (
set/a "N=!S:~%%i,1!+(R*10),r=N%%%1,N/=%1"
set B=!B!!N!
if !B! equ 0 set "B="
)
set %2=!Code:~%R%,1!!%2!
if defined B set S=!B!&set B=&goto lp

复制代码

回复 

发表于 2011-6-20 20:37:12 | 显示全部楼层

7# plp626

不太明白，个人感觉常规方法就很简洁了啊

回复 

发表于 2011-6-20 21:16:40 | 显示全部楼层

感觉2,8,16这些特殊进制(2的正整数次方幂)可以用位运算直接些

回复 

发表于 2011-6-20 21:33:25 | 显示全部楼层

本帖最后由 523066680 于 2011-6-20 21:35 编辑

虽然不见得好，做了就贴上来了,0123456789abcde 字符截取，这一块是抄学的。

@echo off
setlocal enabledelayedexpansion
set str=0123456789abcdef
call :lp 10 2
echo %num%
call :lp 10 8
echo %num%
call :lp 10 16
echo %num%
pause
:lp
set "num="
:in
set /a x=%1/%2,y=%1 %% %2
set num=!str:~%y%,1!%num%
if %x% neq 0 (call :in %x% %2) else (goto :eof)

复制代码

回复 

发表于 2011-6-20 21:38:45 | 显示全部楼层

10# neorobin

老兄好久不见...
不过我感觉位此处用运算并没有优势啊

回复 

发表于 2011-6-20 22:33:37 | 显示全部楼层

12# zm900612
仅适用于正数并且要求算术右移实现, 想到这个就写出来了, 也可把每位都存入(开头的 0 不存入)变量, if !code!==0 set "code="

@echo off & setlocal enableDelayedExpansion
REM 2147483647=~(1<<31)
set HEX_TAB=0123456789ABCDEF
for /l %%a in () do (
set /p num="Input a decimal number: "
set /a "test=1<<31
<nul set /p="Binary: "
for /l %%i in (31 -1 0) do (
set /a "bit=num&test,test>>=1,test&=~(1<<31),bit>>=%%i,bit&=~(1<<31)"
<nul set /p=!bit!
)
echo.
<nul set /p="Hex.: "
set /a "test=0xf<<4*(32/4-1)
for /l %%i in (28 -4 0) do (
set /a "bit=num&test,test>>=4,test&=(1<<28)-1,bit>>=%%i,bit&=(1<<28)-1"
for %%p in (!bit!) do <nul set /p=!HEX_TAB:~%%p,1!
)
echo.
<nul set /p="Octal: "
set /a "test=07<<3*(32/3)" & rem 32=3*10+2
for /l %%i in (30 -3 0) do ( rem Arithmetic Shift Right >>
set /a "bit=num&test,test>>=3,test&=(1<<30)-1,bit>>=%%i,bit&=(1<<30)-1"
<nul set /p=!bit!
)
echo.&echo.
)
exit /b

复制代码

回复 

发表于 2011-6-20 23:16:23 | 显示全部楼层

还是只用于正数, 位运算实现, 只显示有效数字

@echo off & setlocal enableDelayedExpansion
REM 2147483647=~(1<<31)
set HEX_TAB=0123456789ABCDEF
for /l %%a in () do (
set /p num="Input a decimal number: "
<nul set /p="Binary: "
set code=
set /a "test=1<<31
for /l %%i in (31 -1 0) do (
set /a "bit=num&test,test>>=1,test&=~(1<<31),bit>>=%%i,bit&=~(1<<31)"
set "code=!code!!bit!"
if !code!==0 set code=
)
echo !code!
<nul set /p="Hex.: "
set code=
set /a "test=0xf<<4*(32/4-1)
for /l %%i in (28 -4 0) do (
set /a "bit=num&test,test>>=4,test&=(1<<28)-1,bit>>=%%i,bit&=(1<<28)-1"
for %%p in (!bit!) do set "code=!code!!HEX_TAB:~%%p,1!"
if !code!==0 set code=
)
echo !code!
<nul set /p="Octal: "
set code=
set /a "test=07<<3*(32/3)" & rem 32=3*10+2
for /l %%i in (30 -3 0) do ( rem Arithmetic Shift Right >>
set /a "bit=num&test,test>>=3,test&=(1<<30)-1,bit>>=%%i,bit&=(1<<30)-1"
set "code=!code!!bit!"
if !code!==0 set code=
)
echo !code! & echo.
)
exit /b

复制代码

回复 

发表于 2011-6-21 14:00:08 | 显示全部楼层

输入数在可运算范围内的位移
如超出运算范围 8楼代码可处理大数

@echo off&setlocal enabledelayedexpansion
set/p T=输入10进制数:
set "Code=0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ_@"
for %%i in (1 3 4) do (
set /a "i=1<<%%i,j=i-1"
set S=%T%
for /l %%j in (0 1 31) do (
if !S! neq 0 (
set/a "B=S&j,S>>=%%i"
for %%k in (!B!) do set _%%i=!Code:~%%k,1!!_%%i!
)
)
echo %T% 对应 !i! 进制 "!_%%i!"
)
pause

复制代码

评分

参与人数 1	PB +6	收起理由
plp626	+ 6	位运算用于2 4 8 16 32进制；

查看全部评分

回复 

12 / 2 页下一页

返回列表发新帖

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-17 00:07 , Processed in 0.013914 second(s), 9 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表