Как извлечь весь текст из XML в 1С с помощью `ЧтениеXML`?

[Odineski]

Функция ИзвлечьТекстИзXML(СтрокаXML)
Результат = «»; Позиция = 1;

Пока Позиция <= СтрДлина(СтрокаXML) Цикл
Открытие = СтрНайти(СтрокаXML, «<«, Позиция);
Если Открытие = 0 Тогда
Результат = Результат + Сред(СтрокаXML, Позиция);
Прервать;
КонецЕсли;
Если Открытие > Позиция Тогда
Результат = Результат + Сред(СтрокаXML, Позиция, Открытие — Позиция);
КонецЕсли;
Закрытие = СтрНайти(СтрокаXML, «>», Открытие);
Если Закрытие = 0 Тогда Прервать КонецЕсли;
Позиция = Закрытие + 1;
КонецЦикла;

Возврат СокрЛП(Результат);
КонецФункции

[Odin — Одинэсник]

Ваша функция удаляет все фрагменты между < и >, а оставшийся текст объединяет в одну строку. Для простого XML она может работать, но это не полноценный разбор XML.

Проблемы текущего варианта:

— текст комментариев попадёт в результат;
— содержимое CDATA обрабатывается некорректно;
— символ > внутри значения атрибута может преждевременно завершить тег;
— XML-сущности, например &, не преобразуются в &;
— XML-декларации, инструкции обработки и DOCTYPE корректно не учитываются;
— при некорректном XML функция не сообщает об ошибке.

Для XML лучше использовать объект ЧтениеXML.

### Вариант функции для извлечения всего текстового содержимого

1С (Код)

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

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

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

Например, для XML:

1С (Код)

<Документ> <Номер>123</Номер> <Дата>2026-09-23</Дата> <Комментарий>Текст &amp; описание</Комментарий> </Документ>

1 2 3 4 5

<Документ> <Номер>123</Номер> <Дата>2026-09-23</Дата> <Комментарий>Текст &amp; описание</Комментарий> </Документ>

результатом будет примерно:

1С (Код)

1232026-09-23Текст & описание

1	1232026-09-23Текст & описание

XML-парсер автоматически преобразует & в символ &.

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

1С (Код)

Функция ИзвлечьТекстИзXML(СтрокаXML) Экспорт Если ПустаяСтрока(СтрокаXML) Тогда Возврат ""; КонецЕсли; ЧтениеXML = Новый ЧтениеXML; ЧтениеXML.УстановитьСтроку(СтрокаXML); МассивТекста = Новый Массив; Пока ЧтениеXML.Прочитать() Цикл Если ЧтениеXML.ТипУзла = ТипУзлаXML.Текст Тогда ТекстУзла = СокрЛП(ЧтениеXML.Значение); Если ЗначениеЗаполнено(ТекстУзла) Тогда МассивТекста.Добавить(ТекстУзла); КонецЕсли; КонецЕсли; КонецЦикла; Возврат СтрСоединить(МассивТекста, " "); КонецФункции

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

Функция ИзвлечьТекстИзXML(СтрокаXML) Экспорт Если ПустаяСтрока(СтрокаXML) Тогда Возврат ""; КонецЕсли; ЧтениеXML = Новый ЧтениеXML; ЧтениеXML.УстановитьСтроку(СтрокаXML); МассивТекста = Новый Массив; Пока ЧтениеXML.Прочитать() Цикл Если ЧтениеXML.ТипУзла = ТипУзлаXML.Текст Тогда ТекстУзла = СокрЛП(ЧтениеXML.Значение); Если ЗначениеЗаполнено(ТекстУзла) Тогда МассивТекста.Добавить(ТекстУзла); КонецЕсли; КонецЕсли; КонецЦикла; Возврат СтрСоединить(МассивТекста, " "); КонецФункции

Для получения только текста определённого элемента, например <Комментарий>, лучше проверять имя текущего элемента и учитывать уровень вложенности. Простая функция с ТипУзлаXML.Текст извлекает текст из всех элементов XML, включая вложенные узлы.

Если XML содержит только один известный тег и гарантированно имеет простой вид, ваш вариант можно немного улучшить, но для общего случая рекомендуется использовать ЧтениеXML.

[Автор]

Записи