Регулярные выражения. Правильность составления

[Stilet]

Всем доброго.
Есть задача с помошью регулярных выражений определить пригоден ли файл (определяется по его имени) к некоей задаче.
Допустим есть файлы:
d123456789.dbf..DBF
d123456789.dbf

Первый файл не пригоден - у него испорчено расширение, второй годится.
Проверяю так:

TRegEx.IsMatch('d123456789.dbf','^d12(\d{7})(!$.dbf.)')

Результат False в обоих случаях.
Уверен что не правильно построил вторую часть "и не оканчивается на .dbf."

Подскажите как должно быть правильно выстроено дабы отсеивать из списка файлы с некорректным расширением.

P.S. Расширение может быть с любым количеством точек

[Rififi]

Stilet

Первый файл не пригоден - у него испорчено расширение

На каком основании сделан такой вывод?
Вообще по описанию очень мутно понять, какой-же файл считается пригодным

[Stilet]

На каком основании сделан такой вывод?

Сторонняя программа (которую не возможно переписать) давится всеми у которых расширение не .dbf
Отсеивать нужно .dbf..DBF
Но в случае, описанном в топе так же отсеивается и те у кого расширение нормальное.

P.S. Я конечно могу проверять другим методом, но всетки регулярку освоить не помешало бы.

[Человек_Борща]

Stilet, зачем такие сложности для столь простой задачи?
Исходя из правила: "Правильный файл" имеет формат <Имя файла с точками>.<расширение>. Ищите только расширение и считайте их кол-во.

Следует, что если файл имеет больше 1-го вхождения(совпадения) для значения .dbf (одна точка и знаки после неё), то это не правильный файл.
Регулярки тут не нужны вовсе, но для практики не плохо.

[Rififi]

Stilet

Сторонняя программа (которую не возможно переписать) давится всеми у которых расширение не .dbf

Ну тогда почему бы и не отсеять все файлы, у которых расширение не .dbf?

if not \.dbf$ then error

хотя зачем для этого регулярка...?

Shell API в Windos неплохо справляется, да и в Delphi есть свои функции..

[Человек_Борща]

Вот написал..

function TForm1.SearchIn(aStr:string; const cExt:string = '.dbf'):Smallint;
var
  s:string;
  p:Integer;
begin
  Result:=0;
  s:=LowerCase(aStr);
  p:=1;
  repeat
     p:=Pos(cExt,s);
     if p > 0 then
     begin
       Inc(Result);
       Delete(s,1,p+Length(cExt));
     end;
  until p = 0;
end;

Функция считает кол-во вхождений cExt в строку aStr.
Если результат больше 2-х, то это плохое имя файла.

[Stilet]

хотя зачем для этого регулярка...?

Ой... Ну изучить я ее решил. Попробовать, применить...
Вдруг понравится?
Ладно, мысли уловил, для производства сделаю проверку на отсутствие .dbf. в принципе - пока этого хватит, но всетки для себя хочу знать как на регулярке такое расписать. Покручу еще мануалы, может дойдет наконец.

[netrino]

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

В

TRegEx.IsMatch('d123456789.dbf','^d12(\d{7})(!$.dbf.)')

Результат False в обоих случаях.
Уверен что не правильно построил вторую часть "и не оканчивается на .dbf."

А почему бы вместо этого во второй части не сказать "и оканчивается на .dbf"?

^d12\d{7}\.dbf$

Под этот шаблон подойдут любые строки вида
d12XXXXXXX.dbf
где X - цифра

[Stilet]

netrino

О! классная идея - обрубить строку после первого dbf.
Об этом я как-то не подумал. Спасибо.