Последовательность слов в тексте

[artemavd]

Добрый день! Наличие или отсутствие какого-либо слова в тексте нет проблемы определить. А вот можно ли определить есть ли в тексте какая-либо последовательность слов? Например.

Есть текст №1:
какой-то текст слово1 слово2 тут другой текст.
Есть текст №2:
слово1 какой-то текст слово2 тут другой текст.

Смысл в том, чтобы проверить есть ли в тексте именно последовательность необходимых слов, т.е. чтобы проверка срабатывала даже если необходимые слова разделены каким-то текстом. Именно, что слово1 сначала идет, а потом слово2. Если есть такая последовательность слово1 и слово2, то выдать положительное сообщение. Если нет такой последовательности, то выдать отрицательное сообщение. Можно ли осуществить такое? Заранее спасибо за советы по делу.

[BOBAH13]

Можно ли осуществить такое?

Да. По успешному сценарию:
1. константа слово1
2. константа слово2
3. входной текст
4. проводим поиск константы 1 (если нет слова, возврат функции false)
5. найдя индекс константы 1, инкрементируем индекс на длину константы 1
6. от полученного индекса ведем поиск константы 2 (если нет слова, возврат функции false)
7. возврат функции true

Думаю PosEx вполне должна подойти.

[Utkin]

Я раньше занимался подобными экспериментами. В частности представлял строку как массив слов, разделителем служил пробел. Тогда задача сводится к классическим манипуляциям с элементами массива.
У меня где-то даже валялся исходник юнита, с набором функций где строка представляется как массив, стек и т.д. Удобно обрабатывать слова и предложения .
Если не заморачиваться и все по-быстрому (задача на один раз), то можно строку загнать в TStringList и выставить разделителем пробел. Тогда каждый элемент по идее будет являться словом. То есть задача опять будет сведена к операции над массивом.

[SERG1980]

а слово1 и слово2 один раз встечаются или могут несколько раз присутствовать в тексте

[Utkin]

Да там уже без разницы, лишь бы сохранялась последовательность.

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

Интерсная задачка=)
Я решил немного по своему, разделитель слов знак | т.к. пробелом можно и дел натворить...
Вот решил помочь:

function WordsIsPossible(aWords,aText: string): Boolean;
const
  Delim = '|'; //words delimiter
var
  s: string; //text
  WordsMass: array of string; //массив слов
  WordsPosIndexes: array of integer; //массив позиций слов
  i, i1: Integer;
  ErrLevel: Integer;
begin
  i := 0;
  ErrLevel := 0;
  s := Trim(LowerCase(aText));

  if (Length(s) = 0) then
  begin
    ShowMessage('Текст не задан!');
    Inc(ErrLevel);
    Exit;
  end;

  if (Length(Trim(AWords)) = 0) then
  begin
    ShowMessage('Слова не заданы!');
    Inc(ErrLevel);
    Exit;
  end;

  if Pos(Delim, aWords) > 0 then
  begin
    i := 0;
    repeat
      Inc(i);
      SetLength(WordsMass, i);
      WordsMass[i - 1]:=LowerCase(Trim(Copy(aWords, 1, Pos(Delim, aWords) - 1)));
      Delete(aWords, 1, Pos(Delim, aWords));
    until Pos(Delim, aWords) = 0;
    i := 0;
  end
  else
  begin
    //Если в слове 1 слово без разделителя...
    SetLength(WordsMass, 1);
    WordsMass[0] := aWords;
  end;

  i1 := 0;
  for i := Low(WordsMass) to High(WordsMass) do
  begin
    if (Length(WordsMass[i]) <= 0) then
    begin
      Break;
    end;

    Inc(i1);
    SetLength(WordsPosIndexes, i1);
    if (i = 0) then
    begin
      //Ищем первое слово
      WordsPosIndexes[i1 - 1] := Pos(WordsMass[i], s);
    end
    else
    begin
      //Ищем слово i в строке s, начиная с ппредыдущего смещения
      WordsPosIndexes[i1 - 1] := PosEx(WordsMass[i], s, WordsPosIndexes[i1 - 2]);
    end;

    if (WordsPosIndexes[i1 - 1] = 0) then
    begin
      ShowMessage('Слова "' + WordsMass[i] + '" нет в тексте... последовательность нарушена');
      Inc(ErrLevel);
      Exit;
    end;
  end;
  if (ErrLevel > 0) then
    Result := False
  else
    Result := True;
