записатьтекст » Поиск

Результаты по ключевому слову: записатьтекст

Работаем с XML используя ЧтениеXML и ЗаписьXML

Примеры кода для Записи данных в XML файл и его последующего Чтения:

Код 1C v 8.3

 &НаКлиенте

Функция ВывестиЭлем(ХМЛ,Знач Смещ);

    

    Рез=1;

    Попытка

        Пока ХМЛ.Прочитать() Цикл

            ТипУзла=ХМЛ.ТипУзла;

            Если (ТипУзла=ТипУзлаXML.НачалоЭлемента) Тогда

                Смещ=Смещ+"    ";

                Сообщить(Смещ+"Элемент "+ХМЛ.Имя+":",СтатусСообщения.Важное);

                

                Пока (ХМЛ.ПрочитатьАтрибут()) Цикл

                    Сообщить(Смещ+"Атрибут: "+ХМЛ.Имя+", значение: <"+ХМЛ.Значение+">");

                КонецЦикла;

            ИначеЕсли (ТипУзла=ТипУзлаXML.КонецЭлемента) Тогда 

                Смещ=Лев(Смещ,СтрДлина(Смещ)-4);

            ИначеЕсли (ТипУзла=ТипУзлаXML.Текст) Тогда 

                Сообщить(Смещ+"Текст элемента: <"+ХМЛ.Значение+">");

            ИначеЕсли (ТипУзла=ТипУзлаXML.СекцияCDATA) Тогда 

                Сообщить(Смещ+"CDATA: <"+ХМЛ.Значение+">");

            ИначеЕсли (ТипУзла=ТипУзлаXML.Комментарий) Тогда 

                Сообщить(Смещ+"Комментарий: <"+ХМЛ.Значение+">",СтатусСообщения.Информация);

            Иначе

                Сообщить(Смещ+"Элемент "+ХМЛ.Имя+":");

            	Сообщить(Смещ+"Тип: "+ХМЛ.Значение);

            КонецЕсли; 

            

        КонецЦикла; 

        

    Исключение

        Сообщить(ОписаниеОшибки());

        Рез=0;

    КонецПопытки;

    

    Возврат Рез;

КонецФункции





&НаКлиенте

Процедура ВыгрузитьХМЛ(ИмяФайла) Экспорт

    

    ХМЛ=Новый ЗаписьXML;

    ХМЛ.ОткрытьФайл(ИмяФайла,Новый ПараметрыЗаписиXML("windows-1251",,Ложь,Ложь));

    ХМЛ.ЗаписатьОбъявлениеXML();

    ХМЛ.ЗаписатьНачалоЭлемента("Файл");

    ХМЛ.ЗаписатьАтрибут("Атрибут_Файл_1","Здесь содержимое Атрибут_Файл_1");

    ХМЛ.ЗаписатьТекст("Здесь содержимое Файл");

    ХМЛ.ЗаписатьКомментарий("Далее следует содержимое файла");

    ХМЛ.ЗаписатьНачалоЭлемента("СодержимоеФайла");

    ХМЛ.ЗаписатьАтрибут("Атрибут_СодержимоеФайла_1","Здесь содержимое Атрибут_СодержимоеФайла_1");

    ХМЛ.ЗаписатьТекст("Здесь содержимое СодержимоеФайла");

    ХМЛ.ЗаписатьСекциюCDATA("Это секция CDATA");

    ХМЛ.ЗаписатьКонецЭлемента();

    ХМЛ.ЗаписатьКонецЭлемента();





    ХМЛ.Закрыть();

    ХМЛ=Неопределено;

    

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

    ХМЛ.ОткрытьФайл(ИмяФайла,Новый ПараметрыЧтенияXML(,,,ТипПроверкиXML.НетПроверки));

    ВывестиЭлем(ХМЛ,"");

    ХМЛ.Закрыть();

    ХМЛ=Неопределено;

КонецПроцедуры

Категория: XML, DBF, TXT, CSV

Сохранение реквизитов и табличных частей объектов в XML

Сохранение производится процедурой СохранитьРеквизитыИТабличныеЧасти. В качестве параметров она принимает сохраняемый объект и имя файла. Ссылочные реквизиты сохраняются в виде GUID.

Код 1C v 8.х

 Процедура СохранитьРеквизитыИТабличныеЧасти (Объект, ИмяФайлаXML=Неопределено) Экспорт

    ФайлXML = Новый ЗаписьXML;

    ФайлXML.ОткрытьФайл(ИмяФайлаXML);

    ФайлXML.ЗаписатьОбъявлениеXML();

    ФайлXML.ЗаписатьНачалоЭлемента("Root");

    ФайлXML.ЗаписатьАтрибут("Объект",Объект.Метаданные().Имя);

//Сохраняем реквизиты

    Для Каждого Реквизит Из Объект.Метаданные().Реквизиты Цикл

        ФайлXML.ЗаписатьНачалоЭлемента("Реквизит");

        ФайлXML.ЗаписатьАтрибут("Имя", Реквизит.Имя);

        ТипЗначения = ТипЗнч(Объект[Реквизит.Имя]);

        Если Не ТипЗначения = Тип("Неопределено") Тогда

            ФайлXML.ЗаписатьАтрибут("ИмяТипа", XMLТип(ТипЗначения).ИмяТипа);

            ФайлXML.ЗаписатьАтрибут("URI", XMLТип(ТипЗначения).URIПространстваИмен);

        КонецЕсли;

        ФайлXML.ЗаписатьТекст(XMLСтрока(Объект[Реквизит.Имя]));

        ФайлXML.ЗаписатьКонецЭлемента();

    КонецЦикла;

//Сохраняем табличные части

    Для Каждого ТЧ из Объект.Метаданные().ТабличныеЧасти Цикл

        ФайлXML.ЗаписатьНачалоЭлемента("ТабличнаяЧасть");

        ФайлXML.ЗаписатьАтрибут("Имя", ТЧ.Имя);

        Для Каждого СтрокаТЧ из Объект[ТЧ.Имя] Цикл

            ФайлXML.ЗаписатьНачалоЭлемента("ЭлементКоллекции");

            Для Каждого РеквизитТЧ Из ТЧ.Реквизиты Цикл

                ФайлXML.ЗаписатьНачалоЭлемента("Реквизит");

                ФайлXML.ЗаписатьАтрибут("Имя", РеквизитТЧ.Имя);

                ТипЗначения = ТипЗнч(СтрокаТЧ[РеквизитТЧ.Имя]);

                Если Не ТипЗначения = Тип("Неопределено") Тогда

                    ФайлXML.ЗаписатьАтрибут("ИмяТипа", XMLТип(ТипЗначения).ИмяТипа);

                    ФайлXML.ЗаписатьАтрибут("URI", XMLТип(ТипЗначения).URIПространстваИмен);

                КонецЕсли;

                ФайлXML.ЗаписатьТекст(XMLСтрока(СтрокаТЧ[РеквизитТЧ.Имя]));

                ФайлXML.ЗаписатьКонецЭлемента();

            КонецЦикла;

            ФайлXML.ЗаписатьКонецЭлемента();

        КонецЦикла;

        ФайлXML.ЗаписатьКонецЭлемента();

    КонецЦикла;

    Если Не ФайлXML=Null Тогда

        ФайлXML.ЗаписатьКонецЭлемента();

        ФайлXML.Закрыть();

    КонецЕсли;

КонецПроцедуры

За чтение объекта отвечают процедуры ЗагрузитьРеквизитыИТабличныеЧасти и ЗагрузитьОбъектРекурсивно. Чтобы прочитать объект вызывается первая, ей передаются объект, который необходимо заполнить, и имя файла. Вторая является вспомогательной.

Код 1C v 8.х

 Процедура ЗагрузитьРеквизитыИТабличныеЧасти(Объект, ИмяФайлаXML=Неопределено) Экспорт

    Если Не ИмяФайлаXML = Неопределено Тогда

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

        ФайлXML.ОткрытьФайл(ИмяФайлаXML);

        Пока ФайлXML.Прочитать() Цикл

            Если ФайлXML.ТипУзла = ТипУзлаXML.НачалоЭлемента Тогда

                ЗагрузитьОбъектРекурсивно(ФайлXML, Объект, ФайлXML.Имя);

            КонецЕсли

        КонецЦикла;

    КонецЕсли;

КонецПроцедуры

