1С 8.3 : Функция очищает текст в формате HTML от тегов и возвращает неформатированный текст

 // Очищает текст в формате 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);

		КонецЕсли;

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

	КонецЦикла;

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

	

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

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