Есть файлик структуры

РеквизитШапки1
РеквизитШапки2
-ТЗ
  -Строка1
    -Рек1
    -Рек2
  -Строка2
    -Рек1
    -Рек2


Нужно программно считать в 1с этот файл. То есть просто на основании файла заполнить ТЗ.
Я раньше программно никогда из XML не считывал данные. Есть у кого пример как сделать. А то какая то фигня получается

пользуй объект ЧтениеXML

и его методы.

щас так считываю строки

Пока ЧтениеXML.Прочитать() Цикл

      Если ЧтениеXML.Имя = "ТЗ" Тогда
                
        НоваяСтрока = ПрочиеОперации.Добавить();
                    
         КонецЕсли;
конецЦикла;

А вот как считать реквизиты ТЧ не понимаю

Чтение = Новый ЧтениеXML;

Чтение.ОткрытьФайл(ПутьКФайлу);

Пока Чтение.Прочитать() Цикл // Прочитать «структурные части» элементов.

    // Проверить, какая часть элемента – текущая.
    Если Чтение.ТипУзла = ТипУзлаXML.НачалоЭлемента Тогда
        ИмяУзла = Чтение.Имя;
        
        Сообщить("--" + ИмяУзла);

        // Атрибуты элементов можно читать только если текущая часть – начало элемента
        Пока Чтение.ПрочитатьАтрибут() Цикл

            // Прочитать данные узла атрибута.
            ТипУзла  = Чтение.ТипУзла;
            Имя      = Чтение.Имя;
            Значение = Чтение.Значение;
    
        // Обработать полученные значения.
        //    ...
        
        КонецЦикла;
        
    ИначеЕсли Чтение.ТипУзла = ТипУзлаXML.Текст Тогда    

        // В примере просто выводим текст в окно сообщений.    
        Сообщить("Текст:" + Чтение.Значение);
        
    ИначеЕсли Чтение.ТипУзла = ТипУзлаXML.КонецЭлемента Тогда

        // В примере просто выводим признак конца элемента
        // в окно сообщений
        Сообщить("--Конец:" + Чтение.Имя);
        
    КонецЕсли;    
    
КонецЦикла    
(с)

(4) Углубись в элемент с тегом "ТЗ". (Если я правильно понял твою структуру файла).

(5) чет не взлетает

Вложенные элементы не читаются

(8) потому что это 3-й уровень, в примере углубляется только на 2 уровня

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

(10)не работает

Блин документацию бы какую нибудь

Alt+F1 в пофигураторе

проще через xdto

там 2 строчки кода всего

Блин киньте, если у кого есть пример считывания 3-х уровневой таблицы XML

Просто не понимаю как влезть в нужный уровень,

Ну, можешь и через ДокументDOM лепить, там есть
ПолучитьЭлементыПоИмени - сразу попадешь на нужный уровень и выгребаешь элементы тока нужного уровня..

(11) Сочувствую.

а так, на нимфостарте полно поделок
и с рекурсией и без..
типа такого:

http://infostart.ru/public/84254/

(20) Да блин зачем мне эти загрузки вы че шутите что  ли

Мне нужно просто пример как считать элементы следующего уровня, и все

(20) а что не устраивает ?
Там чтение xml в дерево.. вам не это разве нужно ?

(22) тупо рекурсией.

если это элемент - вызов рекурсивной функции и привет.

(25) ну пример кода можно плиз

че т у меня не получается

задача горит

(28) Дай пример файла, с которым не справляется код из (10).

<?xml version="1.0" encoding="UTF-8"?>
-<ВыгрузкаПрочиеОперации><Организация>Открытое акционерное общество "***"</Организация><Документ>ДОК 00000526 от 22.10.2013 9:33:32</Документ>-<ПрочиеОперацииТЗ>-<Строка_1><СчетУчетаБУ_Код>57.2</СчетУчетаБУ_Код><КПП_Контрагента>555555555</КПП_Контрагента><ИНН_Контрагента>1000000000</ИНН_Контрагента><НомерДоговора/><ДатаДоговора/><ВидДоговоровСТГ>ПустойВидДоговораСТГ</ВидДоговоровСТГ></Строка_1>-<Строка_2><СчетУчетаБУ_Код>57.2</СчетУчетаБУ_Код><КПП_Контрагента>ПустоеКПП</КПП_Контрагента><ИНН_Контрагента>ПустоеИНН</ИНН_Контрагента><НомерДоговора/><ДатаДоговора/><ВидДоговоровСТГ>ПустойВидДоговораСТГ</ВидДоговоровСТГ></Строка_2></ПрочиеОперацииТЗ></ВыгрузкаПрочиеОперации>

(30) Во-первых, тут ошибка.
В строке:
"-<ВыгрузкаПрочиеОперации>"

не должно быть первого символа "-", иначе это неверный XML.

А во-вторых, после этого исправления всё прекрасно читается.

ребят а как тэги когда вставлять чтобы код с плюсиком получался ?

(31) Что значит неверный а если у меня нескколько ТЧ

будет

Вообщем нужен простой алгоритм считывания 3-х уровнего XML

(31) он в браузере открыл xml просто, там это просто показывается, можно сворачивать. в самом файле нет такого конечно

Ладно, добрый я под вечер (код из (10) в виде обработки)
https://dl.dropboxusercontent.com/u/67681686/ЧтениеXMLвДЗ.epf

да не нужно мне обработка, сколько раз говорю :


нужен простой алгоритм считывания 3-х уровнего XML

(38) дают готовую, ещё не нравится. Вот нихренаж себе

(37)

подскажи пожалуйста такую вещь (если ты добрый) :)))

как програмно вставить в заголовок XML файла код базы приемника ?

я делаю вот так

ЗаписьСообщения = ПланыОбмена.СоздатьЗаписьСообщения();
    
Запись = Новый ЗаписьXML;
Запись.ОткрытьФайл(ИмяФайла);
    
// нужный узел
Узел = ПланыОбмена.Полный.НайтиПоКоду("РБ2");
    
ЗаписьСообщения.НачатьЗапись(Запись, Узел);
    
Выб = ПланыОбмена.ВыбратьИзменения(ЗаписьСообщения.Получатель,ЗаписьСообщения.НомерСообщения);
    
Счетчик = 0;
    
Пока Выб.Следующий() Цикл
  Объект = Выб.Получить();
        
  Счетчик = Счетчик + 1;
        
  ЗаписатьXML(Запись, Объект);
    
  Сообщить(Объект);

КонецЦикла;

ЗаписьСообщения.ЗакончитьЗапись();
Запись.Закрыть();    

Сообщить("Обработка завершена !");
Сообщить("Выгружено " + Счетчик);

в результате получаю загловок XML типа

<v8msg:Header>
<v8msg:ExchangePlan>Полный</v8msg:ExchangePlan>
<v8msg:To>РБ2</v8msg:To>
<v8msg:From>-</v8msg:From>
<v8msg:MessageNo>1</v8msg:MessageNo>
<v8msg:ReceivedNo>0</v8msg:ReceivedNo>
</v8msg:Header>

то есть в строке From нет кода базы в которую выгружается

правильно должно быть
<v8msg:From>РБ2</v8msg:From>

но как программно записать в строку From код куда выгружается файл ?

(40) Посмотри в табло:
ПланыОбмена.Полный.ЭтотУзел().Код

Наверное, он и выгружается.

(41) ага гляну

еще вопрос можно ?

на что влияет включение строк
    ЗаписьXML.ЗаписатьСоответствиеПространстваИмен("xsd", "http://www.w3.org/2001/XMLSchema";);
    ЗаписьXML.ЗаписатьСоответствиеПространстваИмен("xsi", "http://www.w3.org/2001/XMLSchema-instance";);
    ЗаписьXML.ЗаписатьСоответствиеПространстваИмен("v8", "http://v8.1c.ru/data";);    

зачем они нужны ?

v8: Веб-сервис и передача-прием XML

(42) Если ЗаписьXML - то особо ни на что. Там обычно фиксированы namespace. И не проверяются.

Вообщем замутил вот так все работает:

