批处理脚本实现C语言趣味编程百例010：进制转换

@echo off
set /p dec=Input : 
:loop
if "%dec%"=="0" echo Output : %bin%&pause&exit
set /a "m=dec%%2","dec/=2"
set "bin=%m%%bin%"
goto loop
复制代码

@echo off&setlocal enabledelayedexpansion
set/p S=输入转换数:
set/p H=请输入要转换的几进制?
set "str=0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ_@"
:lp
set Ln=&set R=&set "Sn=!s!"
for %%i in (4096 2048 1024 512 256 128 64 32 16)do if "!Sn:~%%i!" NEQ "" set/aLn+=%%i&set Sn=!Sn:~%%i!
set Sn=!Sn!FEDCBA9876543210&set/aLn+=0x!Sn:~16,1!
for /l %%i in (0,1,%Ln%) do (
   set/a "N=!S:~%%i,1!+(R*10),R=N%%H,N/=H"
   set M=!M!!N!
)
   set B=!str:~%r%,1!!B!
   for /f "tokens=* delims=0" %%i in ("0!M!") do set "S=%%i"
   if defined S set M=&goto lp
   echo "!B!"
pause
复制代码

@echo off & setlocal enabledelayedexpansion
:next
set /p num=请输入一个整数: 
echo BIN: & (for /l %%b in (31 -1 0) do set /a "b=^!^!(1<<%%b&num)"&<nul set /p=!b!)&echo,
echo QUA: & (for /l %%b in (30 -2 0) do set /a "b=(3<<%%b&num)>>%%b"&<nul set /p=!b!)&echo,
echo OCT: & set /a "b=^!^!(1<<30&num)"&<nul set /p=!b!
(for /l %%b in (27 -3 0) do set /a "b=(7<<%%b&num)>>%%b"&<nul set /p=!b!)&echo,
echo,&goto :next
复制代码

@echo off&setlocal enabledelayedexpansion
set num=42

set n=0
for %%a in (0 1) do for %%b in (0 1) do for %%c in (0 1) do for %%d in (0 1) do (
	set _!n!=%%a%%b%%c%%d&set /a n+=1
)
rem 创建 0~15 的表

for /l %%a in (28 -4 0) do (
	set /a "m=num>>%%a&15"
	for %%b in (!m!) do set /p=!_%%b!<nul
)
echo;
rem 位运算分别获取相应位的值，并查表

pause
复制代码