Процедура ЗагрузитьОбъектРекурсивно(ФайлXML, Объект, знач ИмяУзла)

    ИмяТипа = "";

    ПространствоИмен = "";

    Пока ФайлXML.ПрочитатьАтрибут() Цикл

        Если ФайлXML.Имя = "ИмяТипа" Тогда

            ИмяТипа = ФайлXML.Значение;

        ИначеЕсли ФайлXML.Имя = "URI" Тогда

            ПространствоИмен = ФайлXML.Значение;

        КонецЕсли;

    КонецЦикла;

    Пока ФайлXML.Прочитать() Цикл

        Если ФайлXML.ТипУзла = ТипУзлаXML.КонецЭлемента И ФайлXML.Имя = ИмяУзла Тогда

            Возврат;

        ИначеЕсли ФайлXML.ТипУзла = ТипУзлаXML.Текст Тогда

            ТипОбъекта = ИзXMLТипа(ИмяТипа, ПространствоИмен);

            Если НЕ ТипОбъекта = Неопределено тогда

                Объект = XMLЗначение(ТипОбъекта, ФайлXML.Значение);

            КонецЕсли;

        ИначеЕсли ФайлXML.ТипУзла = ТипУзлаXML.НачалоЭлемента Тогда

            ИмяТекУзла = ФайлXML.Имя;

            Если ФайлXML.Имя = "ЭлементКоллекции" Тогда

                ЗагрузитьОбъектРекурсивно(ФайлXML, Объект.Добавить(), ИмяТекУзла);

            Иначе

                Если ФайлXML.ПрочитатьАтрибут() Тогда

                    ЗагрузитьОбъектРекурсивно(ФайлXML, Объект[ФайлXML.Значение], ИмяТекУзла);

                КонецЕсли;

            КонецЕсли;

        КонецЕсли;

    КонецЦикла;

КонецПроцедуры

В приложенном файле - Скачивать файлы может только зарегистрированный пользователь!

- демонстрационная обработка, позволяющая сохранить ссылочный объект БД в файл и заполнить объект из файла. Заполняемый объект должен быть того же типа, что и сохраненный, а также он должен быть предварительно создан, сохранен в ИБ и выбран в поле "Ссылка".

Категория: Документы

Выгрузка / Загрузка данных посредством XML файлов?

В основе работы с XML-файлами лежит технология доступа SAX, которая осуществляет считывание по одному тегу. Для этого существует два типа данных – ЗаписьXML и ЧтениеXML.
Запись данных справочника в XML-файл:

Код 1C v 8.х

 Запись = Новый ЗаписьXML;

Запись.ОткрытьФайл(ПутьКФайлу);

Запись.ЗаписатьОбъявлениеXML();

// формируем корневой элемент

Запись.ЗаписатьНачалоЭлемента("Клиенты");

Выборка = Справочники.Клиенты.Выбрать();

Пока Выборка.Следующий() Цикл

	// для каждого клиента формируем свой элемент

	Запись.ЗаписатьНачалоЭлемента("Клиент");

	// запишем код клиента в атрибут тега

	Запись.ЗаписатьАтрибут("Код", Строка(Выборка.Код));

	// Наименование клиента запишем в текст элемента

	Запись.ЗаписатьТекст(Выборка.Наименование);

	// закрываем элемент клиента

	Запись.ЗаписатьКонецЭлемента();	

КонецЦикла;

// закрываем корневой элемент xml-документа

Запись.ЗаписатьКонецЭлемента();	

// закрыть файл

Запись.Закрыть();

Чтение данных из XML-файла в справочник:

Код 1C v 8.х

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

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

Спр="";

// чтение осуществляется по одному тегу

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

	// анализируем тип элемента и его имя

	Если Чтение.ТипУзла = ТипУзлаXML.НачалоЭлемента Тогда

		Если Чтение.Имя="Клиент" Тогда

			// создаем новый элемент справочника

			Спр = Справочники.Клиенты.СоздатьЭлемент();

// читаем атрибуты

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

				Если Чтение.Имя="Код" Тогда

					Спр.Код = Число(Чтение.Значение);

				КонецЕсли;

КонецЦикла;

		КонецЕсли;

	ИначеЕсли Чтение.ТипУзла = ТипУзлаXML.Текст Тогда

		// заполняем наименование созданного ранее элемента

		Спр.Наименование = Чтение.Значение;

	ИначеЕсли Чтение.ТипУзла = ТипУзлаXML.КонецЭлемента Тогда

		// требуется записать информацию про клиента

		Спр.Записать();

	КонецЕсли;

КонецЦикла;

Создадим обработку в типовой конфигурации для экспорта плана счетов. Структура xml-файла должна быть такой. Корневой элемент xml-документа соответствует плану счетов в целом. В нем располагаются подчиненные элементы с именем Счет, содержащие информацию о счетах. В качестве содержимого элементов указывается наименование счета. Остальные данные записываются в качестве атрибутов (код, признаки валютного, количественного учета и пр.). В качестве подчиненных элементов для элемента Счет задаются элементы, обозначающие его субсчета с теми же атрибутами. Приведем код процедуры экспорта плана счетов.

