// Очищает текст в формате HTML от тегов и возвращает неформатированный текст. 

Функция ИзвлечьТекстИзHTML(Знач ИсходныйТекст) Экспорт

	Результат = "";

	

	Текст = НРег(ИсходныйТекст);

	

	// отрезаем всё что не body

	Позиция = Найти(Текст, "<body");

	Если Позиция > 0 Тогда

		Текст = Сред(Текст, Позиция + 5);

		ИсходныйТекст = Сред(ИсходныйТекст, Позиция + 5);

		Позиция = Найти(Текст, ">");

		Если Позиция > 0 Тогда

			Текст = Сред(Текст, Позиция + 1);

			ИсходныйТекст = Сред(ИсходныйТекст, Позиция + 1);

		КонецЕсли;

	КонецЕсли;

	

	Позиция = Найти(Текст, "</body>");

	Если Позиция > 0 Тогда

		Текст = Лев(Текст, Позиция - 1);

		ИсходныйТекст = Лев(ИсходныйТекст, Позиция - 1);

	КонецЕсли;

	

	// вырезаем скрипты

	Позиция = Найти(Текст, "<script");

	Пока Позиция  > 0 Цикл

		ПозицияЗакрывающегоТега = Найти(Текст, "</script>");

		Текст = Лев(Текст, Позиция - 1) + Сред(Текст, ПозицияЗакрывающегоТега + 9);

		ИсходныйТекст = Лев(ИсходныйТекст, Позиция - 1) + Сред(ИсходныйТекст, ПозицияЗакрывающегоТега + 9);

		Позиция = Найти(Текст, "<script");

	КонецЦикла;

	

	// вырезаем все теги	

	Позиция = Найти(Текст, "<");

	Пока Позиция > 0 Цикл

		Результат = Результат + Лев(ИсходныйТекст, Позиция-1);

		Текст = Сред(Текст, Позиция + 1);

		ИсходныйТекст = Сред(ИсходныйТекст, Позиция + 1);

		Позиция = Найти(Текст, ">");

		Если Позиция > 0 Тогда

			Текст = Сред(Текст, Позиция + 1);

			ИсходныйТекст = Сред(ИсходныйТекст, Позиция + 1);

		КонецЕсли;

		Позиция = Найти(Текст, "<");

	КонецЦикла;

	Результат = Результат + ИсходныйТекст;

	

	Возврат СокрЛП(Результат);

КонецФункции   

 // Мигачев Евгений

	УстановитьЗаголовокСистемы(Метаданные.Синоним+"   ( База: "+СтрокаСоединенияИнформационнойБазы()+" )");    

 // Мигачев Евгений Изменение Стиля в зависимости от базы

	СтрокаСоединенияСБД = СтрокаСоединенияИнформационнойБазы();

	// в зависимости от того файловый это вариант БД или нет,  по-разному отображается путь в БД 

	ПозицияПоиска = Найти(Врег(СтрокаСоединенияСБД), "FILE=");

	Если ПозицияПоиска = 1 тогда

		//База "Файловая", меняем стиль отображения	

		ГлавныйСтиль=БиблиотекаСтилей["Разработка"];

	Иначе 

		//База "Серверная" - оставляем все как есть		

	КонецЕсли;