Рекурсивный опрос FTP сервера

31.01.13

Интеграция - Файловый обмен (TXT, XML, DBF), FTP

Предлагаю вашему вниманию небольшую заметку по работе с FTP сервером. Рассмотрим поиск файлов по маске во всех каталогах ресурса. Для перехода во вложенные папки до самого нижнего уровня реализуем рекурсию. Можно конечно воспользоваться методом НайтиФайлы(<Путь>, <Маска>, <ИскатьВПодкаталогах>)  где указать в качестве 3-го параметра истину, но настройки безопасности большинства ресурсов в интернете не дадут вам этого сделать.

Файлы

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование Скачано Купить файл
(только для физ. лиц)
Обработка рекурсивного опроса ftp сервера (управляемая форма).
.epf 10,68Kb
21 1 850 руб. Купить

Подписка PRO — скачивайте любые файлы со скидкой до 85% из Базы знаний

Оформите подписку на компанию для решения рабочих задач

Оформить подписку и скачать решение со скидкой

План работы:

  1. Подключаемся к FTP серверу на основании обязательных данных (адрес сервера, имя пользователя)
  2. Опрашиваем каждую папку сервера на предмет совпадения по максе с помощью рекурсии
  3. Выводим полученные данные в табличный документ.

 Подключаемся к ftp серверу:

&НаКлиенте
Функция ПодключитьсяКFTPСерверу(ИмяУзла = "", Порт = 21, ИмяПользователя = "anonymous", Пароль = "pochta@mail.ru", ПассивноеСоединение = Ложь, ТаймАут = 10)
    Попытка
        Состояние("Подключаюсь к FTP серверу ...");
        ФТП = Новый FTPСоединение(  ИмяУзла,
                                    Порт,
                                    "",
                                    "",
                                    ,
                                    ПассивноеСоединение,
                                    ТаймАут);
    Исключение
        Возврат ОписаниеОшибки();
    КонецПопытки;
    Возврат ФТП; 
КонецФункции

Все реквизиты необходимые для подключения функция получает через параметры. Это делает функцию универсальной. В операторных скобках "попытка" выполняется подключение к FTP серверу и в случае удачи возвращает объект FTP. Если в процессе подключения возникли ошибки, то функция вернёт строку с содержанием этой ошибки. К серверу подключились можно переходить ко 2 части плана, а именно рекурсивному опросу.

&НаКлиенте
//перебирает файлы на ФТП сервере рекурсивно
Процедура ПолучитьФайлыРекурсивно(ФТП = Неопределено, Каталог = "", МаскаФайлов = Неопределено)
	//без соединения опрашивать будет нечего
	Если ФТП = Неопределено Тогда
		Возврат;
	КонецЕсли;
    Состояние("Веду опрос каталога: " + Каталог);
    Попытка
        МасивFTPФайлов = ФТП.НайтиФайлы(Каталог,
                                    "*",
                                    Ложь);
    Исключение
        Сообщить(
            "Во время рекурсивного поиска файлов произошла исключительная ситуация:" +
            ОписаниеОшибки(),
            СтатусСообщения.Важное);
        Возврат;                            
    КонецПопытки;
    Для Каждого ЭлементМассива Из МасивFTPФайлов Цикл
		Если ЭлементМассива.ЭтоФайл() Тогда
			Если МаскаФайлов.НайтиПоЗначению("*" + ЭлементМассива.Расширение) <> Неопределено Тогда
				СтрокаТЗ                			= Объект.Файлы.Добавить();
				СтрокаТЗ.Путь           			= "ftp://" + ФТП.Сервер + ЭлементМассива.Путь + ЭлементМассива.Имя;
				СтрокаТЗ.РасширениеФайла 			= ЭлементМассива.Расширение;
				СтрокаТЗ.ДатаПоследнегоИзменения 	= ЭлементМассива.ПолучитьВремяИзменения();
				СтрокаТЗ.Размер         			= Окр(ЭлементМассива.Размер() / 1024, 2);
			КонецЕсли;
        ИначеЕсли ЭлементМассива.ЭтоКаталог()
            И ЭлементМассива.ПолноеИмя <> Лев(Каталог, СтрДлина(Каталог) - 1)
            И ЭлементМассива.Имя <> "."
            И ЭлементМассива.Имя <> ".." Тогда
            ПолучитьФайлыРекурсивно(ФТП, ЭлементМассива.ПолноеИмя, МаскаФайлов);
        КонецЕсли;    
    КонецЦикла;