Код 1C v 7.x

 Процедура Выполнить()

  Если ЗагрузитьВнешнююКомпоненту(КаталогПрограммы()+"v7plus.dll")<>1 Тогда

    Предупреждение("Компонента не обнаружена");

    Возврат;

  КонецЕсли;

  Анализатор=СоздатьОбъект("AddIn.XMLParser");

  Корень=Анализатор.СоздатьДокумент();

  План=Корень.СоздатьПодчиненныйЭлемент("ПланСчетов");

  Счет=СоздатьОбъект("Счет.Основной");

  Родитель=СоздатьОбъект("Счет.Основной");

  Счет.ВыбратьСчета();

  Пока Счет.ПолучитьСчет()=1 Цикл

    // если это счет, а не субсчет

    Если Счет.Уровень()=1 Тогда

      Родитель.НайтиПоКоду(Счет.Код);

      СчетXML=План.СоздатьПодчиненныйЭлемент("Счет");

      СчетXML.УстановитьАтрибут("Код", Счет.Код);

      СчетXML.УстановитьАтрибут("Валютный", Счет.Валютный);

      СчетXML.УстановитьАтрибут("Количественный", Счет.Количественный);

      СчетXML.УстановитьАтрибут("Забалансовый", Счет.Забалансовый);

      Если Счет.Активный=1 Тогда

        СчетXML.УстановитьАтрибут("вид","активный");

      ИначеЕсли Счет.Активный=2 Тогда

        СчетXML.УстановитьАтрибут("вид","пассивный");

      Иначе

        СчетXML.УстановитьАтрибут("вид","активно-пассивный");

      КонецЕсли;

      СчетXML.Значение=Счет.Наименование;

    Иначе

      Если Счет.ПринадлежитГруппе(Родитель)=1 Тогда

        СубсчетXML=СчетXML.СоздатьПодчиненныйЭлемент("Субсчет");

        СубсчетXML.УстановитьАтрибут("Код", Счет.Код);

        // аналогично устанавливаем все атрибуты на элемент СубсчетXML

        СубсчетXML.Значение=Счет.Наименование;

      КонецЕсли;

    КонецЕсли;

  КонецЦикла;

  Корень.Записать(КаталогПрограммы()+"plan.xml");

КонецПроцедуры

В результате будет получен файл, вот его фрагмент:

Код

<?xml version="1.0" encoding="windows-12Sl" ?> - <ПланСчетов>
<Счет Код="00" Валютный="0" Количественный="0" Забалансовый="0" вид="активно-пассивный">Вспомогательный</Счет>
- <Счет Код="01" Валютный="0" Количественный="0" Забалансовый="0" вид="активный">
Основные средства
<Субсчет Код="01.1" Валютный="0" Количественный="0" Забалансовый="0"
вид="активный">ОС в организации</Субсчет> <Субсчет Код="01.2" Валютный="0" Количественный="0" Забалансовый="0"
вид="активный">Выбытие ОС</Субсчет> </Счет>
- <Счет Код="02" Валютный="0" Количественный="0" Забалансовый="0" вид="пассивный">
Амортизация ОС

А теперь приведем код для импорта плана счетов из xml-файла в новую конфигурацию. Код модуля соответствующей обработки должен содержать процедуру Выполнить(), которая имеет такой вид.

Код 1C v 7.x

 Процедура Выполнить()

  Если ЗагрузитьВнешнююКомпоненту(КаталогПрограммы()+"v7plus.dll")<>1 Тогда

    Предупреждение("Внешняя компонента не найдена");

    Возврат;

  КонецЕсли;

  Анализатор=СоздатьОбъект("AddIn.XMLParser");

  Файл=Анализатор.СоздатьДокумент();

  Файл.Загрузить(КаталогПрограммы()+"plan.xml");

  План=Файл.ВыбратьУзел("ПланСчетов");

  кол=План.КоличествоПодчиненных();

  Счет=СоздатьОбъект("Счет.Основной");

  Для инд=1 по кол Цикл

    СчетXML=План.ПолучитьПодчиненныйПоНомеру(инд);

    КолСубсчетов=СчетXML.КоличествоПодчиненных();

    // подчиненным элементом является и содержимое элемента

    Если КолСубсчетов>1 Тогда

      Счет.Новый(1);

    Иначе

      Счет.Новый(0);

    КонецЕсли;

    Счет.Код=СчетXML.ПолучитьАтрибут("Код");

    Счет.Наименование=СчетXML.Значение;

    Счет.Валютный=СчетXML.ПолучитьАтрибут("Валютный");

    Счет.Количественный=СчетXML.ПолучитьАтрибут("Количественный");

    Счет.Забалансовый=СчетXML.ПолучитьАтрибут("Забалансовый");

    Если СчетXML.ПолучитьАтрибут("вид")="активный" Тогда

      Счет.Активный=1;

    ИначеЕсли СчетXML.ПолучитьАтрибут("вид")="пассивный" Тогда

      Счет.Активный=2;

    Иначе

      Счет.Активный=3;

    КонецЕсли;

    Счет.Записать();

    Если КолСубсчетов>1 Тогда

      Счет1=СоздатьОбъект("Счет.Основной");

      Для инд1=2 По кол_субсчетов Цикл

        Субсчет=СчетXML.ПолучитьПодчиненныйПоНомеру(инд1);

        Счет1.Новый(0);

        Счет1.Код=Субсчет.ПолучитьАтрибут("Код");

        // аналогично устанавливаются все атрибуты создаваемого субсчета

        Счет1.Записать();

      КонецЦикла;

    КонецЕсли;

  КонецЦикла;

