AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Object-Pascal / Delphi-Language Delphi Bei wachsendendem Logfile auf bestimme Zeile reagieren
Thema durchsuchen
Ansicht
Themen-Optionen

Bei wachsendendem Logfile auf bestimme Zeile reagieren

Ein Thema von Ajintaro · begonnen am 1. Dez 2012 · letzter Beitrag vom 3. Dez 2012
Antwort Antwort
Seite 1 von 2  1 2      
Bjoerk

Registriert seit: 28. Feb 2011
Ort: Mannheim
1.384 Beiträge
 
Delphi 10.4 Sydney
 
#1

AW: Bei wachsendendem Logfile auf bestimme Zeile reagieren

  Alt 2. Dez 2012, 11:02
Damit finde ich das 1. Vorkommen meines Suchstrings. Aber um das neuste Vorkommen des Suchstrings zur Laufzeit zu ermitteln ist fuer mich noch nicht loesbar.
  for i := MyTextFileContent.Count - 1 downto 0
  Mit Zitat antworten Zitat
Jood

Registriert seit: 25. Okt 2012
2 Beiträge
 
#2

AW: Bei wachsendendem Logfile auf bestimme Zeile reagieren

  Alt 2. Dez 2012, 12:41
Schau dir doch mal Cromis.DirectoryWatch an, damit läßt sich sowas ohne Probleme lösen.
Du bekommst bei jeder Dateiänderung im vorgegebenen Pfad ein Event.

[Delphi]
procedure TMF.OnNotify(const Sender: TObject; const Action: TWatchAction; const FileName: string);
....
If (FileName = 'LogFile.txt') and (Action = waModified) then
Begin
NewFileSize := getFileSize(CombatLog);
If NewFileSize <> OldFileSize then
Begin
...
[/Delphi}

Geändert von Jood ( 2. Dez 2012 um 12:43 Uhr) Grund: Ergänzung
  Mit Zitat antworten Zitat
Furtbichler
(Gast)

n/a Beiträge
 
#3

AW: Bei wachsendendem Logfile auf bestimme Zeile reagieren

  Alt 2. Dez 2012, 14:24
Merk Dir die Größe der Datei seit dem letzten Prüfvorgang (=StartPos).
Zum periodischen Prüfen:

1. Gehe in der Datei an Die Stelle 'StartPos+1'
2. Suche ab da bis zum Ende der Datei.
3. Anschließend setzt Du StartPos auf <Größe der Datei>

StartPos ist am Anfang 0.
  Mit Zitat antworten Zitat
Benutzerbild von Bummi
Bummi

Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
 
Delphi XE3 Enterprise
 
#4

AW: Bei wachsendendem Logfile auf bestimme Zeile reagieren

  Alt 2. Dez 2012, 15:28
@Furtbichler > #7
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
  Mit Zitat antworten Zitat
Popov
(Gast)

n/a Beiträge
 
#5

AW: Bei wachsendendem Logfile auf bestimme Zeile reagieren

  Alt 2. Dez 2012, 15:49
Wobei man gelegentlich das Archivieren von Logfiles nicht vergessen sollte. Eine zeitlang klappt das Anhängen. Ich hab mal eine Log von knapp 2 GB gesehen. Kunde meinte, dass das Programm früher etwas schneller war. Also ab und zu vorne etwas abschneiden, archivieren und alles anpassen.
  Mit Zitat antworten Zitat
Furtbichler
(Gast)

n/a Beiträge
 
#6

AW: Bei wachsendendem Logfile auf bestimme Zeile reagieren

  Alt 2. Dez 2012, 18:20
@Furtbichler > #7
Das ist nicht das Gleiche, denn er spricht in seinem Ansatz von 'Zeilen' und mir ist nicht bekannt, das ich in die X.te Zeile per Filestream springen kann.

Na ja, eigentlich ist es doch das Gleiche aber eben nicht ganz.
  Mit Zitat antworten Zitat