КонецПроцедуры

Понять как работает рекурсивная процедура проще всего по схеме:

Схема рекурсивного вызова

Так как в массиве файлов, возвращаемым методом НайтиФайлы, есть и каталоги и файлы мы не выйдем из цикла пока не будет ни единого каталога. То есть мы опросим весь сервер. В процессе работы выполняется и 3 пункт нашей программы - заполнение табличной части информацией. Осталось только увязать наши механизмы в управляющей процедуре.

&НаКлиенте
Процедура ОпроситьFTP(Команда)
    ФТП = ПодключитьсяКFTPСерверу(    Объект.FTPСервер,
                                    Объект.Порт,
                                    Объект.ИмяПользователя, 
                                    Объект.Пароль,
                                    Объект.ПассивноеСоединение,
                                    Объект.ТаймАут);
                                    Если ТипЗнч(ФТП) <> Тип("Строка") Тогда
        СтрокаМасок = Объект.МаскаФайлов;
        СписокМасок = РазбитьСтрокуНаПодстроки(СтрокаМасок, ";");
        Объект.Файлы.Очистить();
        ПолучитьФайлыРекурсивно(ФТП, Объект.ОтносительныйКаталог, СписокМасок);
        Элементы.Закладки.ТекущаяСтраница = Элементы.РезультатыОпроса;
        //Элементы.Файлы.Обновить();
        //Сообщить("Нашлось: " + Объект.Файлы.Количество());
    Иначе
        Предупреждение(ФТП, 10);
    КонецЕсли;
КонецПроцедуры

Вотсобственно и всё. В качестве бонуса приведу процедурку выгружающую результаты опроса в эксель.

&НаКлиенте
Процедура ВыгрузитьВЭксель(Команда)
    Экс = Новый COMОбъект("excel.application");
    Книга = Экс.Workbooks.add();
    //удалим не нужные листы
    Для н = -Книга.Worksheets.Count По -2 Цикл
        Книга.Worksheets(1).Delete();
    КонецЦикла;
    Лист = Книга.Worksheets(1);
    Лист.Cells(1, 1).Value = "Путь";
    Лист.Cells(1, 2).Value = "Тип";
    Лист.Cells(1, 3).Value = "Изменён";
    Лист.Cells(1, 4).Value = "Размер (кб)";
    Лист.Range(Лист.Cells(1, 1), Лист.Cells(1, 4)).Font.Bold = Истина;
    Лист.Range(Лист.Cells(1, 1), Лист.Cells(1, 4)).Font.Size = 16;
    Лист.Range(Лист.Cells(1, 1), Лист.Cells(1, 4)).Interior.ColorIndex = 24;
    Лист.Name = "Содержимое FTP " + Объект.FTPСервер;
    Для Каждого СтрокаТЗ Из Объект.Файлы Цикл
        Лист.Cells(СтрокаТЗ.НомерСтроки + 1, 1).Value = СтрокаТЗ.Путь;
        Лист.Cells(СтрокаТЗ.НомерСтроки + 1, 2).Value = Сред(СтрокаТЗ.РасширениеФайла, 2);
        Лист.Cells(СтрокаТЗ.НомерСтроки + 1, 3).Value = СтрокаТЗ.ДатаПоследнегоИзменения;
        Лист.Cells(СтрокаТЗ.НомерСтроки + 1, 4).Value = СтрокаТЗ.Размер;
        //для чётных строк
        МаркерЧётности = (СтрокаТЗ.НомерСтроки + 1) / 2;
        Если МаркерЧётности = Цел(МаркерЧётности) Тогда
            Область = Лист.Range(Лист.Cells(СтрокаТЗ.НомерСтроки + 1, 1), Лист.Cells(СтрокаТЗ.НомерСтроки + 1, 4));
            Область.Interior.ColorIndex = 17;
        КонецЕсли;
    КонецЦикла;
    Лист.UsedRange().Columns.AutoFit();
    Экс.visible = Истина;
