[serebrus]

Привет всем.
Допустим имеются несколько слов: 1. маршрут 2. ашот 3. миршот, ... Также задано ключевое слово: март.
Есть ли возможность получить только похожую часть всех слов. Ожидаемый результат: 1. март 2. ат 3. мрт
Пробовал регулярным выражением типа: м*а*р*т*.
Результат такой:
1. мар
2. р
3. т
4. а
5.
6. т
7. м
8. р
9.
10. т

[AlexSku]

Что понимается под "получить только похожую часть"? Если нет правила, то у вас одно понятие, у меня другое, у компьютера третье.
Хотя догадываюсь: ищется первая буква из шаблона, если нет, то следующая. Как только она находится, у шаблона эта буква изымается из поиска, переходим к следующей, а поиск продолжается с нового места.

[serebrus]

Я же показал пример, надо чтою результат был таким: март, ат, мрт
А у меня получается:
мар
р
т
а

т
м
р

т

[AlexSku]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  Pattern, S, Res: String;
  I, J: Integer;
begin
  Pattern:= AnsiUpperCase(Edit1.Text);  // 'Март'
  S:= AnsiUpperCase(Edit2.Text);        // Можно из ListBox, Memo...
  Res:= '';
  J:= 1;
  for I:= 1 to Length(Pattern) do
  begin
    J:= Pos(Pattern[i], S);
    if J > 0 then
    begin
      Res:= Res + Pattern[i];
      Delete(S, J, 1);
      if S = '' then Break;
    end;
  end;
  Edit3.Text:= Res;
end;

[serebrus]

Хороший код, но он меняет местами букв. Например: Pattern:='shina' S:='hasan'. hasan становится shna, а должно было hasn

[AlexSku]

Если что не так, то код плохой. Нашёл ошибку, надо:

Код:

Delete(S, 1, J);

Но у меня получается SN. Если у вас другой алгоритм, поясните, почему должно получится HASN. Или расположение букв не важно?
Если надо сравнить общие буквы, то алгоритм такой: первое слово это множество букв, второе слово это другое множество букв, совпадение это пересечение множеств (Set1 * Set2).

[serebrus]

Решение найдено:
http://ru.wikibooks.org/wiki/%D0%A0%D0%B0%D1%81%D1%81%D1%82%D0%BE%D1%8F%D0%BD%D 0%B8%D0%B5_%D0%9B%D0%B5%D0%B2%D0%B5%D0%BD%D1%88%D1 %82%D0%B5%D0%B9%D0%BD%D0%B0#.D0.90.D0.BB.D0.B3.D0. BE.D1.80.D0.B8.D1.82.D0.BC_.D0.9B.D0.B5.D0.B2.D0.B 5.D0.BD.D1.88.D1.82.D0.B5.D0.B9.D0.BD.D0.B0_.D0.BD .D0.B0_.D1.8F.D0.B7.D1.8B.D0.BA.D0.B5_Delphi

[AlexSku]

А всё-таки вы не ответили, что вы понимаете под "найти похожую часть слов". У меня, кстати, есть реализация другого алгоритма (Боера-Мура), вычисляющую степень похожести, как и ваш алгоритм Левенштейна, но неохота его искать, не зная, для какой задачи вы ищете решение.