中国DOS联盟

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

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

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [原创]*****IP和整数互相转换*****

s11ss
银牌会员

积分 2098
发帖 566
注册 2007-9-11
状态离线

『楼主』: [原创]*****IP和整数互相转换*****

@echo off

::::::::::::::::::::::::::IP And Integer {s11ss 2007-9-25}::::::::::::::::::::::::::

set result=

if "%1" equ "/1" goto :ip2int

if "%1" equ "/2" goto :int2ip

echo Please input a parameter, /1 or /2 . 

goto :e

:ip2int

echo Please input an IP,like 127.0.0.1:

set/p ip=

for /f "delims=. tokens=1-4" %%a in ('echo %ip%') do set/a result+=%%a*256*256*256+%%b*256*256+%%c*256+%%d

goto :e

:int2ip

echo Please input an Integer,like 2130706433:

set/p int=

set/a quotient=%int%

:c

set/a remainder=%quotient%%%256

set/a quotient=%quotient%/256

if "%result%" equ "" (set result=%remainder%) else (set result=%remainder%.%result%)

if not %quotient% equ 0 goto :c

goto :e

:e

echo.

echo.%result%

echo Press Any Key To Exit...

pause>nul