中国DOS联盟

例:
:stat

echo 自动1 2 3
echo 手动1 2 3


set ST=s
set /p ST= 请根据以上项目选择后按回车键:
if %ST%==0 (
set ok=0
goto stat
)else (
if "%ST%"=="1" goto 1
if "%ST%"=="2" goto 2
if "%ST%"=="3" goto 3
)
goto stat

:1
test

:2
test

:3
test



请教如何将自动启用？
也就是说，选择后可以自动执行所多选的:下的命令

给你写个简单的示例，如下：

@echo off&setlocal enabledelayedexpansion

:s

cls&set n=0&set s=

rem 清屏并初始本地环境变量

set/p t=请输入1到3之间的数字任意组合,0为重新开始选择:

:n

if not "!t:~%n%,1!"=="" set "s=!s! !t:~%n%,1!"&set/a n+=1&goto n

rem 逐个截取变量t，并为其前面追加一个空格，然后合成为一个变量s

for %%i in (%s%) do call :%%i

rem 解析变量s，并逐个调用以解析后变量%%i为标签的子批处理

echo 按任意键重新开始选择&pause>nul

goto s



:1:功能1

echo 1

goto :eof



:2:功能2

echo 2

goto :eof



:3:功能3

echo 3

goto :eof



:0:返回

goto s

rem 为上一行代码的解释

Last edited by Hanyeguxing on 2010-4-1 at 17:30 ]

呵呵。非常感谢。
现在手动输入任意可都执行了。。。

但是可否将输入的123等做个命令批处理？如：输入4后，分别执行123下的命令？

可否实现？请教。

Originally posted by Hanyeguxing at 2010-4-1 16:24:
给你写个简单的示例，如下：

@echo off&setlocal enabledelayedexpansion

:s

cls&set n=0&set s=

rem 清屏并初始本地环境变量

set/p t=请输入1到3之间的数 ... 





呵呵。非常感谢。
现在手动输入任意可都执行了。。。

但是可否将输入的123等做个命令批处理？如：输入4后，分别执行123下的命令？

可否实现？请教。

@echo off&setlocal enabledelayedexpansion

:s

cls&set n=0&set s=&set t=

set/p t=请输入1到3之间的数字任意组合,4为全部功能依次执行:

if %t%==4 set t=123

:n

if not "!t:~%n%,1!"=="" set "s=!s! !t:~%n%,1!"&set/a n+=1&goto n

for %%i in (%s%) do call :%%i

:e:返回

echo 请按任意键重新开始

pause>nul

goto s



:1:功能1

echo 1

goto :eof



:2:功能2

echo 2

goto :eof



:3:功能3

echo 3

Last edited by Hanyeguxing on 2010-4-2 at 20:55 ]

下面的代码增加了键入检测：
1，检测键入字符是否合法。
2，增加容错，即允许重复键入，例如112，或1213，但重复的部分只执行一次。
3，10以内的代码，无论键入顺序如何，始终按照1到9执行。

@echo off

:s

cls&Endlocal

setlocal enabledelayedexpansion

set

set/p t=请输入1到3之间的数字任意组合,4为全部功能依次执行:

if %t%==4 set t=123

set m=%t%

for /l %%i in (1 1 3) do if not "!m!"=="" set "m=!m:%%i=!"

if not "%m%"=="" echo 输入错误&goto :e

:n

if not "!t:~%n%,1!"=="" set "han_!t:~%n%,1!=ye"&set/a n+=1&goto n

for /f "delims==" %%i in ('set^|find /i "han_"') do set t=%%i&set "s=!s! !t:~4!"

for %%i in (%s%) do call :%%i

:e:返回

echo 请按任意键重新开始

pause>nul

goto s



:1:功能1

echo 1

goto :eof



:2:功能2

echo 2

goto :eof



:3:功能3

echo 3

Last edited by Hanyeguxing on 2010-4-2 at 20:54 ]

真的非常感谢