hfg1977

没必要搞这么复杂吧?
这些代码前人写过 n遍了.....
原理

5. 十 ----> 十六
　　（25.625）（十）
　　整数部分：
　　25/16=1......9
　　1/16 =0......1
　　然后我们将余数按从下往上的顺序书写就是：19，那么这个19就是十进制25的十六进制形式
　　小数部分：
　　0.625*16=10（即十六进制的A或a）
　　然后我们将整数部分按从上往下的顺序书写就是：A，那么这个A就是十进制0.625的十六进制形式
　　所以：（25.625）（十）=（19.A）（十六）

我自己写的封装模块:,=2147483647

:::=======================10进制转16进制==============================
::返回值在中%sum%
:dec2hex
if not "%frist_BL%"=="1" (set "frist_BL=1"&set "sum="&set "yu_num="&set /a sor_num=%*)
set /a yu_num= %sor_num% %% 16
set /a sor_num /= 16
call:set_YU %yu_num%
set sum=%ret%%sum%
if %sor_num% lss 16 (set "end_BL=1"&call:set_YU %sor_num%) else (set "end_BL=0")
if "%end_BL%"=="1" (set sum=%ret%%sum%&set "frist_BL=0"&goto:eof)
goto dec2hex

:set_YU
set ret=
if "%1" == "10" set ret=A
if "%1" == "11" set ret=B
if "%1" == "12" set ret=C
if "%1" == "13" set ret=D
if "%1" == "14" set ret=E
if "%1" == "15" set ret=F
if %1 lss 10 set ret=%1
goto :eof

::=======================END CODE===============================
复制代码

16转10  对于P来说不存在呀
set/a decNumber=0xhNumber
就ok了

hfg1977

re: mouse.com 楼主能否说明一下, 调用鼠标功能中断INT 33H 干什么呀?
.bat运行后 ntvdm.exe 占用100% 程序无反应.

[ 本帖最后由 hfg1977 于 2010-8-11 00:57 编辑 ]

hfg1977

看到楼上用字符串截取,我也跟着改进下
省了不少代码呀 哈哈 感谢了

::==================10进制转16进制==============================
::返回值在中%ret%
:dec2hex
set str=0123456789ABCDEF&set "ret="
set/a d=%~1
:lp
set/a y=!d!%%16,d/=16
call set ret=%%str:~!y!,1%%!ret!
if !d! NEQ 0 goto:lp
goto :eof
::=======================END CODE===============================
复制代码