Выбор меню в batch - Компьютерный форум OSzone.net

Спасибо alpap за интересное предложение.
Пример использования

Код:

@Echo Off

cls

>nul Chcp 1251



Set /A ps=1

:Begin

        Set "Wselect=Z:\WSelect\Wselect.exe"



        Set "Wmenu=%temp%\%~nx0.lst"



        Set  "@Wmenu101=У попа была собака"

        Set  "@Wmenu102=Поп ее любил"

        Set  "@Wmenu103=Она съела кусок мяса"

        Set  "@Wmenu104=Поп ее убил"

        Set  "@Wmenu105=Завершить глумление"



        >"%Wmenu%" (FOR /F "usebackq tokens=1* delims==" %%i In (`2^>nul Set "@Wmenu"`) DO Echo %%j)



        >nul 2>&1 "%Wselect%" "%Wmenu%" "Заголовок меню" $item "Выбирайте пункт:" /menu /cmdCenter /fs=10 /bg=#ffCC88 /fc=#440088 /hc=#CC0000 /ps=%ps%

        

        If %ErrorLevel% EQU 0 GoTo :Begin

        Set /A ps=%ErrorLevel%



        If %ps% EQU 5 (Del "%Wmenu%" &Exit /B)



        If %ps% EQU 1 Call :Sub1 "%@Wmenu101%" 

        If %ps% EQU 2 Call :Sub1 "%@Wmenu102%" 

        If %ps% EQU 3 Call :Sub1 "%@Wmenu103%" 

        If %ps% EQU 4 Call :Sub1 "%@Wmenu104%"

GoTo :Begin 

Exit /B



:Sub1

        Echo %~1

        Pause

Exit /B