Benutzerbild von Ajintaro
Ajintaro

Registriert seit: 20. Okt 2004
Ort: Sankt Augustin
138 Beiträge
 
Delphi XE6 Starter
 
#7

AW: Bei wachsendendem Logfile auf bestimme Zeile reagieren

  Alt 3. Dez 2012, 13:56
Ich habe mir erstmal folgende Loesung gebastelt:

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
  Inhalt: string;
  p:integer;
begin
  Assignfile(Src,'C:\Users\tomatenmann\Documents\logoutput\Log.txt');
  Reset(Src);
  memo1.Clear;
    while not EOF(Src) do
    begin
      ReadLn(Src, Inhalt);
      p := Pos('Suchtext', Inhalt);
      if p > 0 then
      begin
       //Reaktion auf gefundenen Suchstring
       memo1.Lines.Add(Inhalt);
      end;
    end;
    CloseFile(Src);
end;
Mit diesem Code werden beim Programmstart nur die Zeilen in das Memo uebertragen, welche dem Suchstring entsprechen.
Jeder weitere Eintrag in das Memo loest die gewuenschte Reaktion aus.

Funktioniert.

Das dumme ist:
Wenn das Logfile mehrere Dutzend Megabytes gross wird kann es auf Dauer etwas unperformant werden, da ich bei jeder pruefung das gesamte logile zeilenweise neu einlese.
Bloed ist auch dass mein Programm das File fuer andere Anwendungen "blockiert", deshalb muss ich bei jedem Vorgang das file wieder "closen"
Jaimy
DAoC 2.0 -> Camelot Unchained !
  Mit Zitat antworten Zitat
Benutzerbild von Bummi
Bummi

Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
 
Delphi XE3 Enterprise
 
#8

AW: Bei wachsendendem Logfile auf bestimme Zeile reagieren

  Alt 3. Dez 2012, 14:44
Der bereits mehrfach erwähnte FileStream ([fmopenRead,fmShareDenyNone]), lesen ab letztem bekannten Ende, sollte diese Probleme lösen.
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
  Mit Zitat antworten Zitat
Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
 
FreePascal / Lazarus
 
#9

AW: Bei wachsendendem Logfile auf bestimme Zeile reagieren

  Alt 3. Dez 2012, 15:48
Fassen wir doch mal zusammen,
Du hast eine Program (prg1) das in eine Datei schreibt (lg1).
in dieser Datei werden verschiedene vordefinierte strings geschrieben,
es wird kein Datum und keine Uhrzeit geschrieben.

Zu einem beliebigen Zeitpunkt wird ein weiteres Program (prg2) gestartet, das alle Einträge, die nach prg2.Start in das lg1 gemacht werden, auf bestimmte Inhalte überprüft und ggf. eine optische und/oder akustische Meldung absetzt.

ist das soweit richtig?

Gruß
K-H
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
  Mit Zitat antworten Zitat
Benutzerbild von Ajintaro
Ajintaro

Registriert seit: 20. Okt 2004
Ort: Sankt Augustin
138 Beiträge
 
Delphi XE6 Starter
 
#10

AW: Bei wachsendendem Logfile auf bestimme Zeile reagieren

  Alt 3. Dez 2012, 16:22
Fassen wir doch mal zusammen,
Du hast eine Program (prg1) das in eine Datei schreibt (lg1).
in dieser Datei werden verschiedene vordefinierte strings geschrieben,
es wird kein Datum und keine Uhrzeit geschrieben.

Zu einem beliebigen Zeitpunkt wird ein weiteres Program (prg2) gestartet, das alle Einträge, die nach prg2.Start in das lg1 gemacht werden, auf bestimmte Inhalte überprüft und ggf. eine optische und/oder akustische Meldung absetzt.

ist das soweit richtig?

Gruß
K-H
zu 100% korrekt.
Jaimy
DAoC 2.0 -> Camelot Unchained !
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:51 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz