Поиск с помощью regexp в memo

[BDA]

RegExp.InputString := Memo2.Text;
RegExp.Expression := '"Player (.*?) was killed by (.*?) at a distance (.*?) with weapon (.*?)"';
Memo1.Clear;
Memo1.Lines.BeginUpdate;
If RegExp.Exec Then
 Repeat
  Memo1.Lines.Add(RegExp.Match[0]);
 Until not RegExp.ExecNext;
Memo1.Lines.EndUpdate;

[min@y™]

//------ shit-code ---------
type
  TKillInfo = record
    Killer: string;
    Victim: string;
    Distance: string;
    Weapon: string;

    Success: Boolean;
  end;

function GetKillInfo(const S: string): TKillInfo;

implementation

//------------------------------------------------------------------------------
{17:20:47 "Player [Zeppelin] was killed by [CB]Rayd at a distance 3 m with weapon AKM"}

function GetKillInfo(const S: string): TKillInfo;
var
  cx, px: array[0..3] of Integer;
  idx: Integer;
const
  s0 = '"Player ';
  s1 = ' was killed by ';
  s2 = ' at a distance ';
  s3 = ' with weapon ';
  sx: array[0..3] of PChar = (s0, s1, s2, s3);
begin
  Result.Success:= True;

  for idx:= 0 to 3 do
    begin
      cx[idx]:= Length(sx[idx]);
      px[idx]:= ifthen(idx = 0, Pos(sx[idx], S, 1), Pos(sx[idx], S, px[idx - 1]));
      Result.Success:= Result.Success and (px[idx] <> 0);
    end;

  if not Result.Success
    then Exit;

  Result.Victim:=   Copy(S, px[0] + cx[0], px[1] - px[0] - cx[0]);
  Result.Killer:=   Copy(S, px[1] + cx[1], px[2] - px[1] - cx[1]);
  Result.Distance:= Copy(S, px[2] + cx[2], px[3] - px[2] - cx[2]);
  Result.Weapon:=   Copy(S, px[3] + cx[3], Length(S) - px[3] - cx[3]);
end;

Ахтунг! Аттеншн! Внимание! Увага!!! SHIT-CODE detected!!! Не отлаживал, писал на заборе!

[Кирилл12345]

Сообщение от min@y™

//------ shit-code ---------
type
  TKillInfo = record
    Killer: string;
    Victim: string;
    Distance: string;
    Weapon: string;

    Success: Boolean;
  end;

function GetKillInfo(const S: string): TKillInfo;

implementation

//------------------------------------------------------------------------------
{17:20:47 "Player [Zeppelin] was killed by [CB]Rayd at a distance 3 m with weapon AKM"}

function GetKillInfo(const S: string): TKillInfo;
var
  cx, px: array[0..3] of Integer;
  idx: Integer;
const
  s0 = '"Player ';
  s1 = ' was killed by ';
  s2 = ' at a distance ';
  s3 = ' with weapon ';
  sx: array[0..3] of PChar = (s0, s1, s2, s3);
begin
  Result.Success:= True;

  for idx:= 0 to 3 do
    begin
      cx[idx]:= Length(sx[idx]);
      px[idx]:= ifthen(idx = 0, Pos(sx[idx], S, 1), Pos(sx[idx], S, px[idx - 1]));
      Result.Success:= Result.Success and (px[idx] <> 0);
    end;

  if not Result.Success
    then Exit;

  Result.Victim:=   Copy(S, px[0] + cx[0], px[1] - px[0] - cx[0]);
  Result.Killer:=   Copy(S, px[1] + cx[1], px[2] - px[1] - cx[1]);
  Result.Distance:= Copy(S, px[2] + cx[2], px[3] - px[2] - cx[2]);
  Result.Weapon:=   Copy(S, px[3] + cx[3], Length(S) - px[3] - cx[3]);
end;

Ахтунг! Аттеншн! Внимание! Увага!!! SHIT-CODE detected!!! Не отлаживал, писал на заборе!

А как это можно использовать?

[min@y™]

А как это можно использовать?

глузишь лог в стринглист или ещё куда, а потом в цикле берёшь строки из списка и суёшь в функцию параметром S. Функция вернёт структуру TKillInfo. Если поле Success = true, значит строка правильная и можно взять из структуры инфу об убивце, жертве, дистанции и оружии.

procedure TFormMain.ButtonShitClick(Sender: TObject);
var
  ki: TKillInfo;
const
  S = '17:20:47 "Player [Zeppelin] was killed by [CB]Rayd at a distance 3 m with weapon AKM"';
begin
  ki:= GetKillInfo(S);
  ListBoxFuncTest.Clear();

  if ki.Success
    then begin
           ListBoxFuncTest.Items.Add('Killer: ' + ki.Killer);
           ListBoxFuncTest.Items.Add('Victim: ' + ki.Victim);
           ListBoxFuncTest.Items.Add('Distance: ' + ki.Distance);
           ListBoxFuncTest.Items.Add('Weapon: ' + ki.Weapon);
         end;
end;

[Кирилл12345]

Сообщение от min@y™

глузишь лог в стринглист или ещё куда, а потом в цикле берёшь строки из списка и суёшь в функцию параметром S. Функция вернёт структуру TKillInfo. Если поле Success = true, значит строка правильная и можно взять из структуры инфу об убивце, жертве, дистанции и оружии.

procedure TFormMain.ButtonShitClick(Sender: TObject);
var
  ki: TKillInfo;
const
  S = '17:20:47 "Player [Zeppelin] was killed by [CB]Rayd at a distance 3 m with weapon AKM"';
begin
  ki:= GetKillInfo(S);
  ListBoxFuncTest.Clear();

  if ki.Success
    then begin
           ListBoxFuncTest.Items.Add('Killer: ' + ki.Killer);
           ListBoxFuncTest.Items.Add('Victim: ' + ki.Victim);
           ListBoxFuncTest.Items.Add('Distance: ' + ki.Distance);
           ListBoxFuncTest.Items.Add('Weapon: ' + ki.Weapon);
         end;
end;

Вы меня, конечно, простите, но что-то я под глубокую ночь вообще не соображаю, можете полный пример подсказать? Заранее благодарен

[min@y™]

Вы меня, конечно, простите, но что-то я под глубокую ночь вообще не соображаю, можете полный пример подсказать? Заранее благодарен

да ты задолбал. мож подгузник тебе сменить?
гастроном - там!

[Кирилл12345]

Да капец короче

[min@y™]

Да капец короче

ну, раз у меня работает, а у тебя - нет, то у кого руки из жопы растут?
Ищи ошибку у себя и/или показываешь, как вызываешь мою магическую фнкцию.