в скрипте есть главное меню и несколько подменю.. всё работает но есть недостаток с выходом в главное меню.. например захожу в справочник... всё работает... но чтобы вернутся в главное меню приходится закрывать батник и открывать по новой...
подскажите как назначить клавишу esc для возврата в главное меню...если такое возможно.
PHP код:
@echo off
chcp 1251
mode con: cols=70 lines=3000
:main_menu
color 1e
title Справочник
cls
echo.
echo ТЕЛЕФОННЫЙ СПРАВОЧНИК
echo.
echo. 1 - Справочник
echo. 2 - Архивные базы
echo. 3 - Создать список из nomera.txt
echo. 4 - Редактировать base.txt
echo. 5 - Поиск
echo. 6 - Открыть nomera.txt
echo. 7 - Свободные порты adsl
echo. 8 - Выход
echo.
set mymenu=x
set /p mymenu="Команда:"
cls
if /i %mymenu%==1 goto label1
if /i %mymenu%==2 goto label2
if /i %mymenu%==3 goto label3
if /i %mymenu%==4 goto label4
if /i %mymenu%==5 goto label5
if /i %mymenu%==6 goto label6
if /i %mymenu%==7 goto label7
if /i %mymenu%==8 goto end
goto main_menu
:label1
:repeat1
set /p text="Поиск:"
echo %text%>>temp.txt
findstr /l /g:temp.txt base.txt>poisk.txt
echo ______________________________________________________________________
type poisk.txt
echo ______________________________________________________________________
del temp.txt
pause>nul
cls
del poisk.txt
goto:repeat1
:label2
set /P var1="Дата создания базы:"
CLS
:repeat2
echo Дата создания базы %var1%
set /p text="Поиск:"
echo %text%>>temp.txt
findstr /l /g:temp.txt safe_base%var1%_base.txt>poisk.txt
echo ______________________________________________________________________
type poisk.txt
echo ______________________________________________________________________
del temp.txt
pause>nul
cls
del poisk.txt
goto:repeat2
:label3
findstr /l /g:nomera.txt base.txt>otkl.txt
start otkl.txt
goto main_menu
:label4
copy base.txt safe_base%date%_base.txt
start base.txt
goto main_menu
:label5
:repeat3
set /p text="Поиск:"
echo %text%>>temp.txt
findstr /l /g:temp.txt base.txt>poisk.txt
start poisk.txt
del temp.txt
pause>nul
cls
del poisk.txt
goto:repeat3
:label6
start nomera.txt
goto main_menu
:label7
start adsl.txt
goto main_menu
:end
exit
