ЭлементАплетHTML.ВставитьПеред

Вставить, заменить и удалить собственные служебные узлы контейнеров

В контейнерных элементах работаем с безопасными HTML-комментариями. Не добавляем детей в пустые теги input, img, col, meta, link, hr, frame и embed.

Подготовка

1. Используйте учебную базу платформы 8.5.1.1343 и серверную процедуру учебного общего модуля. Каждый пример выполняйте отдельно.

2. Все данные заказа вымышлены и находятся в строке. ЧтениеHTML разбирает данные, но не является браузером: форма не отправляется, ссылки не открываются, картинки не скачиваются.

3. Никакие файлы, адреса сайтов, токены и документы информационной базы не нужны. Не заменяйте учебную строку произвольным внешним HTML без отдельной проверки безопасности.

4. Индексы коллекций начинаются с нуля. Перед обращением к найденному узлу проверяйте Неопределено; перед специальными свойствами элемента проверяйте его тип.

HTML = "<html><head><title>Учебный заказ</title><meta id='meta' name='description' content='Вымышленный заказ'></head>
|<body id='body'><p id='note'>Заказ существует только в памяти</p><pre id='code'>A-01: 3
|B-02: 1</pre>
|<form id='order' name='order' action='' method='get'>
|<input id='customer' name='customer' type='text' value='Учебный покупатель'>
|<input id='accepted' name='accepted' type='checkbox' value='yes'>
|<button id='preview' name='preview' type='button' value='preview'>Предпросмотр</button></form>
|<table id='items' summary='Книга и ручка'><caption id='caption'>Товары</caption><colgroup><col id='column'></colgroup><tbody>
|<tr id='book'><td id='book-name'>Книга</td><td>3</td></tr><tr id='pen'><td>Ручка</td><td>1</td></tr>
|</tbody></table><a id='help' name='help' href='#note'>Пояснение</a><img id='logo' alt='Учебная картинка без источника'>
|</body></html>";
Чтение = Новый ЧтениеHTML;
Чтение.УстановитьСтроку(HTML);
Попытка
    Построитель = Новый ПостроительDOM;
    Документ = Построитель.Прочитать(Чтение);
Исключение
    Чтение.Закрыть();
    ВызватьИсключение;
КонецПопытки;
Чтение.Закрыть();
Если ТипЗнч(Документ) <> Тип("ДокументHTML") Тогда
    ВызватьИсключение "Ожидался ДокументHTML, а не XML-документ";
КонецЕсли;
Ожидаемые = Новый Соответствие;
Ожидаемые.Вставить("guide-section", "ЭлементHTML");
Ожидаемые.Вставить("div", "ЭлементБлокHTML");
Ожидаемые.Вставить("pre", "ЭлементФорматированногоТекстаHTML");
Ожидаемые.Вставить("form", "ЭлементФормаHTML");
Ожидаемые.Вставить("button", "ЭлементКнопкаHTML");
Ожидаемые.Вставить("table", "ЭлементТаблицаHTML");
Ожидаемые.Вставить("tr", "ЭлементСтрокаТаблицыHTML");
Ожидаемые.Вставить("td", "ЭлементЯчейкаТаблицыHTML");
Ожидаемые.Вставить("caption", "ЭлементЗаголовокТаблицыHTML");
Ожидаемые.Вставить("a", "ЭлементЯкорьHTML");
Ожидаемые.Вставить("head", "ЭлементЗаголовокHTML");
Ожидаемые.Вставить("html", "ЭлементРазметкаHTML");
Ожидаемые.Вставить("script", "ЭлементСкриптHTML");
Ожидаемые.Вставить("iframe", "ЭлементПлавающийФреймHTML");
Ожидаемые.Вставить("frameset", "ЭлементНаборФреймовHTML");
Ожидаемые.Вставить("object", "ЭлементОбъектHTML");
Ожидаемые.Вставить("applet", "ЭлементАплетHTML");
Для Каждого Пара Из Ожидаемые Цикл
    Узел = Документ.СоздатьЭлемент(Пара.Ключ);
    Если ТипЗнч(Узел) <> Тип(Пара.Значение) Тогда
        ВызватьИсключение "Фактический тип фабрики отличается для " + Пара.Ключ;
    КонецЕсли;
    Первый = Документ.СоздатьКомментарий("Урок A-01");
    Второй = Документ.СоздатьКомментарий("Проверка 3");
    НовыйУзел = Документ.СоздатьКомментарий("Проверка завершена");
    Узел.ДобавитьДочерний(Первый);
    Узел.ВставитьПеред(Второй, Первый);
    Сообщить(Узел.ПервыйДочерний = Второй);
    Узел.ЗаменитьДочерний(НовыйУзел, Первый);
    Сообщить(Узел.ПоследнийДочерний = НовыйУзел);
    Сообщить(Первый.РодительскийУзел = Неопределено);
    Узел.Нормализовать();
    Сообщить(Узел.ДочерниеУзлы.Количество() = 2);
    Удалённый = Узел.УдалитьДочерний(Второй);
    Сообщить(Удалённый = Второй);
    Узел.УдалитьДочерний(НовыйУзел);
    Сообщить(Не Узел.ЕстьДочерниеУзлы());
КонецЦикла;

Разбор по шагам

1. Обрабатываем только 17 непустых по модели HTML тегов; элементы остаются вне документа заказа.

2. ДобавитьДочерний вставляет первый служебный узел, ВставитьПеред добавляет второй перед ним.

3. ЗаменитьДочерний вызывается без присваивания результата; прежний узел становится отсоединённым.

4. Нормализовать не объединяет HTML-комментарии, затем удаляем два оставшихся узла.

Как проверить результат

1. Шесть сравнений для каждого контейнера Истина; в конце у него снова нет детей.

2. Комментарии не отображаются как текст заказа и не содержат исполняемого кода.

Ожидаемый результат

Показаны основные операции изменения дочернего дерева на конкретных контейнерных типах.

На что обратить внимание

1. Не используйте текст комментария как скрытое хранилище секретов.

2. Служебные комментарии не равны тегам товаров или новым строкам таблицы.

Пример не запускался в вашей базе. Перед применением проверьте его в указанном учебном контексте.