Re: алгоритм поиска...

From

Viktor Karev (2:5080/1003)

To

Alexey Matvienko

Date

2002-11-21T18:08:56Z

Area

RU.ALGORITHMS

From: Viktor Karev <termar@narod.ru>
Reply-To: termar@narod.ru

Приветствия!

Alexey Matvienko wrote:

> не могу въехать...
> нужен пеpебоp вложенных папок и поиск и файлах, котоpые лежат в этих папках...
> если можно, то на си, php, vb, perl...

процедура Поиск(Каталог,Обработка)
  Результат := НайтиПервыйФайл(Каталог,Маска,Инфо)
  пока (Результат = удовлетворительный) цикл
    если Инфо.Тип = Каталог то
      если (Инфо.Имя = ".") или (Инфо.Имя = "..") то
        Ничего не делать
      иначе
        Поиск(Каталог + Инфо.Имя,Обработка)
      конец если
    иначе
      Обработка(Каталог + Инфо.Имя)
    конец если
    Результат := НайтиСледующийФайл(Инфо)
  конец цикла пока
  КонецПоискаФайлов(Инфо)
конец процедуры

Важно еще правильно выполнять операцию Каталог + Инфо.Имя, чтобы
корректно вставлялся слэш (\).

Виктор
--- ifmail v.2.15dev5
 * Origin: USURT's FidoNET<->Internet Gate (news://news.c (2:5080/1003@fidonet)