Поиск в подкаталогах

[Serge_Bliznykov]

DarkEvil
ну это совсем другое дело.
Только всё равно одна маленькая недоработочка осталась... Дело в том, что FindFirst ищет по маске. а в ней много чего допускается, 1) можно задавать не только расширение. 2) и в расширении можно задавать подстановочные знаки (? (один любой знак) и * - любое количество любых знаков..
вот так можно найти все файлы, имеющие расширение из двух символов *.??
или маска T*.AVI - найдёт все файлы AVI, начинающиеся на T...

в Вашем же случае MASK - это исключительно расширение!

поэтому лучше делать так, как я сразу сказал - ДВА цикла перебора файлов, один - по маске, второй - по подкаталогам.

[DarkEvil]

Сообщение от Serge_Bliznykov

DarkEvil
ну это совсем другое дело.
Только всё равно одна маленькая недоработочка осталась... Дело в том, что FindFirst ищет по маске. а в ней много чего допускается, 1) можно задавать не только расширение. 2) и в расширении можно задавать подстановочные знаки (? (один любой знак) и * - любое количество любых знаков..
вот так можно найти все файлы, имеющие расширение из двух символов *.??
или маска T*.AVI - найдёт все файлы AVI, начинающиеся на T...

в Вашем же случае MASK - это исключительно расширение!

поэтому лучше делать так, как я сразу сказал - ДВА цикла перебора файлов, один - по маске, второй - по подкаталогам.

Ну я в таком случае зделал бы так:

 if ExtractFileExt(SearchRec.Name) = Mask then

Заменил бы на:

if MatchesMask(ExtractFileName(SearchRec.Name), Mask) then

добавив соотвествующий модуль Masks

[Serge_Bliznykov]

вот. согласен! так даже лучше!

[BOBAH13]

Ох ребятушки-ребятушки.
Там где непонятки с faDirectory делается это так:

if ((SearchRec.Attr and faDirectory) = faDirectory) then
// папку найшли
else
// файл нашли

Нельзя делать <> 0, т.к. будь там какой то еще флаг, и faDirectory не прямо указывает 1 бит, тогда попали бы Вы

p.s. почему пишу ? было в практике, долго искал причину... после пишу только так, либо четкий 0, либо четкое равенство. Хотя щас в С++, пишу так (attr & FILE_ATTRIBUTE_DIRECTORY) типа того

и к слову, еще кое-что заметил

 if StartDir[Length(StartDir)] <> '\'

опасно такие вещи писать а если ситуация, ну вот вдруг, что Length(StartDir) вернет 0 т.е. получаем элемент 0 (1й элемент) из нулевого масива.. ай-ай лучше так

 if copy(StartDir, 1, 1) <> '\'

ну на счет copy не помню уже... дельфи забыл но конечно же лучше вначале функции проверять длину StartDir.

[DarkEvil]

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

IncludeTrailingPathDelimiter(StartDir);

на первый же, работает, что бы что-то где-то несработало, то такого небыло ))) Но Ваше замечания принято )))
а идея автора, была поправить его код, а не полностью переработать, оптимизировать

[Serge_Bliznykov]

if ((SearchRec.Attr and faDirectory) = faDirectory) then

так, конечно, более красиво.

но,

Нельзя делать <> 0, т.к. будь там какой то еще флаг, и faDirectory не прямо указывает 1 бит, тогда попали бы Вы

c этим категорически не согласен.
(... and faDirectory )<>0
Так тоже будет работать чётко и без ошибок.
Смотрите, накладываем битовую маску через AND
и тут уже всёго два варианта - либо в нужной позиции была единичка (т.е. был аттрибут faDirectory) и тогда получим число не равное нулю.
Либо, если не было аттрибута faDirectory, в нужной битовой позиции был 0 и And faDirectory вёрнёт число НОЛЬ. всё. третьего не дано!

___________________________________ _________
цитирую:

Сообщение от (c) JEDI

function IncludeTrailingPathDelimiter(const APath: string): string;
begin
  if (Length(APath) > 0) and (APath[Length(APath)] <> '\') then
    Result := APath + '\'
  else
    Result := APath;
end;

Сообщение от sysutils

function IsPathDelimiter(const S: string; Index: Integer): Boolean;
begin
  Result := (Index > 0) and (Index <= Length(S)) and (S[Index] = '\')
    and (ByteType(S, Index) = mbSingleByte);
end;

function IncludeTrailingBackslash(const S: string): string;
begin
  Result := S;
  if not IsPathDelimiter(Result, Length(Result)) then Result := Result + '\';
end;

это я к тому, что в первоначальный код нужно было добавить проверку длины строки и всё... хотя, конечно, использование системной функции это, безусловно, правильное решение.

[DarkEvil]

мдя, но как бы красивей использовать готовую функцию, и читать код через
пол года будет все также удобно

[MixanMM]

Ну кли тут такая тема, воопщем у меня вопрос в довесок к этому всему, как сделать что бы при нахлждении файла *rep_01.* и файла *rep_015.* он их раскидывал по разным папкам?

[MaxNik2009]

Сообщение от MixanMM

как сделать что бы при нахлждении файла *rep_01.* и файла *rep_015.* он их раскидывал по разным папкам?

можно через стандартную функцию RenameFile

[mihali4]

Одна тема - один вопрос.
Развели флуд.
Закрыто.