КонецПроцедуры

 

Хочу обратить ваше внимание на то, что настройки удалённого ftp сервера могут иметь свои особенности. Например можно запретить анонимному пользователю заходить в папки ниже 3 уровня вложенности, или ограничить по трафику в 200 кб. В связи с этим можно наблюдать не адекватность при выполнении обработки. Сама обработка представлена как показательный рекурсивный механизм и не преследует цель обработать все возможные исключительные ситуации в роботе по протоколу FTP.

Настроки подключения

Тыльная часть обработки


См. также

SALE! 10%

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Системный администратор Программист 1С v8.3 1С:Розница 2 1С:Управление нашей фирмой 1.6 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 1С:Розница 3.0 Россия Платные (руб)

Правила в универсальном формате обмена для ERP 2.5, КА 2.5, УТ 11.5, БП 3.0, Розница, УНФ, для последних версий конфигураций. Ссылки на другие конфигурации в описании публикации. Правила совместимы со всеми другими версиями конфигураций новыми и старыми, поддерживающими обмен и синхронизацию в формате EnterpriseData. Не требуется синхронного обновления правил после обновления другой конфигурации, участвующей в обмене. Типовой обмен через планы обмена кнопкой Синхронизация вручную или автоматически по расписанию, или вручную обработкой.

27660 24894 руб.

12.06.2017    148462    864    302    

455

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Системный администратор Программист 1С v8.3 Оперативный учет 1С:Управление торговлей 10 Россия Управленческий учет Платные (руб)

Перенос данных из 1С:Управление торговлей 10.3 в 1С:Управление торговлей 11.5 с помощью правил обмена. Переносятся остатки, документы (обороты за период), справочная информация. Правила проверены на конфигурациях УТ 10.3 (10.3.88.x) и УТ 11.5 (11.5.21.x).

35000 руб.

23.07.2020    58780    284    75    

224

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Системный администратор Программист 1С v8.3 1С:Управление производственным предприятием 1С:Бухгалтерия 3.0 Россия Бухгалтерский учет Управленческий учет Платные (руб)

Перенос данных из 1С:Управление производственным предприятием 1.3 в 1С:Бухгалтерия предприятия 3.0 с помощью правил обмена. Переносятся остатки, документы (обороты за период), справочная информация. Правила проверены на конфигурациях УПП 1.3 (1.3.246.x) и БП 3.0 (3.0.175.x). Правила подходят для версии ПРОФ и КОРП.

35000 руб.

15.12.2021    27851    198    58    

153

SALE! 10%

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Системный администратор Программист 1С v8.3 1С:Комплексная автоматизация 1.х 1С:Управление производственным предприятием 1С:Бухгалтерия 3.0 Россия Бухгалтерский учет Платные (руб)

Перенос данных из 1С:Управление производственным предприятием 1.3 в 1С:Бухгалтерия предприятия 3.0 с помощью правил обмена | Можно выполнить переход с УПП на БП 3 или запускать выгрузку данных за выбранный период времени | Переносятся документы, начальные остатки и вся справочная информация | Есть фильтр по организации и множество других параметров выгрузки | Поддерживается несколько сценариев работы: как первичный полный перенос, так и перенос только новых документов | Перенос данных возможен в "1С: Бухгалтерия 3.0" версии ПРОФ, КОРП или базовую | Переход с "1С: УПП1.3" / "1С:КА 1.1" на "1С:БП3.0" с помощью правил конвертации будет максимально комфортным! | Можно бесплатно проверить перенос на вашем сервере!

