中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名:www.cn-dos.net  论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
作者:
标题: 简单10进制数字转16进制 上一主题 | 下一主题
knoppix7
银牌会员





积分 1287
发帖 634
注册 2007-5-2
来自 cmd.exe
状态 离线
『楼 主』:  简单10进制数字转16进制

没有处理大数字的过滤。因为是我的一个BAT要用,所以没有考虑那么多。
然后也没有做参数过滤.
使用PING作初始处理.

代码还可以精简。但是我懒得弄了。精简完也就少几字节,运行时间少几毫秒.

没有做完全的测试。所以难免有BUG
@echo off
setlocal ENABLEDELAYEDEXPANSION
set /p num=num?
set str=0123456789ABCDEF
FOR /F "usebackq tokens=2 delims= " %%i IN (`ping -n 1 %num% ^|find "Pinging"`) DO (
        FOR /F "tokens=1,2,3,4 delims=." %%a IN ("%%i") DO (
                call :prog %%a
                call :prog %%b
                call :prog %%c
                call :prog %%d
        )
)
call :NOZERO_ %RUS%
echo %RUS%
::TEST结果
set /a p=0X%RUS%
echo %P%
::可以删除
pause
exit





://BLOCKS
:prog
set T1=%1
if %T1% LEQ 15 (
        set T4=0
        call set T3=%%str:~!T1!,1%%
        ) ELSE (
        set /a T3=%T1%%%16
        set /a TT=%T1%-!T3!
        set /a T4=!TT!/16
        set TT=
        call set T3=%%str:~!T3!,1%%
        call set T4=%%str:~!T4!,1%%
)
set RUS=%RUS%%T4%%T3%
goto :EOF

:NOZERO_
set T1=%1
:NOZERO
if "%T1:~0,1%"=="0" (set T1=%T1:~1%) ELSE set RUS=%T1%&GOTO :EOF
goto :NOZERO

2007-10-6 19:14
查看资料  发短消息 网志   编辑帖子  回复  引用回复
Nickey
初级用户




积分 132
发帖 59
注册 2007-8-23
来自 GuangZhou
状态 离线
『第 2 楼』:  

还可以
速度慢了点

2007-10-6 19:30
查看资料  发送邮件  访问主页  发短消息 网志  OICQ (375600651)  编辑帖子  回复  引用回复
knoppix7
银牌会员





积分 1287
发帖 634
注册 2007-5-2
来自 cmd.exe
状态 离线
『第 3 楼』:  

PING拿去了。。。。肯定了....

2007-10-6 20:04
查看资料  发短消息 网志   编辑帖子  回复  引用回复
不得不爱
超级版主

我爱DOS


积分 5310
发帖 2044
注册 2005-9-26
来自 四川南充
状态 离线
『第 4 楼』:  

我来个简单点的:(最大处理数字是2147483647,超过就会出错!)
@echo off
setlocal ENABLEDELAYEDEXPANSION
set /p num=num?
set str=0123456789ABCDEF
call :A %num%
echo %T3%
echo %num%
pause
exit

:A
set T1=%1
SET T3=
:B
set/A T2=T1%%16
SET T2=!str:~%t2%,1!
SET/A T1=%T1%/16
SET T3=%T2%%T3%
IF %T1%==0 GOTO :EOF
GOTO B




我的网络U盘 我的网络第2个U盘
论坛软件下载链接
灵雨飘零论坛  
论坛新手必读,所有人的基本行为准则
刷QQ空间人气、留言的小软件
2007-10-7 13:42
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
knoppix7
银牌会员





积分 1287
发帖 634
注册 2007-5-2
来自 cmd.exe
状态 离线
『第 5 楼』:  

十分感谢..

如果ping的时间能少点的话应该不至于那么慢

2007-10-7 19:40
查看资料  发短消息 网志   编辑帖子  回复  引用回复

请注意:您目前尚未注册或登录,请您注册登录以使用论坛的各项功能,例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转: