Функция ЗагрузкаСНедолжникаРф() Экспорт

            Для Каждого Эл Из СписокНастроек() Цикл

                        Если Эл.Наименование = "Недолжник.Рф - Загрузка" Тогда

                                   FTPСоединение = Новый FTPСоединение(Эл.Сервер, Эл.Порт, Эл.Логин, Эл.Пароль, Неопределено, Истина, 0);

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

                                   СтрокаПоиска = "*" + Формат(ТекущаяДата(),"ДФ=yyyy-MM-dd") + "*";

                                   мФайлов =  FTPСоединение.НайтиФайлы(Эл.Каталог, СтрокаПоиска, Ложь);  

                                   Для Каждого Фл Из мФайлов Цикл 

                                               ТемпФайл = КаталогВременныхФайлов() + Фл.Имя; 

                                               FTPСоединение.Получить(Фл.ПолноеИмя, ТемпФайл);

                                               ДанныеФайла  =  Новый ЧтениеТекста;

                                               ДанныеФайла.Открыть(ТемпФайл);

                                               //Строка заголовков CSV-файла                                        

                                               ТекСтрока = ДанныеФайла.ПрочитатьСтроку();

                                               //Остальные строки файла                                     

                                               Пока ТекСтрока <> Неопределено Цикл

                                                           МассивСлов = СтрРазделить(ТекСтрока, ";");

                                                           Если МассивСлов.Количество() < 3 Тогда                                                                     

                                                                       Продолжить;                                                           

                                                           КонецЕсли;

                                                           ТекСтрока = ДанныеФайла.ПрочитатьСтроку();

                                                           мСтроки = СтрРазделить(ТекСтрока, ";", Истина);

                                                           //***Тут что-то делаем с данными из файла                                                       

                                               КонецЦикла;

                                               //Закрываем и удаляем временный файл

                                               ДанныеФайла.Закрыть();

                                               УдалитьФайлы(ТемпФайл);

                                   КонецЦикла;

                        КонецЕсли;   

            КонецЦикла;

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

&НаКлиенте

Процедура НайтиФайлНаФТП(Команда)

            ЗагрузкаСНедолжникаРф();

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