[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
回复 15# JooKin
补码;
你别想复杂了,这是d2b的bat代码:
  1. :: d2b.cmd
  2. @call dec2x.cmd 2 32 %1 %2
  3. @if %2.==. echo %$%
复制代码
  1. :: dec2x.cmd
  2. @ECHO %#debug% off
  3. :d2x <进制=2 8 16> <多少位> <数字> <返回>
  4. SETLOCAL ENABLEDELAYEDEXPANSION
  5. set /a "p=%1-1,x=(p-1)/3+^!(%1&16),d=%3,lp=%2"
  6. set m=0123456789ABCDEF&set h=
  7. for /L %%: in (1,1,%lp%)do set/a"t=d&p,d>>=x"&Set h=$m:~!t!,1$!h!
  8. for %%a in ("%h:$=!%")do endlocal&Set $%4=%%~a
复制代码
附带两个外部命令:
  1. :: d2h.cmd
  2. @call dec2x 16 8 %1 %2
  3. @if %2.==. echo %$%
复制代码
  1. :: d2o.cmd
  2. @call dec2x 8 11 %1 %2
  3. @if %2.==. echo %$%
复制代码

TOP

回复 16# plp626


    看不太懂

TOP

返回列表