Поиск нужных слов в тексте [Help]

[JOKER:3]

Здесь 3 игры Portal
И 4 игры Portal 2

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

Допустим у нас есть список:



Какое количество в нем игр просто "Portal", и сколько "Portal 2"? И если не сложно, укажите где именно. Я так и не могу понять, что нужно сделать.

Здесь 3 игры Portal
И 4 игры Portal 2

[Аватар]

Отсортировать имена игр по убыванию длины. Искать начиная с самых длинных имен. Строки, в которых нашли в дальнейших поисках не учавствуют

[Krasiosoft]

Portal         <--  "Portal" 
Portal 1.5
Portal 2 2.9   <--  "Portal 2" 
Portal 2.5     <--  "Portal 2" 
Portal 2 2.4   <--  "Portal 2" 
Portal 0.5
Portal 3 2.4
Portal 4 2.4
Portal         <--  "Portal" 
Portal 2       <--  "Portal 2" 
Game Portal 2
Game Portal 2.5
Game Portal
Game Portal 3

А где 3-ий "Portal"?

[JOKER:3]

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

Portal         <--  "Portal" 
Portal 1.5
Portal 2 2.9   <--  "Portal 2" 
Portal 2.5     <--  "Portal 2" 
Portal 2 2.4   <--  "Portal 2" 
Portal 0.5
Portal 3 2.4
Portal 4 2.4
Portal         <--  "Portal" 
Portal 2       <--  "Portal 2" 
Game Portal 2
Game Portal 2.5
Game Portal
Game Portal 3

А где 3-ий "Portal"?

2 строка ,

[Krasiosoft]

"Portal 1.5" должно подходить под поиск "Portal" ? Выходит игры "Portal 1.5" существовать не может? А если бы просто там было написано "Portal 1", тогда уже поиск не должен его находить по слову "Portal"?

procedure TForm1.Button3Click(Sender: TObject);
var
   WantedWord: String;
   FirstWordAfterGameName: String;

   i, j, n, GamesCount: Integer;
begin
   WantedWord:='Portal';

   GamesCount:=0;

   for i:=0 to Memo1.Lines.Count-1 do
   begin
      if Pos(WantedWord, Memo1.Lines[i]) = 1 then
      begin
        n:=0;
        if Memo1.Lines[i][Length(WantedWord)+1] = ' ' then
        begin
          for j:=Length(WantedWord)+2 to Length(Memo1.Lines[i]) do
          begin
            if Memo1.Lines[i][j] = ' ' then break;
            Inc(n);
          end;
        end;

        if Memo1.Lines[i][Length(WantedWord)+1] <> #0 then
        begin
          if n > 0 then
          begin
            FirstWordAfterGameName:=Copy(Memo1.Lines[i],Length(WantedWord)+2, n);
            // тут определяйте, первое слово после игры, это версия игры или нет
            // если это не версия игры, тогда делайте Inc(GamesCount)
            ShowMessage(FirstWordAfterGameName);
          end;
        end
        else
        begin
          Inc(GamesCount);
        end;
      end;
   end;
   ShowMessage('Found words count: '+IntToStr(GamesCount));
end;

Тогда что-то вроде этого нужно?

[JOKER:3]

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

"Portal 1.5" должно подходить под поиск "Portal" ? Выходит игры "Portal 1.5" существовать не может? А если бы просто там было написано "Portal 1", тогда уже поиск не должен его находить по слову "Portal"?

procedure TForm1.Button3Click(Sender: TObject);
var
   WantedWord: String;
   FirstWordAfterGameName: String;

   i, j, n, GamesCount: Integer;
begin
   WantedWord:='Portal';

   GamesCount:=0;

   for i:=0 to Memo1.Lines.Count-1 do
   begin
      if Pos(WantedWord, Memo1.Lines[i]) = 1 then
      begin
        n:=0;
        if Memo1.Lines[i][Length(WantedWord)+1] = ' ' then
        begin
          for j:=Length(WantedWord)+2 to Length(Memo1.Lines[i]) do
          begin
            if Memo1.Lines[i][j] = ' ' then break;
            Inc(n);
          end;
        end;

        if Memo1.Lines[i][Length(WantedWord)+1] <> #0 then
        begin
          if n > 0 then
          begin
            FirstWordAfterGameName:=Copy(Memo1.Lines[i],Length(WantedWord)+2, n);
            // тут определяйте, первое слово после игры, это версия игры или нет
            // если это не версия игры, тогда делайте Inc(GamesCount)
            ShowMessage(FirstWordAfterGameName);
          end;
        end
        else
        begin
          Inc(GamesCount);
        end;
      end;
   end;
   ShowMessage('Found words count: '+IntToStr(GamesCount));
end;

Тогда что-то вроде этого нужно?

если говорить только о портал . То сущетсвует ТОЛЬКО Portal и Portal 2
Цифры что написаны после названия игры , это сколько часов наиграно в игре! Мне нужно выполнить поиск как минимум 5 игр , и под каждую игру отдельный лейбл где написано колл-во игр в мемо.

[Krasiosoft]

Сообщение от JOKER:3

если говорить только о портал . То сущетсвует ТОЛЬКО Portal и Portal 2

Я так понимаю, что игры могут быть любые, и мы их названий не знаем. Тогда исключать, что игры "Portal 1.5" не может быть нельзя. А в таком случае нужно полностью рассматривать всю строку с информацией про игру. То есть разложить ее на слово "часов" (если это слово не изменяется), на само число часов, а потом уже все остальное, это будет название игры, и его уже нужно будет сравнивать с заданным для поиска.

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