批处理 高手请进

大概写了个，也不知道你想要什么样的。

@echo
off&setlocal
ENABLEDELAYEDEXPANSION
title
标题
color
3a
mode
con:
cols=60
lines=18
:loop
echo
以下是一些项目
echo.
echo
1.项目一
5.项目A
echo
2.项目二
6.项目B
echo
3.项目三
7.项目C
echo
4.项目四
8.项目D
echo.
set
/p
select=请选择项目
:
for
/l
%%i
in
(1
1
8)
do
(

if
!select!
equ
%%i
(goto
:case%%i)
)
if
%select%
gtr
8
(echo
选择有误，请重新选择)&pause&cls&(goto
:loop)
if
%select%
lss
1
(echo
选择有误，请重新选择)&pause&cls&(goto
:loop)
:case1
echo.
echo
我是case1
pause&goto
eof
:case2
echo.
echo
我是case2
pause&goto
eof
:case3
echo.
echo
我是case3
pause&goto
eof
:case4
echo.
echo
我是case4
pause&goto
eof
:case5
echo.
echo
我是case5
pause&goto
eof
:case6
echo.
echo
我是case6
pause&goto
eof
:case7
echo.
echo
我是case7
pause&goto
eof
:case8
echo.
echo
我是case8
pause&goto
eof

@echo off
<"%~f0" more +5 >tmp.vbs
cscript //NoLogo /e:vbscript tmp.vbs %1>ip.txt
echo >nul && del tmp.vbs
goto:eof
set oDOM = WScript.GetObject("http://www.ip138.com/ip2city.asp")

do until oDOM.readyState = "complete"
WScript.sleep 200
Loop
s=oDOM.documentElement.innerText
set re = New RegExp
re.Pattern="(\d+)\.(\d+)\.(\d+)\.(\d+)"
For Each m in re.Execute(s)
WScript.Echo m
Next
能把这个解释一下吗

对于批处理要求还那么高