Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)
-   -   назначить клавишу esc для возврата в главное меню (http://forum.oszone.net/showthread.php?t=220442)

systemroot 14-11-2011 11:29 1794718

назначить клавишу esc для возврата в главное меню
 
в скрипте есть главное меню и несколько подменю.. всё работает но есть недостаток с выходом в главное меню.. например захожу в справочник... всё работает... но чтобы вернутся в главное меню приходится закрывать батник и открывать по новой...
подскажите как назначить клавишу esc для возврата в главное меню...если такое возможно.

PHP код:

@echo off
chcp 1251
mode con
cols=70 lines=3000
:main_menu
color 1e
title Справочник
cls
echo.
echo          
ТЕЛЕФОННЫЙ СПРАВОЧНИК
echo.
echo.    
Справочник 
echo.    Архивные базы
echo.    Создать список из nomera.txt
echo.    Редактировать base.txt
echo.    Поиск
echo.    Открыть nomera.txt 
echo.    Свободные порты adsl
echo.    Выход
echo.
set mymenu=x
set 
/p mymenu="Команда:"
cls
if /%mymenu%==1 goto label1
if /%mymenu%==2 goto label2
if /%mymenu%==3 goto label3
if /%mymenu%==4 goto label4
if /%mymenu%==5 goto label5
if /%mymenu%==6 goto label6
if /%mymenu%==7 goto label7
if /%mymenu%==8 goto end
goto main_menu
:label1
:repeat1
set 
/p text="Поиск:"
echo %text%>>temp.txt
findstr 
//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 
//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 
//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 
//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 



Время: 06:52.

Время: 06:52.
© OSzone.net 2001-