Пока ЧтениеXML.Прочитать() Цикл
                
                Если ЧтениеXML.ТипУзла = ТипУзлаXML.НачалоЭлемента Тогда
                    
                    Если Найти(ЧтениеXML.Имя,"Строка")<>0 Тогда
                        
                         СчетУчетаБУ_Код="";
                         ИНН_Контрагента="";
                         КПП_Контрагента="";
                         НомерДоговора="";
                         ДатаДоговора=Дата(1,1,1);
                         ВидДоговоровСТГ="";
                        
                         НоваяСтрока=ПрочиеОперации.Добавить();
                         ИмяКолонки="Строка";
                        
                    ИначеЕсли ЧтениеXML.Имя="СчетУчетаБУ_Код" Тогда
                         ИмяКолонки="СчетУчетаБУ_Код";
                    ИначеЕсли ЧтениеXML.Имя="ИНН_Контрагента" Тогда
                         ИмяКолонки="ИНН_Контрагента";
                    ИначеЕсли ЧтениеXML.Имя="КПП_Контрагента" Тогда
                         ИмяКолонки="КПП_Контрагента";
                    ИначеЕсли ЧтениеXML.Имя="НомерДоговора" Тогда
                         ИмяКолонки="НомерДоговора";
                    ИначеЕсли ЧтениеXML.Имя="ДатаДоговора" Тогда
                         ИмяКолонки="ДатаДоговора";
                    ИначеЕсли ЧтениеXML.Имя="ВидДоговоровСТГ" Тогда
                         ИмяКолонки="ВидДоговоровСТГ";
                    КонецЕсли;
                    
                        
                    Сообщить("Начало элемента: "+ЧтениеXML.Имя);
                    
                ИначеЕсли ЧтениеXML.ТипУзла = ТипУзлаXML.Текст Тогда
                    
                    Если ИмяКолонки="СчетУчетаБУ_Код" Тогда
                        СчетУчетаБУ_Код=ЧтениеXML.Значение;    
                    ИначеЕсли ИмяКолонки="ИНН_Контрагента" Тогда
                         ИНН_Контрагента=ЧтениеXML.Значение;    
                    ИначеЕсли ИмяКолонки="КПП_Контрагента" Тогда
                         КПП_Контрагента=ЧтениеXML.Значение;    
                    ИначеЕсли ИмяКолонки="НомерДоговора" Тогда
                         НомерДоговора=ЧтениеXML.Значение;    
                    ИначеЕсли ИмяКолонки="ДатаДоговора" Тогда
                         ДатаДоговора=ЧтениеXML.Значение;    
                    ИначеЕсли ИмяКолонки="ВидДоговоровСТГ" Тогда
                         ВидДоговоровСТГ=ЧтениеXML.Значение;    
                    КонецЕсли;
    
                    
                                            
                    Сообщить("Текст элемента: "+ЧтениеXML.Значение);

                ИначеЕсли ЧтениеXML.ТипУзла = ТипУзлаXML.КонецЭлемента Тогда
                    
                     Сообщить("Конец элемента: "+ЧтениеXML.Имя);
                    
                     Если Найти(ЧтениеXML.Имя,"Строка")<>0 Тогда

                         НоваяСтрока.СчетУчетаБУ_Код=СчетУчетаБУ_Код;
                         НоваяСтрока.ИНН_Контрагента=ИНН_Контрагента;
                         НоваяСтрока.КПП_Контрагента=КПП_Контрагента;
                         НоваяСтрока.НомерДоговора =НомерДоговора;
                         НоваяСтрока.ДатаДоговора=ДатаДоговора;
                         НоваяСтрока.ВидДоговоровСТГ=ВидДоговоровСТГ;
                        
                     КонецЕсли;
                    
                КонецЕсли;
                
            КонецЦикла;

"Я сотрудник франча - позор 1с"

Неплохо так.

p.s. Если вы не знаете как писать - смотрите типовые. ЧСХ - там все есть, и даже постройка ДЗ по файлу XML и макету.

(46) Меня мой код полностью устраивает, а то что я выложил только образец как делать

(46) Что не нравиться то ?

ИМХО это самый простой и быстрый вариант.

(47) Это то понятно. После нас хоть потоп.

Как минимум вот это портянка

                    ИначеЕсли ЧтениеXML.Имя="СчетУчетаБУ_Код" Тогда
                         ИмяКолонки="СчетУчетаБУ_Код";
                    ИначеЕсли ЧтениеXML.Имя="ИНН_Контрагента" Тогда
                         ИмяКолонки="ИНН_Контрагента";
                    ИначеЕсли ЧтениеXML.Имя="КПП_Контрагента" Тогда
                         ИмяКолонки="КПП_Контрагента";
                    ИначеЕсли ЧтениеXML.Имя="НомерДоговора" Тогда
                         ИмяКолонки="НомерДоговора";
                    ИначеЕсли ЧтениеXML.Имя="ДатаДоговора" Тогда
                         ИмяКолонки="ДатаДоговора";
                    ИначеЕсли ЧтениеXML.Имя="ВидДоговоровСТГ" Тогда
                         ИмяКолонки="ВидДоговоровСТГ";
                    КонецЕсли;

(50)Ты что предлагаешь?

Просто ты наверное не в курсе что мне не все колонки нужно загружать, а они могут в хмл добовляться

(52) Это никак не меняет дело.

(52) Тебе как бы предлагают заменить на

Если ЧтениеXML.Имя="СчетУчетаБУ_Код" или ЧтениеXML.Имя="ИНН_Контрагента" или ЧтениеXML.Имя="КПП_Контрагента" или ЧтениеXML.Имя="НомерДоговора" или ЧтениеXML.Имя="ДатаДоговора" или ЧтениеXML.Имя="ВидДоговоровСТГ"
                         ИмяКолонки=ЧтениеXML.Имя;
                    КонецЕсли;

Вряд ли это хуже.

(54) или ЧтениеXML.Имя="ВидДоговоровСТГ" Тогда

О господи... Да Вы просто чудо оптимизаторы кода.

(54) Еще один.

(53) Еще как меняет

Ладо уж че спорить, когда проблема решена, знатоки повылазили. Где ж вы раньше были

(48)Индийский код форева!

(57) Ну ему же почему-то не нравится

ИмяКолонки=ЧтениеXML.Имя;

Критиковать легко ....продолжайте

Писал на скорую руку пример,... я не претендую на супероптимальность