Имя: Пароль:
1C
 
Как правильно прочитать XML?
0 Gst33
 
05.10.04
16:43
Имеется, к примеру, следующих текст XML. Как грамотно его прочитать средствами 1cv8 (прошу написать пример кода)?
Спасибо!

<Данные ИБ="Trade" ДатаВыгрузки="05.10.04" Пользователь="Администратор">
<Шапка ВидДокумента="РасходнаяНакладная" Дата="2004-10-05" Номер="T-00007" ТипЦен="ТипыРасхЦен" Валюта="USD" Курс="29" Продавец="Основная фирма" Покупатель="Транспорт" Договор="" />
<ТабЧасть>
<Строка Код="К4" Количество="10" Единица="шт." Цена="100" Сумма="1000" />
<Строка Код="К3" Количество="20" Единица="шт." Цена="120" Сумма="2400" />
</ТабЧасть>
</Данные>
1 Множество
 
05.10.04
17:08
ХМЛ = Новый ЧтениеXML();
ХМЛ.ОткрытьФайл("C:\shop\www.shop.ru\1c\outbox\orders.xml");    
Пока ХМЛ.Прочитать() Цикл
   Если ХМЛ.Имя = "Данные" И Строка(ХМЛ.ТипУзла) = "Начало элемента" Тогда
       Для Атрибут = 1 по ХМЛ.КоличествоАтрибутов() цикл
           Если Атрибут = 1 тогда
               ИБ = ХМЛ.ПолучитьАтрибут(Атрибут);
           ИначеЕсли Атрибут = 2 тогда
               ДатаВыгрузки = ХМЛ.ПолучитьАтрибут(Атрибут);
           .
           .
           .
           .
           ке

       кц
   ке

   Если ХМл.Имя = "Шапка" тогда
       Для Атрибут = 1 по ХМЛ.КоличествоАтрибутов() цикл
           Если Атрибут = 1 тогда
               ВидДокумента = ХМЛ.ПолучитьАтрибут(Атрибут);
           ИначеЕсли Атрибут = 3 тогда
               Номер = ХМЛ.ПолучитьАтрибут(Атрибут);
           .
           .
           .
           .
           ке
       ТаблицаЗначений."ДобавитьНовуюСтроку";
       ТаблицаЗначений.Номер = Номер;
       кц        
   ке


   .
   .
   .
   .
   .

кц