|
(*~\Глагол\Отделы\Обмен~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*)
(**) ОТДЕЛ Справка;
(*============================================================================*
* НАЗНАЧЕНИЕ: работа в Оболочке с ".CHM" справочником средствами ОС
* ПРИМЕЧАНИЯ: вызов ОС происходит через Spravka.DLL
*============================================================================*)
ИСПОЛЬЗУЕТ
Цепь ИЗ "..\Иное\";
ПЕР
(* полное имя файла .CHM справочника *)
имяФ:ЦЕПЬ[300];
ЗАДАЧА Kluch(имяФ-,ключ-:ЦЕПЬ); ВЫЗОВ "Kluch" ИЗ "Spravka.dll";
ЗАДАЧА Nomer(имяФ-:ЦЕПЬ; номер:ЦЕЛ); ВЫЗОВ "Nomer" ИЗ "Spravka.dll";
ЗАДАЧА Razdel(имяФРаздел-:ЦЕПЬ); ВЫЗОВ "Razdel" ИЗ "Spravka.dll";
(******************************************************************************)
ЗАДАЧА Ключ-(ключ-:ЦЕПЬ);
(* Цель: поиск разделов по ключевому слову *)
УКАЗ
Kluch(имяФ,ключ)
КОН Ключ;
(******************************************************************************)
ЗАДАЧА Номер-(номер:ЦЕЛ);
(* Цель: поиск раздела по его номеру *)
УКАЗ
Nomer(имяФ,номер)
КОН Номер;
(******************************************************************************)
ЗАДАЧА Раздел-(раздел-:ЦЕПЬ);
(* Цель: поиск раздела по его .htm имени *)
ПЕР
имяФРаздел:ЦЕПЬ[300]; (* полное имя файла в .CHM справочнике *)
УКАЗ
СПИСАТЬ(имяФ,имяФРаздел);
Цепь.Добавить(имяФРаздел,"::/");
Цепь.Добавить(имяФРаздел,раздел);
(* имяФРаздел = "c:\\Справка.chm::/Введение.htm>okno" *)
Razdel(имяФРаздел)
КОН Раздел;
(******************************************************************************)
ЗАДАЧА Подготовить-(имяФ-:ЦЕПЬ);
(* Цель: подготовить вызовы внешних задач
* До: <имяФ> - полное имя файла .CHM справочника *)
УКАЗ
СПИСАТЬ(имяФ,Справка.имяФ)
КОН Подготовить;
КОН Справка.
|
|