[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
回复 7# idwma
确实有点矛盾
假如你要用多选的选择框启动程序,选1启动1.bat选2启动2.bat选3启动3.bat(可多选)
假如你多选了2和3同时启动2.bat和3.bat
如果你空选了提就示你空选了!这种怎么做?

TOP

回复 4# ANSL


    有点绕呀,如果不需要多选,那要按空格选中这步也可以不不需要呀

TOP

多选菜单
  1. @echo off & cd /d "%~dp0"
  2. setlocal enabledelayedexpansion
  3. call :get_menu "menu-item-1" "menu-item-2" "menu-item-3" "menu-item-4" "menu-item-5"
  4. echo 选择了%_ret%项
  5. pause&exit
  6. REM 多选择菜单
  7. REM [返回值 _ret]
  8. REM [参数 菜单列表 ...]
  9. :get_menu
  10. set "_n=0"
  11. for %%i in (%*) do set /a "_n+=1"
  12. if "%_cur%"=="" set "_cur=1"
  13. call :show_menu %_cur% %*
  14. echo.
  15. choice /C "WSAY" /N /M "WS切换,A标记,Y确定 "
  16. if "%errorlevel%"=="4" ( set "_ret=" & (for /f "tokens=2 delims==_" %%i in ('set _n_ 2^>nul') do set "_ret=!_ret! %%i") & goto :eof)
  17. if "%errorlevel%"=="3" if "!_n_%_cur%!"=="1" ( set "_n_%_cur%=" ) else ( set "_n_%_cur%=1" )
  18. if "%errorlevel%"=="2" if %_cur% lss %_n% set /a "_cur+=1"
  19. if "%errorlevel%"=="1" if %_cur% gtr 1 set /a "_cur-=1"
  20. cls&goto :get_menu %*
  21. REM 显示菜单
  22. REM [参数 选择项 菜单列表 ...]
  23. :show_menu
  24. set /a "_i=%~1,_j=1" & shift /1
  25. :L1
  26. if "%~1"=="" goto :eof
  27. if "%_i%"=="%_j%" ( call :show_str 255 0 0 %~1 & goto :L2)
  28. if "!_n_%_j%!"=="1" ( call :show_str 0 255 0 %~1 & goto :L2)
  29. call :show_str 255 255 255 %~1
  30. :L2
  31. shift /1 & set /a "_j+=1" & goto :L1
  32. REM 显示彩色字符串
  33. REM [参数 R,G,B,str]
  34. :show_str
  35. echo.[38;2;%~1;%~2;%~3m%~4
  36. goto :eof
复制代码

TOP

看了这篇彩色显示,撸了一个高亮单选菜单http://www.bathome.net/redirect.php?goto=findpost&pid=252648&ptid=61903
测试的是win11系统
  1. @echo off & cd /d "%~dp0"
  2. call :get_menu "menu-item-1" "menu-item-2" "menu-item-3" "menu-item-4" "menu-item-5"
  3. echo 选择了第%errorlevel%项
  4. pause&exit
  5. REM 选择菜单,参数 菜单列表 ...
  6. :get_menu
  7. set "_n=0"
  8. for %%i in (%*) do set /a "_n+=1"
  9. if "%_cur%"=="" set "_cur=1"
  10. call :show_menu %_cur% %*
  11. echo.
  12. choice /C "WSY" /N /M "WS切换,Y确定"
  13. if "%errorlevel%"=="3" exit /b %_cur%
  14. if "%errorlevel%"=="2" if %_cur% lss %_n% set /a "_cur+=1"
  15. if "%errorlevel%"=="1" if %_cur% gtr 1 set /a "_cur-=1"
  16. cls&goto :get_menu %*
  17. REM 显示菜单
  18. :show_menu
  19. set /a "_i=%~1,_j=1" & shift /1
  20. :L1
  21. if "%~1"=="" goto :eof
  22. if "%_i%"=="%_j%" ( call :show_str 0 255 0 %~1 ) else ( call :show_str 255 255 255 %~1)
  23. shift /1 & set /a "_j+=1" & goto :L1
  24. REM 显示彩色字符串,参数 R,G,B,str
  25. :show_str
  26. echo.[38;2;%~1;%~2;%~3m%~4
  27. goto :eof
复制代码
1

评分人数

TOP

本帖最后由 ANSL 于 2022-4-2 19:19 编辑

回复 2# idwma我想加个防空选,未选中的样式改成<第一个[]>
选中样式:<第一个[X]>
就是把选中时的>1[]
改成<1[]>
如果空选显示 你空选了!
而且只能选一个!
如多选显示 你多选了!
只能选一个
选第1个显示1
选第2个显示2
选第3个显示3
谢谢大佬!

TOP

回复 2# idwma
大佬,你那个上下菜单太有趣了,我模仿了一个
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. for /f %%i in ('echo;prompt $h^|cmd') do set "b=%%i"
  4. for /f "delims=U" %%i in ('cmd/u/c echo;唉') do set "t=%%i"
  5. set "s=  "
  6. for /l %%a in (1,1,62) do set "bs=!bs!!b!"
  7. rem 分别定义退格符、制表符、空格、和大量退格符
  8. set c1=选项1
  9. set c2=选项2
  10. set c3=选项3
  11. set c4=选项4
  12. set cn=4
  13. set /a i=cn*1000
  14. set mod=0
  15. rem cn变量表示选项数量,用取余可以让选择框循环的上上下下
  16. rem i变量为了避免成为负数,乘以1000
  17. :l
  18. if %mod%==0 (echo;[%c1%]) else echo;%c1%%s%
  19. if %mod%==1 (echo;[%c2%]) else echo;%c2%%s%
  20. if %mod%==2 (echo;[%c3%]) else echo;%c3%%s%
  21. if %mod%==3 (echo;[%c4%]) else echo;%c4%%s%
  22. rem 每个选项后加一两个空格增加容错率......
  23. for /f %%i in ('powershell "[Console]::ReadKey(1).key"') do (
  24.     if /i %%i neq enter (
  25.         if /i %%i==uparrow  set /a i-=1
  26.         if /i %%i==downarrow  set /a i+=1
  27.         set/a mod=i%%cn
  28.         2>nul echo;!t!!bs! &set /p=!b!<nul
  29.         rem 参考老帖‘多行回退’,代替cls清屏
  30.         goto :l
  31.     )
  32. )
  33. echo %mod%
  34. rem  根据余数call标签函数,略过。
  35. pause
复制代码
2

评分人数

TOP

把上次的演进一下
  1. @echo off&setlocal enabledelayedexpansion
  2. set i=0
  3. :l
  4. cls
  5. if %i%==1 set /p "=>" <nul
  6. echo [%_s1%]a
  7. if %i%==2 set /p "=>" <nul
  8. echo [%_s2%]b
  9. if %i%==3 set /p "=>" <nul
  10. echo [%_s3%]c
  11. for /f %%i in ('powershell "[int][Console]::ReadKey(1).key"') do (
  12.     if not %%i==13 (
  13.         if %%i==38 if not %i%==1 set /a i-=1
  14.         if %%i==40 if not %i%==3 set /a i+=1
  15.         if %%i==32 if defined _s!i! (set _s!i!=) else (set _s!i!=x)
  16.         goto :l
  17.     )
  18. )
  19. echo %i%
  20. for /f "delims==" %%i in ('set _s') do echo %%i
  21. pause
复制代码
1

评分人数

    • ANSL: 谢谢!技术 + 1

TOP

返回列表