Замена HTML кодов символов в тексте средствами 1С

В системе 1С есть возможность запрашивать web-страницы. При запросе HTML страниц может возникнуть
необходимость в замене HTML кодов на соответствующие символы. HTML коды символов часто используются при создании web страниц. В Интернете можно найти таблицы соответствий символов кодам.

Простая функция замены

Функция ЗаменаHTMLКодов(Знач ВходящаяСтрока)

	СоответствиеКодов = Новый Соответствие();
	СоответствиеКодов.Вставить("[", "[");
	СоответствиеКодов.Вставить("]", "]");	
	СоответствиеКодов.Вставить(" ", " ");
	
	Для каждого ЭлементКод Из СоответствиеКодов Цикл
		ВходящаяСтрока = СтрЗаменить(ВходящаяСтрока, ЭлементКод.Ключ, ЭлементКод.Значение);
	КонецЦикла; 
	
	Возврат ВходящаяСтрока;
	
КонецФункции

 

Универсальная функция замены HTML кодов на символы

Функция УниверсальнаяЗаменаHTMLКодов(Знач ВходящаяСтрока)
 
	МногострочнаяСтрока = СтрЗаменить(ВходящаяСтрока, "&#", Символы.ПС);
	МногострочнаяСтрока = СтрЗаменить(МногострочнаяСтрока, ";", Символы.ПС);
	
	Для НомерСтроки = 1 По СтрЧислоСтрок(МногострочнаяСтрока) Цикл
	
		ПодСтрока = СтрПолучитьСтроку(МногострочнаяСтрока, НомерСтроки);
		
		Если Найти(ПодСтрока, " ") > 0 ИЛИ ПустаяСтрока(ПодСтрока) Тогда
			Продолжить;
		КонецЕсли; 
		
		Попытка
			КодСимвола = Число(ПодСтрока);
		Исключение
			Продолжить;	   
		КонецПопытки;
							
		Символ = Символ(КодСимвола);
		ЗаменяемаяПодСтрока = "&#" + ПодСтрока + ";";
		ВходящаяСтрока = СтрЗаменить(ВходящаяСтрока, ЗаменяемаяПодСтрока, Символ);
		
	КонецЦикла; 	
	
	Возврат ВходящаяСтрока;

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