До недавнего времени меня расстраивал тот факт, что в 1С нет таких замечательных свойств для объектов ЭлементHTML. Теперь это позади! Нет — сделаем сами. Мы же программисты, товарищи программисты :). А если отсутствие этих свойств Вас это до сих пор расстраивает — добро пожаловать под кат
Обратившись к своей же статье я сделал эти две замечательные функции. Вот код:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
Функция outerHTML(ЭлементHTML) ЗаписьDOM = Новый ЗаписьDOM; ЗаписьHTML = Новый ЗаписьHTML; ЗаписьHTML.УстановитьСтроку(); ЗаписьDOM.Записать(ЭлементHTML, ЗаписьHTML); Возврат ЗаписьHTML.Закрыть(); КонецФункции Функция innerHTML(ЭлементHTML) ЗаписьDOM = Новый ЗаписьDOM; ЗаписьHTML = Новый ЗаписьHTML; ЗаписьHTML.УстановитьСтроку(); Для Каждого Стр из ЭлементHTML.ДочерниеУзлы Цикл ЗаписьDOM.Записать(Стр, ЗаписьHTML); КонецЦикла; Возврат ЗаписьHTML.Закрыть(); КонецФункции |