[其他] [已解决]批处理怎么做一个可以上下移动的选择框？

ANSL

选中前[ ]
选中后[X]
按空格选中
再按一下取消选中
选完按Enter
有三个选择框按上下迁换到不同的选择框
选第1个显示1
选第2个显示2
选第3个显示3

idwma

回复 21# ANSL

@echo off&setlocal enabledelayedexpansion
set i=0
:l
cls
if %i%==1 set /p "=>" <nul
echo [%_s1%]a
if %i%==2 set /p "=>" <nul
echo [%_s2%]b
if %i%==3 set /p "=>" <nul
echo [%_s3%]c

for /f %%i in ('powershell "[int][Console]::ReadKey(1).key"') do (
    if not %%i==13 (
        if %%i==38 if not %i%==1 set /a i-=1
        if %%i==40 if not %i%==3 set /a i+=1
        if %%i==32 if defined _s!i! (set _s!i!=) else (set _s!i!=x)
        goto :l
    )
)
echo %i%
for /f "delims==" %%i in ('set _s') do (
 set f=1
 if %%i==_s1 (start 1.bat) else if %%i==_s2 (start 2.bat) else if %%i==_s3 (start 3.bat)
)
if not defined f echo 空
pause
复制代码

ANSL

回复 20# idwma
1.bat

@ echo off
echo running 1.bat
pause
exit
复制代码

2.bat

@ echo off
echo running 2.bat
pause
exit
复制代码

3.bat

@ echo off
echo running 3.bat
pause
exit
复制代码

idwma

回复 19# ANSL


    123bat里的代码是什么样的

ANSL

回复 14# idwma

@echo off&setlocal enabledelayedexpansion
set i=0
:l
cls
if %i%==1 set /p "=>" <nul
echo [%_s1%]a
if %i%==2 set /p "=>" <nul
echo [%_s2%]b
if %i%==3 set /p "=>" <nul
echo [%_s3%]c

for /f %%i in ('powershell "[int][Console]::ReadKey(1).key"') do (
    if not %%i==13 (
        if %%i==38 if not %i%==1 set /a i-=1
        if %%i==40 if not %i%==3 set /a i+=1
        if %%i==32 if defined _s!i! (set _s!i!=) else (set _s!i!=x)
        goto :l
    )
)
echo %i%
for /f "delims==" %%i in ('set _s') do (
 set f=1
 if %%i==_s1 (1.bat) else if %%i==_s2 (2.bat) else if %%i==_s3 (3.bat)
)
if not defined f echo 空
复制代码

idwma

回复 17# 5i365


    不太清楚在ise里可能不适用吧

5i365

回复 11# idwma


   我在ISE中试的好像是死循环, 报下面的错
>Exception calling "SetCursorPosition" with "2" argument(s): "句柄无效。
"
At line:16 char:5
+     [Console]::SetCursorPosition(0,$mod)
+     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    + CategoryInfo          : NotSpecified: ( [], MethodInvocationException
    + FullyQualifiedErrorId : IOException

Exception calling "ReadKey" with "1" argument(s): "Cannot read keys when either application does not have a console or when console input has been redirected from a file
. Try Console.Read."
At line:9 char:5
+     $i=[int][Console]::ReadKey(1).key
+     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    + CategoryInfo          : NotSpecified: (:) [], MethodInvocationException
    + FullyQualifiedErrorId : InvalidOperationException

Exception calling "SetCursorPosition" with "2" argument(s): "句柄无效。
"
At line:14 char:5
+     [Console]::SetCursorPosition(0,$mod)
+     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    + CategoryInfo          : NotSpecified: (:) [], MethodInvocationException
    + FullyQualifiedErrorId : IOException

>Exception calling "SetCursorPosition" with "2" argument(s): "句柄无效。
"
At line:16 char:5
+     [Console]::SetCursorPosition(0,$mod)
+     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    + CategoryInfo          : NotSpecified: (:) [], MethodInvocationException
    + FullyQualifiedErrorId : IOException

idwma

回复 15# 5i365


    运行的代码看一下

5i365

回复 11# idwma


   我刚试了一下, 这个报错

idwma

回复 13# ANSL


    可否看一下你运行的代码

ANSL

回复 9# idwma怎么回事?
只要多选回显就会关闭@ echo off没用

5i365

回复 11# idwma


   技术牛X 感谢分享,

idwma

回复 10# 5i365

方法大同小异呀

$menu=@(
' a'
' b'
' c'
)
$menu
$ii=$menu.count*1000
while($i -ne 13){
    $i=[int][Console]::ReadKey(1).key
    if($i -eq 38){$ii--}
    if($i -eq 40){$ii++}
    $mod=$ii%$menu.count
    write-host ' ' -no
    [Console]::SetCursorPosition(0,$mod)
    write-host '>' -no
    [Console]::SetCursorPosition(0,$mod)
}
复制代码

5i365

回复 9# idwma


   大侠好, 能用纯ps实现一下吗

idwma

回复 8# ANSL

后面两行,大概像这样,也可以参考一下上面wf两位大佬的方法,根据自己的想法尝试改一下

for /f "delims==" %%i in ('set _s') do (
 set f=1
 if %%i==_s1 (1.bat) else if %%i==_s2 (2.bat) else if %%i==_s3 (3.bat)
)
if not defined f echo 空
复制代码