48278 43450 руб.

25.02.2015    175134    319    267    

388

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Системный администратор Программист 1С v8.3 1C v8.2 1С:Комплексная автоматизация 1.х 1С:Управление торговлей 10 1С:Управление производственным предприятием Россия Платные (руб)

Регулярный обмен, выгрузка, перенос из КА 1.1, УПП 1.3, УТ 10.3 для обмена с любыми конфигурациями, поддерживающими обмен в формате EnterpriseData (КД3) - БП 3.0, ERP, КА 2, УТ 11, Розница 2, УНФ 1.6 и другими. Правила для старых и доработанных конфигураций не требуют синхронного обновления и совместимы с новыми и будущими конфигурациями. Обмен по расписанию, через папку, FTP, почту.

16260 руб.

18.02.2016    191297    626    536    

545

SALE! 10%

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Системный администратор Программист 1С v8.3 1С:Комплексная автоматизация 1.х 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Платные (руб)

Перенос данных из КА 1.1 в КА 2 | из КА 1.1 в УТ 11 | Воспользовались более 367 компаний! | Переносятся все возможные виды документов, начальных остатков и вся справочная информация из "1С:КА 1.1" в "1С:КА 2.х" / "1С:УТ 11" | Разработан в формате КД 2 (правила конвертации данных) | Фильтр по организациям при выгрузке | Выбор разных алгоритмов выгрузки начальных остатков | Можно проверить перенос до покупки!

55778 50200 руб.

04.12.2015    194244    254    351    

409

Загрузка и выгрузка в Excel Логистика, склад и ТМЦ Ценообразование, анализ цен Файловый обмен (TXT, XML, DBF), FTP Бухгалтер Пользователь 1С v8.3 1С:Бухгалтерия 2.0 1С:Управление торговлей 10 1С:Розница 2 1С:Управление нашей фирмой 1.6 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 1С:Розница 3.0 Платные (руб)

Эволюция не стоит на месте - новая удобная версия функциональной обработки для Вашего бизнеса! Что же Вы получаете? Удобный и интуитивно понятный интерфейс с 3-мя этапами работы. 2 режима - автоматический и ручной. Чтение XLSX, XLSM, CSV, XML/YML форматов без офиса, на любом сервере! Визуальное связывание колонок файла и реквизитов простым перетаскиванием колонок. Создание или обновление номенклатуры с иерархией, характеристик, доп. реквизитов, упаковок, загрузка практически неограниченного количества картинок на одну номенклатуру (с возможностью загрузки в несколько потоков одновременно), с хранением в томах или в базе. Загрузка номенклатуры поставщиков или поиск по их данным номенклатуры. Загрузка доп. реквизитов в характеристики. Загрузка штрихкодов с генерацией новых. Создание элементов справочников и ПВХ "на лету" для выбранных реквизитов. (Обновление от 13.05.2025, версия 9.11 - 1010)

18000 руб.

20.11.2015    163311    406    386    

532
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. invertercant 22 21.10.13 11:32 Сейчас в теме
Мне вообще не удалось применить стандартную функцию НайтиФайлы в режиме поиска по подкаталогам. Даже для своего поднятого ftp-сервера, где есть полные права.
CWD ftp
550 CWD failed. "/ftp": directory not found.
Неправильно меняет директорию.
Кажется стандартная функция не работает по подкаталогам вообще.
2. makc2k 108 22.10.13 10:03 Сейчас в теме
Для самой правильной проверки рекомендую консольный ftp клиент. Там можно сделать скажем ls -r (вывод листинга содержимого каталога рекурсивно).
Оставьте свое сообщение