Файл = Новый ЧтениеXML;
Файл.ОткрытьФайл(ФайлЗагрузки);
//Файл записи реструктурированного XML
ФайлЗ=Новый Файл(ФайлЗагрузки);
ЗаписьXML=Новый ЗаписьXML;
ЗаписьXML.ОткрытьФайл(ФайлЗ.Путь+"\"+ФайлЗ.ИмяБезРасширения+"restructed."+ФайлЗ.Расширение);
ЗаписьXML.ЗаписатьОбъявлениеXML();
счетчик=0;
Пока Файл.Прочитать() Цикл
счетчик=счетчик+1;
Состояние(счетчик);
Если Файл.ТипУзла = ТипУзлаXML.НачалоЭлемента Тогда
ЗаписьXML.ЗаписатьНачалоЭлемента(Файл.Имя);
Пока Файл.ПрочитатьАтрибут() Цикл
ЗаписьXML.ЗаписатьАтрибут(Файл.Имя,Файл.Значение);
КонецЦикла;
КонецЕсли;
Если Файл.ТипУзла = ТипУзлаXML.Текст Тогда
ЗаписьXML.ЗаписатьТекст(Файл.Значение);
КонецЕсли;
Если Файл.ТипУзла = ТипУзлаXML.КонецЭлемента Тогда
ЗаписьXML.ЗаписатьКонецЭлемента();
КонецЕсли;
КонецЦикла;
Файл.Закрыть();
ЗаписьXML.Закрыть(); Парсинг, преобразование, редактирование XML
19.08.13
Интеграция - Файловый обмен (TXT, XML, DBF), FTP
Появилась задача, изменить правила обмена так, чтобы выкинуть из них правила конвертации некоторых узлов и элементов, которые часто встречаются. Я решил, что можно просто быстро пробежаться про всем узлам и, если имена узлов соответствуют определенным критериям, удалить их.
Поэтому для начала я сделал обработку, которая просто читает XML, и тут же его записывает, сохраняя структуру.
Выкладываю, может, кому-то пригодится или будет полезна в качестве примера.
Поэтому для начала я сделал обработку, которая просто читает XML, и тут же его записывает, сохраняя структуру.
Выкладываю, может, кому-то пригодится или будет полезна в качестве примера.
Скачать файл
ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.
| Наименование | По подписке [?] | Купить один файл | |
|---|---|---|---|
|
РаботаСXML.epf
.epf 6,76Kb
14
|
