СущностьDOM.КлонироватьУзел

Клонировать объявление и отделить равенство от идентичности

Своя служебная пометка связана с узлом, не с XML-текстом. Копия похожа по структуре, но не является тем же объектом и не наследует пользовательские данные.

Подготовка

1. Только отдельная учебная база. Создайте серверный общий модуль УчебныеЗадачи с процедурой ВыполнитьПример() Экспорт. Полный модуль каждого урока вставьте целиком, включая уже показанную процедуру.

2. XML содержит только собственный внутренний DTD. Внешнего подмножества DOCTYPE нет, SYSTEM/PUBLIC в двух объявлениях — учебные URN, не пути и не HTTP-адреса.

3. guideIcon — неразбираемая сущность NDATA; она объявлена, но не используется как &guideIcon; в тексте. Её ресурс не загружается. Нотация описывает формат, не изображение.

4. Параметры и построитель создаются заново для этой известной строки. Никогда не переносите разрешение DTD на произвольный XML из интернета или API.

5. Вызовите УчебныеЗадачи.ВыполнитьПример() из серверной учебной команды. Нет записи базы, файлов или сетевых соединений; поведение DOM 1С ещё требует контрольного запуска в учебной базе.

Процедура ВыполнитьПример() Экспорт
    Параметры = Новый ПараметрыЧтенияXML(, , , , , Ложь);
    Чтение = Новый ЧтениеXML;
    Чтение.УстановитьСтроку("<?xml version=""1.0""?>
    |<!DOCTYPE products [
    |<!NOTATION guideMark PUBLIC ""guide-marker"" ""urn:guide:marker-format"">
    |<!ENTITY guideIcon SYSTEM ""urn:guide:marker-payload"" NDATA guideMark>
    |]>
    |<products xmlns:g=""urn:guide:dtd""><product>Книга</product></products>", Параметры);
    Построитель = Новый ПостроительDOM;
    Настройки = Построитель.КонфигурацияDOM;
    Если НЕ Настройки.ВозможноУстановитьПараметр("disallow-doctype", Ложь) Тогда
        Чтение.Закрыть();
        ВызватьИсключение "Построитель не разрешает собственный внутренний DTD";
    КонецЕсли;
    Настройки.УстановитьПараметр("disallow-doctype", Ложь);
    Попытка
        Документ = Построитель.Прочитать(Чтение);
    Исключение
        Чтение.Закрыть();
        ВызватьИсключение;
    КонецПопытки;
    Чтение.Закрыть();
    ОписаниеТипа = Документ.ОпределениеТипаДокумента;
    Если ОписаниеТипа = Неопределено Тогда
        ВызватьИсключение "Включите чтение типа документа, не подменяйте его пустым новым DOCTYPE";
    КонецЕсли;
    Сущность = ОписаниеТипа.Сущности.ПолучитьИменованныйЭлемент("guideIcon");
    Нотация = ОписаниеТипа.Нотации.ПолучитьИменованныйЭлемент("guideMark");
    Если ТипЗнч(Сущность) <> Тип("СущностьDOM") ИЛИ ТипЗнч(Нотация) <> Тип("НотацияDOM") Тогда
        ВызватьИсключение "Построитель не сохранил ожидаемые собственные объявления DTD";
    КонецЕсли;
    Узлы = Новый Массив;
    Узлы.Добавить(Сущность);
    Узлы.Добавить(Нотация);
    Для Каждого Узел Из Узлы Цикл
        Прежнее = Узел.УстановитьПользовательскиеДанные("guide-task", "Учебная проверка");
        Сообщить(Прежнее = Неопределено);
        Сообщить(Узел.ПолучитьПользовательскиеДанные("guide-task") = "Учебная проверка");
        Копия = Узел.КлонироватьУзел(Истина);
        Сообщить(Узел.УзелИдентичен(Узел));
        Сообщить(НЕ Узел.УзелИдентичен(Копия));
        Сообщить(Узел.УзелРавен(Копия));
        Сообщить(Копия.ПолучитьПользовательскиеДанные("guide-task") = Неопределено);
        Сообщить(Копия.РодительскийУзел = Неопределено);
        Положение = Узел.СравнитьПозициюВДокументе(Копия);
        Сообщить("Положение отдельной копии: " + Строка(Положение));
        Копия.Нормализовать();
        Сообщить(Копия.ДочерниеУзлы.Количество() = 0);
        Снятое = Узел.УстановитьПользовательскиеДанные("guide-task", Неопределено);
        Сообщить(Снятое = "Учебная проверка");
        Сообщить(Узел.ПолучитьПользовательскиеДанные("guide-task") = Неопределено);
    КонецЦикла;
КонецПроцедуры

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

1. УстановитьПользовательскиеДанные возвращает прежнее значение. Первый вызов связывает свою пометку с реально полученным узлом.

2. КлонироватьУзел(Истина) создаёт отдельный узел. По локальной справке у копии не определены родитель и пользовательские данные.

3. УзелИдентичен сравнивает идентичность, УзелРавен структуру. Оба сравнения проверяются и не подменяют друг друга.

4. СравнитьПозициюВДокументе только диагностируется: отдельная копия не имеет гарантированного порядка до/после в дереве.

5. Нормализовать у листа не создаёт детей или загружает содержимое SYSTEM. В конце собственная пометка снимается передачей Неопределено, прежняя строка проверяется.

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

1. По десять Истина для каждого узла и диагностическое положение копии.

2. Копии не помещаются в корень или коллекции DTD, исходные объявления не удаляются.

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

Различие структуры, идентичности и служебных данных показано на настоящем объявлении.

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

1. Пользовательская пометка — не атрибут XML и не постоянная запись.

2. Положение отдельной копии не используйте как индекс коллекции объявлений.

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