Категория: XML, DBF, TXT, CSV

Как сформировать XML-документ в строку?

Требуется, чтобы запись XML-документа производилась не в файл, а в строку

Код 1C v 8.х

 Запись = Новый ЗаписьXML();

Запись.УстановитьСтроку();



Запись.ЗаписатьОбъявлениеXML();

Запись.ЗаписатьНачалоЭлемента("Корневой");

Запись.ЗаписатьАтрибут("Справочник", "Номенклатура");

Запись.ЗаписатьКомментарий("Краткая информация о номенклатуре");

Выборка = Справочники.Номенклатура.ВыбратьИерархически();

Пока Выборка.Следующий() Цикл

	Если Выборка.ЭтоГруппа Тогда

		Продолжить;

	КонецЕсли;	

	Запись.ЗаписатьНачалоЭлемента("Элемент");

	Запись.ЗаписатьАтрибут("Код", Строка(Выборка.Код));

	Запись.ЗаписатьАтрибут("Артикул", Строка(Выборка.Артикул));

	Запись.ЗаписатьТекст(Выборка.Наименование);

	Запись.ЗаписатьКонецЭлемента();

КонецЦикла;	

Запись.ЗаписатьКонецЭлемента();

Стр = Запись.Закрыть();

Сообщить(Стр);

Для вывода XML-документа в строку после создания объекта ЗаписьXML необходимо использовать метод УстановитьСтроку(). Только в этом случае метод Закрыть() вернет строку, которая будет содержать сформированный XML-документ.

еще примеры:

Код 1C v 8.х

   //Выгрузка объекта в XML строку

Функция ОбъектВXML(ДокументОбъект) Экспорт

    ЗаписьXML = Новый ЗаписьXML;

    ЗаписьXML.УстановитьСтроку();

    ЗаписатьXML(ЗаписьXML, ДокументОбъект);

    Возврат ЗаписьXML.Закрыть();

КонецФункции



//Загрузка объекта из XML строки 

Функция ОбъектИзXML(Стр) Экспорт

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

    ЧтениеXML.УстановитьСтроку(Стр);

    

    Возврат ПрочитатьXML(ЧтениеXML);

КонецФункции

Категория: XML, DBF, TXT, CSV

Как можно сформировать XML-документ произвольной структуры?

Используется модель последовательного доступа (работа осуществляется только с одним текущим узлом):

Код 1C v 8.х

 Запись = Новый ЗаписьXML;

//Путь к формируемому XML-документу указан в переменной ПутьКФайлу

Запись.ОткрытьФайл(ПутьКФайлу);



Запись.ЗаписатьОбъявлениеXML();

Запись.ЗаписатьНачалоЭлемента("Корневой");

Запись.ЗаписатьАтрибут("Справочник", "Номенклатура");

Запись.ЗаписатьКомментарий("Краткая информация о номенклатуре");



Выборка = Справочники.Номенклатура.ВыбратьИерархически();

Пока Выборка.Следующий() Цикл

	Если Выборка.ЭтоГруппа Тогда

		Продолжить;

	КонецЕсли;	

	Запись.ЗаписатьНачалоЭлемента("Элемент");

	Запись.ЗаписатьАтрибут("Код", Строка(Выборка.Код));

	Запись.ЗаписатьАтрибут("Артикул", Строка(Выборка.Артикул));

	Запись.ЗаписатьТекст(Выборка.Наименование);

	Запись.ЗаписатьКонецЭлемента();

КонецЦикла;	



Запись.ЗаписатьКонецЭлемента();

Запись.Закрыть();

В результате будет получен файл вида

Код

<НачалоЭлемента
ИмяАтрибута = Значение ИмяАтрибута = Значение......>
Текст
<КонецЭлемента>

Создание XML-документа с помощью объекта ЗаписьXML производится путем помещения в строгой последовательности (иначе будет нарушена структура) «частей» узлов.

Категория: XML, DBF, TXT, CSV