Функция XMLСтрокаБезПространствИмен(XMLСтрока)
Текст = Новый ТекстовыйДокумент;
Текст.УстановитьТекст(XMLСтрока);
СтрокаСАтрибутами = Текст.ПолучитьСтроку(2);
МассивПодстрок = СтрРазделить(СтрокаСАтрибутами, " ");
УдалитьВсеВхожденияСтрокиИзМассива(МассивПодстрок, АтрибутПространстваИмен());
СтрокаСАтрибутами = СтрСоединить(МассивПодстрок, " ");
Текст.ЗаменитьСтроку(2, СтрокаСАтрибутами);
Возврат Текст.ПолучитьТекст();
КонецФункции
Функция АтрибутПространстваИмен()
Возврат "xmlns";
КонецФункции
Процедура УдалитьВсеВхожденияСтрокиИзМассива(Массив, Значение)
КоличествоЭлементовКоллекции = Массив.Количество();
Для ОбратныйИндекс = 1 По КоличествоЭлементовКоллекции Цикл
Индекс = КоличествоЭлементовКоллекции - ОбратныйИндекс;
Если СтрНайти(Массив[Индекс], Значение) > 0 Тогда
Массив.Удалить(Индекс);
КонецЕсли;
КонецЦикла;
КонецПроцедуры