Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
28 мар 2024, 23:49

преобразовать данные xml в текстовую заявку на какой-либо товар

Автор Devillord, 23 июл 2012, 16:10

0 Пользователей и 1 гость просматривают эту тему.

Devillord

нужно преобразовать данные xml в заявку, пусть даже текстовый документ.
есть код,для чтения xml файла, а как преобразовать в текстовый документ, не знаю.  :dfbsdfbsdf:
могу дополнительно залить сам xml, чтобы было примерно видно,критерии заявки

используемый код для чтения :
ЧтениеXML = Новый ЧтениеXML;
ЧтениеXML.ОткрытьФайл("E:\задание\order_18284401.xml");
   
// Создать новый документ Поступление товаров и услуг - РАБОТАЕТ!
НовыйДокумент = Документы.ПоступлениеТоваровУслуг.СоздатьДокумент();
НовыйДокумент = Документы.ПоступлениеТоваровУслуг.ПолучитьФормуНовогоДокумента();
НовыйДокумент.Открыть();
     

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

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

  Сообщить("--Конец:" + ЧтениеXML.Имя);
   
      КонецЕсли;
      
КонецЦикла;
КонецПроцедуры
_____________________
нужен был бы код для залития прочтённой информации в текстовый файл

Ожидаю помощи,так как в 1С попросту учусь!  :(

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск