Функция поиск по маске

[Vigi]

Здрасти!
Что то не могу сообразить нужно сделать универсальную функцию поиска в тексте по маске!
текст (массив) будет иметь только числовые значения.


пример:
маска 'aabbb' = 77333 = 44111 и тд.
маска 'aaxbb' = 22033 = 99733 = 11422 и тд.
маска 'ababab' = 121212 = 414141 и тд.
маска 'xxxbb' = 12377 = 10344 = 75622 ..

Есть мысли ? или уже есть готовое решение и не нужно выдумывать велосипед ?!

[Swarog]

есть стандартная функция MatchesMask но не думаю что она подойдет

[Vigi]

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

есть стандартная функция MatchesMask но не думаю что она подойдет

Эт я знаю это не то

[Serge_Bliznykov]

думаю, что кроме Вас подобный поиск больше никому не нужен.
Поэтому выдумывайте велосипед...

Ан нет... похоже, регулярные выражения Вам помогут!
посмотрите на
TRegExpr

ДОБАВЛЕНО

снимаю свое предложение насчёт регулярных выражений..
проще ручками свой "велосипед" смастерить, чем их приспособить под такую нестандартную ситуацию...

[Vigi]

Вот люди дали готовую функцию все реально работает,
делюсь может кому и еще сгодится...

function MatchesSmartMask(Mask, Value: string): Boolean;
  var
    i: Integer;
    Map: array[Char] of Char;
    ReverseMap: array['0'..'9'] of Char;
  begin
    Result := False;
    if Length(Mask) <> Length(Value) then
      Exit;
    FillChar(Map, SizeOf(Map), 0);
    FillChar(ReverseMap, SizeOf(ReverseMap), 0);
    for i := 1 to Length(Mask) do
      if Mask[i] <> 'x' then
        if Map[Mask[i]] = #0 then begin
          if ReverseMap[Value[i]] = #0 then begin
            Map[Mask[i]] := Value[i];
            ReverseMap[Value[i]] := Mask[i];
          end
          else if ReverseMap[Value[i]] = Mask[i] then begin
          end
          else
            Exit;
        end
        else if Map[Mask[i]] <> Value[i] then
          Exit;
    Result := True;
  end;

[Serge_Bliznykov]

угу. спасибо!

забавно Действительно работает!

p.s. а если не секрет, при решении какой задачи/проблемы возникает потребность в подобных масках?

[Vigi]

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

угу. спасибо!

забавно Действительно работает!

p.s. а если не секрет, при решении какой задачи/проблемы возникает потребность в подобных масках?

Не секрет, для своей команды в атомомную рыбалку клиент писал )


отслеживать рыб в турнире помогает )

[Serge_Bliznykov]

отслеживать рыб в турнире помогает )

спасибо за ответ!
супер!