Платные хостинги     Раскрутка сайта     Книги по программированию

Поиск слов по маске

- Здравствуйте. Может у кого-нибудь есть готовая функция поиска(выборки) слов по маске (с использованием символов '*' и '?'). Поделитесь если не жалко . Спасибо.

- А что мешает тебе самому написать? Неужели так сложно?

- Поищи в инете Regular expression DelphiДля примера нашелhttp://ourworld.compuserve.com/homepag....its.htmРегулярные выражения - очень мощная вещь.

- А что тебе мешает не отвечать подобным образом? Тоже сложно?

- Признаю. Был не прав.Вот функция, настрочил за 10 минут, скорее всего не работает, но алгоритм примерно такой. Функция возвращает истину в случае если строка s подходит мод маску m:function Is(s, m: string): Boolean;var  l, i, j, cs, cm: Integer;begin  cs := 0;  cm:=cs;  l := Length(s)  for i:=1 to l do  begin    j := l;    case m[cm] of      '*' :        while(j>cs and s[j]!=m[cm+1]) do j:=j-1;        if cs=j then return False;        cs:=cs+(l-j);      '?' : if cs<l then cs:=cs+1 else return False;      else if m[cm]==s[cs] then cs:=cs+1 else return False;    end;    cm:=cm+1;    if (cs=l) return True;  end;  return False;end;

- MatchesMask (uses masks)

- Класс! Никогда даже не подозревал о наличии такой функции и модуля. Спасибо большое.

- Да, для меня тоже открытие..... век живи, век учись....

- Ведь чувствовал, что такое есть! Спасибо.

Интернет казино     Онлайн игры     Увеличение члена     Купить DVD