рекурсивно » Поиск

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

Особенности работы с хранилищем конфигурации Категория: Администрирование

Работа с хранилищем конфигурации (Создание, подключение, использование) Категория: Встроенные Функции

Сохранение реквизитов и табличных частей объектов в 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.Значение], ИмяТекУзла);

                КонецЕсли;

            КонецЕсли;

        КонецЕсли;

    КонецЦикла;

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

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

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

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

Как Выгрузить файлы и папки из каталога на FTP

Код 1C v 8.2 УП

 

Функция ВыгрузитьФайлыИПапкиНаFTP_Рекурсивно(Соединение, НачальныйКаталогВыгрузкиFTP, НачальнаяПапкаВыгрузкиКомп, ТекущаяПапка=Неопределено)

	Рез = Истина;

	Если ТекущаяПапка = Неопределено Тогда ТекущаяПапка = НачальнаяПапкаВыгрузкиКомп КонецЕсли; 

	МассивФайлов = НайтиФайлы(ТекущаяПапка, "*");

	ТекКаталог = СтрЗаменить(НачальныйКаталогВыгрузкиFTP + СтрЗаменить(СтрЗаменить(ТекущаяПапка, НачальнаяПапкаВыгрузкиКомп, ""), "\", "/"), "//", "/");

	Если Прав(ТекКаталог, 1) <> "/" Тогда

		ТекКаталог = ТекКаталог + "/";

	КонецЕсли;

	

	Для Каждого НайденныйФайл Из МассивФайлов Цикл

		Файл = Новый Файл(НайденныйФайл.ПолноеИмя);

		Если Файл.ЭтоКаталог() Тогда

			ЕстьТакаяПапка = Соединение.НайтиФайлы(НачальныйКаталогВыгрузкиFTP + СтрЗаменить(СтрЗаменить(НайденныйФайл.Путь, НачальнаяПапкаВыгрузкиКомп + "\", ""), "\", "/"), НайденныйФайл.Имя).Количество() > 0;

			

			Если не ЕстьТакаяПапка Тогда

				НомерПопытки = 1;

				Успешно = Ложь;

				Пока НомерПопытки < 4 и не Успешно Цикл

					Попытка

					Соединение.УстановитьТекущийКаталог(ТекКаталог);

						Успешно = Истина;

					Исключение

						Сообщить("Попытка №" + НомерПопытки + ", установка каталога " + ТекКаталог + " - " + ОписаниеОшибки());

						НомерПопытки = НомерПопытки + 1;

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

				КонецЦикла;

				Если Не Успешно Тогда

					Возврат Ложь;

				КонецЕсли;

				

				НомерПопытки = 1;

				Успешно = Ложь;

				Пока НомерПопытки < 4 и не Успешно Цикл

					Попытка

						Соединение.СоздатьКаталог(НайденныйФайл.Имя);

						Успешно = Истина;

					Исключение

						Сообщить("Попытка №" + НомерПопытки + ", каталог " + НайденныйФайл.Имя + " - " + ОписаниеОшибки());

						НомерПопытки = НомерПопытки + 1;

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

				КонецЦикла;

				

				Если Не Успешно Тогда

					Возврат Ложь;

				КонецЕсли;

				

				

			КонецЕсли;

			

			НомерПопытки = 1;

			Успешно = Ложь;

			Пока НомерПопытки < 4 и не Успешно Цикл

				Попытка

					Соединение.УстановитьТекущийКаталог(НачальныйКаталогВыгрузкиFTP + СтрЗаменить(СтрЗаменить(НайденныйФайл.ПолноеИмя, НачальнаяПапкаВыгрузкиКомп + "\", ""), "\", "/") + "/");

					Успешно = Истина;

				Исключение

					Сообщить("Попытка №" + НомерПопытки + ", установка каталога " + ТекКаталог + " - " + ОписаниеОшибки());

					НомерПопытки = НомерПопытки + 1;

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

			КонецЦикла;

			Если Не Успешно Тогда

				Возврат Ложь;

			КонецЕсли;

			

			ВыгрузитьФайлыИПапкиНаFTP_Рекурсивно(Соединение, НачальныйКаталогВыгрузкиFTP, НачальнаяПапкаВыгрузкиКомп, НайденныйФайл.ПолноеИмя);



			Если не Рез Тогда

				Возврат Ложь;

			КонецЕсли;

			

		Иначе

			НомерПопытки = 1;

			Успешно = Ложь;

			Пока НомерПопытки < 4 и не Успешно Цикл

				Попытка

					Соединение.УстановитьТекущийКаталог(ТекКаталог);

					Успешно = Истина;

				Исключение

					Сообщить("Попытка №" + НомерПопытки + ", установка каталога " + ТекКаталог + " - " + ОписаниеОшибки());

					НомерПопытки = НомерПопытки + 1;

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

			КонецЦикла;

			Если Не Успешно Тогда

				Возврат Ложь;

			КонецЕсли;

		

			

			

			// почему-то иногда при большой выгрузке глюкает ((

			// а со второй попытки выкладывается.... странно...

			НомерПопытки = 1;

			Успешно = Ложь;

			Пока НомерПопытки < 4 и не Успешно Цикл

				Попытка

					Соединение.Записать(НайденныйФайл.ПолноеИмя, НайденныйФайл.Имя);

					Успешно = Истина;

				Исключение

					Сообщить("Попытка №" + НомерПопытки + ", файл " + НайденныйФайл.ПолноеИмя + " - " + ОписаниеОшибки());

					НомерПопытки = НомерПопытки + 1;

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

			КонецЦикла;

			

			Если Не Успешно Тогда

				Возврат Ложь;

			КонецЕсли;

			

			#Если Клиент Тогда

				Состояние("Выгрузка файла: " + НайденныйФайл.ПолноеИмя);

			#КонецЕсли

			

		КонецЕсли;

	КонецЦикла;

	

	Возврат Рез;

	

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





// ПРИМЕР обращения к функции

КаталогиДляПередачиНаFTP = Новый Соответствие;

// цикл и в нем

КаталогиДляПередачиНаFTP.Вставить(СсылкаНаЭлементСправочника);

// Конец цикла



// Теперь Выгрузим все на FTP

	Для Каждого Выборка из КаталогиДляПередачиНаFTP Цикл

	ВыборкаДетальныеЗаписи = Выборка.Ключ;

	Соединение = Новый FTPСоединение(ВыборкаДетальныеЗаписи.FTPСервер,

	ВыборкаДетальныеЗаписи.FTPПорт,

	ВыборкаДетальныеЗаписи.FTPПользователь,

	ВыборкаДетальныеЗаписи.FTPПароль, ,Ложь);

	ВыгрузитьФайлыИПапкиНаFTP_Рекурсивно(Соединение, ВыборкаДетальныеЗаписи.FTPКаталогВыгрузки, ВыборкаДетальныеЗаписи.КаталогВыгрузкиДанных);

	КонецЦикла;

Как загрузить файлы с FTP

Категория: Работа с Интернет, Почтой (Mail), FTP

Табличное поле ~ Как реализовать в дереве значений флажок с тремя состояниями? Категория: Работа с Формой (Диалог) и её элементами

Использование объекта ДанныеРасшифровки Категория: Схема Компоновки Данных

ZIP-архив Создание Категория: Работа с Файлами и Каталогами

Архивирование файлов средствами 1C (ZIP) Категория: Работа с Файлами и Каталогами