end;

Функция ищет слова Awords разделённые знаком |, в тексте aText.
При этом учитывается только нахождение всех слов aText, Если хоть одно слово не найдено, то false

P.S. PoxEx находится в StrUtils.pas
P.P.S. Помог? ;-)

[BOBAH13]

Сообщение от Человек_Борща

Интерсная задачка=)
Я решил немного по своему, разделитель слов знак | т.к. пробелом можно и дел натворить...
Вот решил помочь:

function WordsIsPossible(aWords,aText: string): Boolean;
const
  Delim = '|'; //words delimiter
var
  s: string; //text
  WordsMass: array of string; //массив слов
  WordsPosIndexes: array of integer; //массив позиций слов
  i, i1: Integer;
  ErrLevel: Integer;
begin
  i := 0;
  ErrLevel := 0;
  s := Trim(LowerCase(aText));

  if (Length(s) = 0) then
  begin
    ShowMessage('Текст не задан!');
    Inc(ErrLevel);
    Exit;
  end;

  if (Length(Trim(AWords)) = 0) then
  begin
    ShowMessage('Слова не заданы!');
    Inc(ErrLevel);
    Exit;
  end;

  if Pos(Delim, aWords) > 0 then
  begin
    i := 0;
    repeat
      Inc(i);
      SetLength(WordsMass, i);
      WordsMass[i - 1]:=LowerCase(Trim(Copy(aWords, 1, Pos(Delim, aWords) - 1)));
      Delete(aWords, 1, Pos(Delim, aWords));
    until Pos(Delim, aWords) = 0;
    i := 0;
  end
  else
  begin
    //Если в слове 1 слово без разделителя...
    SetLength(WordsMass, 1);
    WordsMass[0] := aWords;
  end;

  i1 := 0;
  for i := Low(WordsMass) to High(WordsMass) do
  begin
    if (Length(WordsMass[i]) <= 0) then
    begin
      Break;
    end;

    Inc(i1);
    SetLength(WordsPosIndexes, i1);
    if (i = 0) then
    begin
      //Ищем первое слово
      WordsPosIndexes[i1 - 1] := Pos(WordsMass[i], s);
    end
    else
    begin
      //Ищем слово i в строке s, начиная с ппредыдущего смещения
      WordsPosIndexes[i1 - 1] := PosEx(WordsMass[i], s, WordsPosIndexes[i1 - 2]);
    end;

    if (WordsPosIndexes[i1 - 1] = 0) then
    begin
      ShowMessage('Слова "' + WordsMass[i] + '" нет в тексте... последовательность нарушена');
      Inc(ErrLevel);
      Exit;
    end;
  end;
  if (ErrLevel > 0) then
    Result := False
  else
    Result := True;
end;

Функция ищет слова Awords разделённые знаком |, в тексте aText.
При этом учитывается только нахождение всех слов aText, Если хоть одно слово не найдено, то false

P.S. PoxEx находится в StrUtils.pas
P.P.S. Помог? ;-)

Чет намудрили вы))) там решается в пару строк, что вы. Алгоритм уже описал, или теперь нужно сразу код выдавать? время идет, все течет и меняется.

[Utkin]

Особенно с ErrLevel

Inc(ErrLevel);

ну и еще

 if (ErrLevel > 0) then
    Result := False
  else
    Result := True;

Не судьба же сразу result:= False писать .

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

Кому как удобнее. Я просто интерпритировал ваш текст в код.
Загоняем слова разделённые знаком | в массив.
А далее ищем сначало первое слово а затем начиная с каждого предыдущего смещения искать след. слово. все=)
Хоть и громоздокое но работает..