qzwqzw

也顺便分享一下自己用过的两段代码吧
算法都差不太多，只不过稍微精简了些代码

@echo off & setlocal EnableDelayedExpansion
set #i=22345
set $t=0123456789ABCDEF
set /a "#1=#i>>12,#2=(#i&0xF00)>>8,#3=(#i&0xF0)>>4,#4=#i&0xF"
set #o=!$t:~%#1%,1!!$t:~%#2%,1!!$t:~%#3%,1!!$t:~%#4%,1!
echo %#i%=0x%#o%
pause
复制代码

:dec2hex - %1 十进制数值 %2 十六进制变量名
setlocal EnableDelayedExpansion
set #i=%1
set $t=0123456789ABCDEF
for /l %%i in (1,1,8) do set/a"#%%i=#i&15,#i>>=4"&for %%e in (!#%%i!) do set #o=!$t:~%%e,1!!#o!
endlocal & set %2=%#o%
复制代码

qzwqzw

回复 8# CrLf

是好久没来了

话说9楼用到的在线HTA脚本似乎有一段时间了
有点“云计算”的意思
不知道是谁的大作啊？

qzwqzw

嗯，刚才翻了翻HTA库的源码
顺便也了解了一下该项目的源流
bat、vbs、js 原生混编
http://www.bathome.net/thread-34109-1-1.html
批处理之家 js 在线脚本库
http://www.bathome.net/thread-34544-1-1.html
确实奇思妙想浩帙鸿篇
几位主创均非一般
尤其CrLF更是非凡

qzwqzw

最后还是回归楼主十进制转换的正题吧
刚才简单调整了一下自己的第二段代码
查表替换的思路也是拾人牙慧
个人代码还是以实用为主效率为辅

:dec2hex - %1 十进制数值 %2 十六进制变量名
setlocal EnableDelayedExpansion
set n=%1
for /l %%i in (1,1,8) do set/a"H%%i=n&15,n>>=4"&set o=!H%%i!:!o!
for %%e in ("10:=A" "11:=B" "12:=C" "13:=D" "14:=E" "15:=F" ":=") do set o=!o:%%~e!
endlocal & set %2=%o%
复制代码