ЗаписьУзловDOM.ЗаписатьТекущий

Копировать XML из DOM в DOM по одному событию чтения

ЗаписатьТекущий не читает следующий узел. Чтение продвигаем ровно один раз в условии цикла и копируем каждое событие; исходное дерево остаётся неизменным.

Подготовка

1. Документы и все узлы создаются в памяти на сервере. Внешние XML, DTD, сетевые схемы и файлы не загружаются.

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

3. В этом блоке каждый пример создаёт собственное дерево DOM в памяти. Файлы, сеть, данные документов и справочников не используются.

4. Открыть у ЧтениеУзловDOM принимает узел, а у ЗаписьУзловDOM — документ-владелец будущих узлов. Это не открытие файла.

Документ = Новый ДокументDOM("", "products");
Корень = Документ.ЭлементДокумента;
Для Номер = 1 По 2 Цикл
    Товар = Документ.СоздатьЭлемент("product");
    Товар.УстановитьАтрибут("code", ?(Номер = 1, "A-01", "B-02"));
    Товар.ДобавитьДочерний(Документ.СоздатьТекстовыйУзел(?(Номер = 1, "Книга", "Ручка")));
    Корень.ДобавитьДочерний(Товар);
КонецЦикла;
Копия = Новый ДокументDOM("", "container");
Чтение = Новый ЧтениеУзловDOM;
Запись = Новый ЗаписьУзловDOM;
Чтение.Открыть(Корень);
Запись.Открыть(Копия);
ЧислоСобытий = 0;
Попытка
    Пока Чтение.Прочитать() Цикл
        Запись.ЗаписатьТекущий(Чтение);
        ЧислоСобытий = ЧислоСобытий + 1;
    КонецЦикла;
    Фрагмент = Запись.УзелDOM;
Исключение
    Чтение.Закрыть();
    Запись.Закрыть();
    ВызватьИсключение;
КонецПопытки;
Чтение.Закрыть();
Запись.Закрыть();
Копия.ЭлементДокумента.ДобавитьДочерний(Фрагмент);
СкопированныеТовары = Копия.ЭлементДокумента.ПервыйДочерний;
Сообщить(ЧислоСобытий = 8);
Сообщить(СкопированныеТовары.ИмяЭлемента = "products");
Сообщить(СкопированныеТовары.ДочерниеУзлы.Количество() = 2);
Сообщить(СкопированныеТовары.ПервыйДочерний.ПолучитьАтрибут("code") = "A-01");
Сообщить(СкопированныеТовары.ПоследнийДочерний.ТекстовоеСодержимое = "Ручка");
Сообщить(Корень.ДочерниеУзлы.Количество() = 2);
Сообщить(СкопированныеТовары.ДокументВладелец = Копия);
Сообщить(Корень.ДокументВладелец = Документ);
СкопированныеТовары.ПервыйДочерний.УстановитьАтрибут("code", "COPY");
Сообщить(Корень.ПервыйДочерний.ПолучитьАтрибут("code") = "A-01");

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

1. Открываем чтение на корневом элементе исходного документа, а запись — на другом документе-владельце.

2. Прочитать в условии цикла выбирает событие, ЗаписатьТекущий переносит только текущее состояние. Начала, тексты и концы проходят в исходном порядке.

3. После окончания получаем фрагмент и включаем его под container целевого документа. Здесь обёртка container намеренная, не копия исходного корня документа.

4. Проверяем владельцев и меняем code только у копии. Исходный A-01 не меняется — узлы не перемещались между документами.

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

1. Все девять логических проверок дают Истина.

2. Восемь событий: начало products, начало product, текст, конец product, начало product, текст, конец product, конец products.

3. Копия имеет container/products с двумя товарами; у исходного первого товара после изменения копии остаётся A-01.

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

Продемонстрирован полный событийный перенос собственного XML с независимыми целевыми узлами.

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

1. Не вызывайте Прочитать внутри тела дополнительно: тогда часть событий пропадёт. ЗаписатьТекущий сам чтение не продвигает.

2. Атрибуты начала элемента переносятся вместе с его состоянием, поэтому здесь не нужно отдельно обходить атрибуты и дублировать их запись.

3. Число восемь относится к этому дереву без форматирующих пробелов. Это не универсальное число событий двух товарных строк.

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