Записать CDATA без превращения текста в XML-теги

Внутри CDATA остаётся буквальный текст Книга <учебник> & пособие. Инструкция guide — отдельный узел, не исполняемая команда 1С.

Подготовка

1. В своей учебной базе 8.5.1.1343 создайте серверный общий модуль УчебнаяЗаписьXML. Вставьте полный модуль одного урока и вызовите УчебнаяЗаписьXML.ВыполнитьПример() из собственной серверной команды.

2. Все тексты и товары заданы константами: Книга, A&B, количество 3. Учётные данные, файлы организации, HTTP и внешние XML не используются.

3. Первые шесть уроков работают только со строками/потоком в памяти. Последний создаёт один новый временный XML в собственной учебной базе; имя выводится, файл оставляется для ручной проверки.

4. Для урока файла имя конфигурации должно быть УчебнаяКонфигурацияСинтаксиса. Существующий файл не перезаписывается. После проверки удалите вручную только показанный собственный временный файл.

5. ПараметрыЗаписиXML неизменяемы после создания. Все пять параметров задаются конструктором, а не присваиванием свойств.

Процедура ВыполнитьПример() Экспорт
    Запись = Новый ЗаписьXML;
    Запись.УстановитьСтроку();
    Попытка
        Запись.ЗаписатьОбъявлениеXML();
        Запись.ЗаписатьИнструкциюОбработки("guide", "mode='training'");
        Запись.ЗаписатьНачалоЭлемента("catalog");
        Запись.ЗаписатьНачалоЭлемента("product");
        Запись.ЗаписатьАтрибут("code", "A&B");
        Запись.ЗаписатьАтрибут("quantity", "3");
        Запись.ЗаписатьСекциюCDATA("Книга <учебник> & пособие");
        Запись.ЗаписатьКонецЭлемента();
        Запись.ЗаписатьКонецЭлемента();
        XML = Запись.Закрыть();
    Исключение
        Запись.Закрыть();
        ВызватьИсключение;
    КонецПопытки;
    Сообщить(СтрНайти(XML, "<![CDATA[") > 0);
    Сообщить(СтрНайти(XML, "<?guide") > 0);
    Товар = ПрочитатьУчебныйТовар(XML);
    Сообщить(Товар.Код = "A&B");
    Сообщить(Товар.Текст = "Книга <учебник> & пособие");
КонецПроцедуры

Функция ПрочитатьУчебныйТовар(XML)
    Чтение = Новый ЧтениеXML;
    Результат = Новый Структура("Корень,Код,Количество,Текст", "", "", "", "");
    ВТоваре = Ложь;
    Попытка
        Чтение.УстановитьСтроку(XML);
        Пока Чтение.Прочитать() Цикл
            Если Чтение.ТипУзла = ТипУзлаXML.НачалоЭлемента Тогда
                Если ПустаяСтрока(Результат.Корень) Тогда
                    Результат.Корень = Чтение.ЛокальноеИмя;
                КонецЕсли;
                Если Чтение.ЛокальноеИмя = "product" Тогда
                    ВТоваре = Истина;
                    Результат.Код = Чтение.ПолучитьАтрибут("code");
                    Результат.Количество = Чтение.ПолучитьАтрибут("quantity");
                КонецЕсли;
            ИначеЕсли ВТоваре И (Чтение.ТипУзла = ТипУзлаXML.Текст
                ИЛИ Чтение.ТипУзла = ТипУзлаXML.СекцияCDATA) Тогда
                Результат.Текст = Результат.Текст + Чтение.Значение;
            ИначеЕсли Чтение.ТипУзла = ТипУзлаXML.КонецЭлемента
                И Чтение.ЛокальноеИмя = "product" Тогда
                ВТоваре = Ложь;
            КонецЕсли;
        КонецЦикла;
    Исключение
        Чтение.Закрыть();
        ВызватьИсключение;
    КонецПопытки;
    Чтение.Закрыть();
    Возврат Результат;
КонецФункции

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

1. Записать объявление, затем собственную инструкцию обработки guide. Не передавать туда программу для исполнения.

2. Открыть товар и записать атрибуты обычным способом. Амперсанд атрибута всё равно экранируется.

3. Текст записать через ЗаписатьСекциюCDATA и закрыть оба элемента.

4. Снова прочитать XML: читатель собирает Текст и СекцияCDATA и возвращает исходную строку.

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

1. Четыре проверки дают Истина.

2. В результате есть CDATA и инструкция guide, а <учебник> не стал вложенным элементом.

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

Полный пример двух специальных XML-узлов и восстановления текста.

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

1. Произвольный текст с ]]> нельзя без обработки поместить в одну CDATA.

2. CDATA не очищает HTML и не делает внешний текст безопасным для браузера.

3. Инструкция обработки воспринимается по правилам получателя; здесь она собственная и не запускает внешний процесс.

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