v7: Как в рамках 7.7 перебрать файлы дерева каталогов? #578943

Есть подчиненные каталоги. Мне нужно программно перебрать и обработать все файлы с расширением  txt. Возможно ли это?

Да, возможно...

А как?

А чем НайтиПервыйФайл("*.txt") не нравиться?

например так: Для х=1 по Текст.КоличествоСтрок .... :):):)

НайтиПервыйФайл("*.txt") не работает (по крайней мере у меня) А вот за эту подсказку спасибо

У всех работает, а у тебя нет... Так может в консерватории что-то подправить?

только на с: прав на запись нет :-)

у кого как...

А УстТекКаталог делал?

вот как я пытаюсь сделать: В результате получаю    имя=""

А где УстТекКаталог ?

В "ФС.НайтиПервыйФайл(Каталог+"*.txt");" пишется только имя файла , а каталог устанавливается командой "УстТекКаталог(<Свой каталог>)"

Спасибо. А свой каталог = "B:дир" ?

Да

+Писать моно не только полное имя, а еще маску.

У тебя тоже СП украл?

ОК!

@Писать моно не только полное имя, а еще маску@ В имени файла, - понятно! Но как залезть во все ветки дерева каталогов? (Имена каталогов уникальны)

Рекурсия божественна!

Пока четко не представляю как организвать перебор имен через рекурсию, но попробую...

перебирать можно не только файлы, но и каталоги

Познание сущности рекурсии сделает тебя программистом!

Да работал я с ней, красиво все получается! Но в данном случае есть нечто новое

Уточнить можешь?

Примерно так: ... перебор "файлов" Если АтрибутыФайла(....) = это каталог тогда  СканироватьКаталог(ТекущийФайл) КонецЕсли КонецФункции

+ на всякий случай: Синтаксис: АтрибутыФайла(<ИмяФайла>,<РазмерФайла>,<АтрибутыФайла>,<ВремяСоздания>,<ВремяПоследнегоДоступа>,<ВремяПоследнейЗаписи>,<РасширенноеИмяФайла>) Назначение: Возвращает атрибуты файла (в параметрах). Параметры: <ИмяФайла> - строка с именем файла; <РазмерФайла> - переменная, принимающая размер файла в байтах; <АтрибутыФайла> - переменная, принимающая атрибуты файла; Возвращаемое строковое значение длиной 9 символов, в котором закодированы атрибуты файла. Символы могут принимать значения ''0'' или ''1'': первый символ: если ''1'' - файл только для чтения; второй символ: если ''1'' - скрытый файл; третий символ: если ''1'' - системный файл; четвертый символ: если ''1'' - каталог; пятый символ: если ''1'' - архивный файл; шестой символ: если ''1'' - обычный файл (все другие атрибуты не установлены); седьмой символ: если ''1'' - временный файл; восьмой символ: если ''1'' - файл, сжатый каким-либо архиватором; девятый символ: если ''1'' - нет доступа к файлу. <ВремяСоздания> - переменная, принимающая строку с датой и временем создания файла; <ВремяПоследнегоДоступа> - переменная, принимающая строку с датой и временем последнего доступа к файлу; <ВремяПоследнейЗаписи> - переменная, принимающая строку с датой и временем последней записи файла; <РасширенноеИмяФайла> - переменная, принимающая строку с полным именем файла. Подробнее см. в книгу ''1С:Предприятие 7.7. Описание встроенного языка. Часть 2'', глава 37 ''Работа с Файлами''.

Это по сути обычный findfirst/findnext из системного API работы с файлами

Спасибо

Наконец-то дошли руки до реализации вышеуказанного перебора папок/файлов. К сожалению есть проблема. При выходе из подчиненной папки, после перебора там файлов, перебор папок текущего уровня не работает. Первый же операор < Возврат ""; > приводит к полному завершению просмотра

Есть готовый кусок кода для построения дерева каталога. Красииииива - даже выводит в табличку с крестиками - свернуть/развернуть )) Но там все на вложенных таблицах значений и на рекурсиях и принципиально без ~М1 )) Так что если нужно в каком-то другом виде - переделывать нужно

Можно и с циклом сделать с досрочным завершением по условию. Но это не принципиально. Наталья, а можешь выслать мне этот "готовый кусок кода"?

Если вечером и из дома - то могу. А про "циклы и досрочные завершения" - даже Аленку, которая С++ учит, "воспитую" ))принципиально )) Если меня совсем сегодня на замучат этим С++ то вечером сделаю

а чо такая длинная ветка ?

передавай в список в параметре процедуры, функция тут не нужна

+ и зачем метка ?

Функция СканКаталога(ИмяКаталога)    Если Прав(ИмяКаталога,1)<>"" Тогда ИмяКаталога=ИмяКаталога+""; КонецЕсли;

кинула файлик в почту заодно и на инфостарте разместила, несмотря на тамошние нынешние безобразия ))