Имя: Пароль:
1C
1С v8
Разбор XML файла
0 Umka2008
 
11.06.13
21:53
<?xml version="1.0" encoding="UTF-8" ?>
- <response>
 <Order Number="5404" ErrorCode="ERR_ORDER_DUBL_EXISTS" Msg="Заказ существует в базе Number=5404" />
 <Order Msg="Добавлено заказов 0" />
 </response>

   ПостроительDOM = Новый ПостроительDOM;
   ДокументDOM  = ПостроительDOM.Прочитать(ЧтениеXML);
   
   УзелОтвет = ДокументDOM.ПолучитьЭлементыПоИмени("response");
   Для Позиц = 0 По УзелОтвет.Количество()-1 Цикл
       ДочерниеУзлы = УзелОтвет[Позиц].ДочерниеУзлы;
           
           Если Узел.ИмяУзла = "number" Тогда
               
               Сообщить(Узел.ТекстовоеСодержимое);
               
           ИначеЕсли Узел.ИмяУзла = "ErrorCode" Тогда
               
               Сообщить(Узел.ТекстовоеСодержимое);
               
           ИначеЕсли Узел.ИмяУзла = "Msg" Тогда
               
               Сообщить(Узел.ТекстовоеСодержимое);
               
           КонецЕсли;
           
       КонецЦикла;
   КонецЦикла;    

вот такой код - но не могу из файла вытащить реквизиты "number" и прочее
1 hhhh
 
11.06.13
22:01
я без дома делал
2 Umka2008
 
11.06.13
22:05
А что такого в Доме? по моему простой механизм
3 Umka2008
 
11.06.13
22:08
Разобрался - оказывается "number" и проч это Артибуты
Вставил в узел

               Атры = Узел.Атрибуты;
               Для Каждого Атр Из Атры Цикл
                   Если Атр.Имя = "number" Тогда
                       Сообщить(Атр.ТекстовоеСодержимое);
                   ИначеЕсли Атр.Имя = "ErrorCode" Тогда
                       Сообщить(Атр.ТекстовоеСодержимое);
                   ИначеЕсли Атр.Имя = "Msg" Тогда
                       Сообщить(Атр.ТекстовоеСодержимое);
                   КонецЕсли;
               КонецЦикла;    
и все
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший