经典批处理代码之<十进制转二进制>

@echo off&title DOS资源站 www.cmdos.net

:: 十进制转二进制

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