Имя: Пароль:
1C
1С v8
Конвертер
0 razerw
 
25.01.12
10:48
Всем привет.
Опять я к вам с проблемами(

Что имеем.. Имеем Ексель докумен в котором хранятся показания с измерительных  приборов.

Процедура пвИмяФайлаНачалоВыбора(Элемент, СтандартнаяОбработка)
   
    // Выбираем фаил
    ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
    ДиалогОткрытияФайла.ПолноеИмяФайла = "";
    Фильтр = "Excel(*.xlsx|*.xlsx";
    ДиалогОткрытияФайла.Фильтр = Фильтр;
    ДиалогОткрытияФайла.МножественныйВыбор = Ложь;
    ДиалогОткрытияФайла.Заголовок = "Выберите Excel фаил для импорта";
   
    Если ДиалогОткрытияФайла.Выбрать() Тогда
    пвИмяФайла = ДиалогОткрытияФайла.ПолноеИмяФайла;
    КонецЕсли;
   
   
КонецПроцедуры

Процедура ОсновныеДействияФормыЗагрузить(Кнопка)
   
    Данные.Очистить();
   
    // Чтение файла Excel.
    Ексель = Новый COMОбъект("Excel.Application");
    ЕксельКниги = Ексель.Workbooks;
   
    ЗагружаемыйФаил = ЕксельКниги.Open(пвИмяФайла);
    Лист = ЗагружаемыйФаил.Sheets(1);
   
    //Заполнение табличного поля.
       
    Для ИндексСтроки = 5 по 725 Цикл
        Строка = Данные.Добавить();
       
        Ячейка = Лист.Cells(ИндексСтроки, 1);
        Строка["Дата"] = Ячейка.Value;
       
        Ячейка = Лист.Cells(ИндексСтроки, 2);
        Строка["ВременнойПериод"] = Ячейка.Value;
       
       
        Ячейка = Лист.Cells(ИндексСтроки, 3);
        Строка["Показания1"] = Ячейка.Value;

        Ячейка = Лист.Cells(ИндексСтроки, 4);
        Строка["Показания26"] = Ячейка.Value;
       
        Ячейка = Лист.Cells(ИндексСтроки, 5);
        Строка["Показания21"] = Ячейка.Value;
       
        Ячейка = Лист.Cells(ИндексСтроки, 6);
        Строка["Показания43"] = Ячейка.Value;
       
        Ячейка = Лист.Cells(ИндексСтроки, 7);
        Строка["Показания14"] = Ячейка.Value;
       
               
        Ячейка = Лист.Cells(ИндексСтроки, 8);
        Строка["ПоказанияБрикет"] = Ячейка.Value;
       
               
        Ячейка = Лист.Cells(ИндексСтроки, 9);
        Строка["ПоказанияРобот"] = Ячейка.Value;
       

    КонецЦикла;
    ЗагружаемыйФаил.Application.Quit();
                 
КонецПроцедуры


Написал вот такой вот код, что он делает. Он читает фаил икселя и заполняет табличную часть.
Но мне надо эти данные из файла иксель перегнать в фаил формата xml, со следующей структурой входного файла.

[url=http://radikal.ru/F/s04.radikal.ru/i177/1201/b0/a0f62a9be34b.jpg.html][img]http://s04.radikal.ru/i177/1201/b0/a0f62a9be34bt.jpg[/img][/url]

Подскажите кто знает как описать вс это именно в такую структуру?
1 razerw
 
25.01.12
10:49
вот структура xml
<a target="_blank" href="http://radikal.ru/F/s04.radikal.ru/i177/1201/b0/a0f62a9be34b.jpg.html"><img src="http://s04.radikal.ru/i177/1201/b0/a0f62a9be34bt.jpg" ></a>
2 razerw
 
25.01.12
10:50
Компьютеры — прекрасное средство для решения проблем, которых до их появления не было.