VPF::[pascal]База данных - Форум программистов

Gigabyte

Дата 25.1.2007, 13:02 (ссылка)

(нет голосов)

Загрузка ...

Студент-халявщик

Профиль
Группа: Участник
Сообщений: 305
Регистрация: 1.11.2004
Где: ПЫтер

Репутация: 1
Всего: 3

Требуется разработать базу данных на паскале
и что бы можно было выводить данные которые соответствуют маске(?-любой символ; *-любая последовательность символов любой длины
например:Vingrad будет соответствовать маске Vi?g*d)
с разработкой самой базы у меня проблем не возникло а вот с функцией которая будет определять соответствует строка маске...Никак

Может кто поможет??

--------------------

volvo877

Дата 25.1.2007, 16:54 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 34
Всего: 116

Цитата(Gigabyte @ 25.1.2007, 12:02

)

а вот с функцией которая будет определять соответствует строка маске...Никак

А погоняй-ка вот эту старую-старую функцию:

Код


function WildComp(s_wild, s: string): boolean;

  function compare(var WildS,IstS: string): boolean;
  var
    i, j, L, p: Byte;
  begin
    i := 1; j := 1;

    while i <= length(WildS) do begin

      if WildS[i]='*' then begin

        if i = length(WildS) then begin
          compare := true;
          exit
        end
        else begin
          L := succ(i);
          while (l < length(WildS)) and (WildS[succ(L)] <> '*') do inc(L);
          p := pos(copy(WildS, succ(i), L - i), IstS);

          if p > 0 then j := pred(p)
          else begin
            compare := false;
            exit;
          end;
        end;

      end
      else
        if (WildS[i] <> '?') and
           ((length(IstS) < i) or (WildS[i] <> IstS[j])) then begin
          compare := false;
      exit
        end;

      inc(i); inc(j);
    end;
    compare := (j > length(IstS));
  end;

begin
  WildComp := compare(s_wild, s);
end;

{ Test }

const r: array[boolean] of string =
         ('error', 'ok');
begin
  writeln( r[WildComp('c?n*tor',  'constructor')] );
  writeln( r[WildComp('vi?g*d',  'vingrad')] );
end.

(хотя по-моему, есть комбинации, на которых она будет отрабатывать неверно)...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »