bestimmte Wörter im Logfile zählen.

[PiT123]

Hallo,

ich möchte gernen ein bestimmtes Wort in einem Logfile(txt) zählen und in einem Label ausgeben.
Ich bin ein Neuling und versuche mich grade ein wenig mit Delphi ..

Bustaben zählen bekomme ich hin aber kein ganzes Wort.

[Sharky]

Hai PiT123,

ersteinmal Willkommen in der Delphi-PRAXIS.

Mit den Funktionen Pos,Copy und Delete solltest Du das hinbekommen.

[Pseudemys Nelsoni]

hi,

versuchs mal mit Pos(); und Delete();

[PiT123]

mit

Delphi-Quellcode:

procedure TForm1.Button7Click(Sender: TObject);
begin

if pos('Test',Memo1.Text) > 0 then


end;

end.

jetzt wird mit POS "Test" im Memo1.Text gesucht, aber wir bekomme ich das hin das er zählt wie oft der Wort Test in Memo1.text vorkommt. ?

[Jens Schumann]

Hallo,
ich habe mir neulich genau für das Problem eine Komponente gebastelt.
Die Komponente sucht in einem Stream nach einem bestimmten String.
Jedesmal wenn der String gefunden wurde löst die Komponente ein Ereignis aus.
In der zip-Datei ist das Beispiel und die Komponente enthalten.
Der Komponentensource ist sogar kommentiert.
Aber ein Beispiel sagt bekanntlich mehr als Worte.

P.S. Dadurch, das die Komponente in einem Stream sucht ist das Dateiformat egal !!!

Ach ja - Die Komponente nutzt den Boyer/Moore Algorithmus (siehe Powerpointdatei)

[PiT123]

Super Danke !

hat mich nach vorne gebracht !

habe jetzt :

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i,a : Integer;
begin
Memo1.Lines.Loadfromfile('C:\Logfile.log');
For i:= 0 to Length(Memo1.Text) do begin
if pos('Test',Memo1.Lines[i]) > 0
THEN a := a+1;

end;
Label1.Caption:=(' '+
            IntToStr(a)+' ');
end;

end.

und funzt einwandfrei !!!

[Sharky]

Hai PiT123,

in deinem Code wird aber nur einmal pro Zeile geprüft ob das Wort "Test" in dieser vorkommt.

[PiT123]

hm ..

JAU sehe es auch grade.

aber wie geht es besser ?

[Jens Schumann]

Hallo,

Zitat:

Zitat von PiT123

hm ..

JAU sehe es auch grade.

aber wie geht es besser ?

ganz einfach - benutze die Komponente die meinem Beispiel beiliegt.

[choose]

Hallo PiT123,

wenn Du in Zukunft mehr mit Strings arbeiten wirst, könntest Du Dir einmal [dp]reguläre Ausdrücke[/dp] etwas genauer ansehen. Mit ihnen wäre die Lösung Deines Problems beim Wort "Delphi" egal ob mit großem oder kleinem "D" und nur als "einzelnes Wort" aber auch am Zeilenanfrag bzw beendet mit einem "." relativ einfacht, ohne die verschiedenen Varianten der Form " Delphi ", " delphi.", ... überprüfen zu müssen.
Eine Lösung könnte dann zB so aussehen:

Delphi-Quellcode:

Result:= 0;
with RegExp('(?i)\bDelphi\b') do
  if Execute(Memo1.Text) then
  repeat
    Inc(Result);
  until not ExecuteNext;