Überprüfen ob alle Zeilen vorhanden sind

[Jelly]

Zitat von horst:

Nur noch die doppelten Zeilen herausfinden.

Davon war bislang nie die Rede.

Was willst Du denn eigentlich erreichen. Muss wirklich für jede Sekunde ein Eintrag stehen, auch wenn Du keinen Text hintendran schreibst.

[capo]

hallo Jelly

Zitat:

Davon war bislang nie die Rede.

das stimmt, wenn ich das beispiel von Hawkeye hätte anpassen können wäre ich auch nicht in die situation gekommen danach zu fragen.

Zitat:

Muss wirklich für jede Sekunde ein Eintrag stehen,

ja das ich mir wirklich wichtig.

Zitat:

auch wenn Du keinen Text hintendran schreibst.

darum geht es nicht, es geht um die fehleneden uhrzeiten, egal was dahinter oder davor steht.

ich bekomm das nicht in marabus's beispiel integriert:

Delphi-Quellcode:

    DT := StrToDateTime(Copy(Line, 1, 19));
      // Uhrzeit in Sekunden umrechen
      NewSeconds := Round(86400 * Frac(DT));
      // bei der ersten Zeile erfolgt keine Prüfung
      if (LastSeconds >= 0) then
        for i := LastSeconds + 1 to NewSeconds - 1 do
          ShowMessage (Format('Zeile %d fehlt', [i]));

gruss, capo

[Hawkeye219]

Hallo capo,

es ist ohne weiteres möglich, meinen und marabus Code zusammenzuführen. Die Routine DoLine erhält alle gültigen Zeilen der Eingabedatei. Hier kann also die Überprüfung auf fehlende Zeilen vorgenommen werden. Die notwendige Variable LastSeconds aus meinem Code bringst du am besten im private-Abschnitt des Formulars unter, die Initialisierung der Variablen in der Methode FormCreate.

Zwei kleine Änderungen würde ich an marabus Code noch vornehmen. Das fehlende "else" hast du wahrscheinlich schon entdeckt, die Umschaltung der Variablen index sollte meiner Meinung nach nur nach einer gültigen Zeile vorgenommen werden. Ansonsten erscheinen mehrfache doppelte Zeilen, die durch Leerzeilen unterbrochen werden, mehrfach im Ausgabeprotokoll.

Delphi-Quellcode:

type
  TDemoForm = class (TForm)
    :
  private
    LastSeconds : Integer;
  end;

procedure TDemoForm.FormCreate(Sender: TObject);
begin
  LastSeconds := -1;
end;

procedure TDemoForm.CheckForMissingLines (line: String);
var
  DT : TDateTime;
  NewSeconds : Integer;
  i : Integer;
begin
  DT := StrToTime(Copy(line, 1, 8));
  NewSeconds := Round(86400 * DT);
  if (LastSeconds >= 0) then
    for i := LastSeconds + 1 to NewSeconds - 1 do
      LogMemo.Lines.Add(Format('Eintrag für Uhrzeit %s fehlt', [TimeToStr(i / 86400)]));
  LastSeconds := NewSeconds;
end;

procedure TDemoForm.DoLine(lineCount: Integer; line: String);
begin
  CheckForMissingLines (line);
  KeepMemo.Lines.Add(line);
end;

procedure TDemoForm.DoEmptyLine(lineCount: Integer);
begin
  LogMemo.Lines.Add(Format('Zeile %d ist leer', [lineCount]));
end;

procedure TDemoForm.DoSameLine(lineCount: Integer; line: String);
begin
  LogMemo.Lines.Add(Format('Zeile %d ist doppelt: %s', [lineCount, line]));
end;

procedure TDemoForm.CheckText(fn: TFileName);
var
  tf: TextFile;
  index, lineCount: Integer;
  lines: array [0..1] of String;
begin
  lines[0] := '';
  lines[1] := '';
  lineCount := 0;
  index := 0;
  KeepMemo.Clear;
  LogMemo.Clear;
  AssignFile(tf, fn);
  Reset(tf);
  while not Eof(tf) do
  begin
    Inc(lineCount);
    ReadLn(tf, lines[index]);
    // Test auf Leere
    if lines[index] = '' then
      DoEmptyLine(lineCount) else
    // Test auf Gleichheit
    if Copy(lines[0], 1, 8) = Copy(lines[1], 1, 8) then
      DoSameLine(lineCount, lines[index])
    // Sonst
    else // <<-- dieses else fehlte
      begin
        DoLine(lineCount, lines[index]);
        index := 1 - index; // <<-- Umschaltung nur nach gültigen Zeilen
      end;
  end;
  CloseFile(tf);
end;

Gruß Hawkeye

[capo]

hallo
dankeschön für die wahnsinns hilfe.

ich trau mich schon fast nicht mehr zu fragen.
CheckForMissingLines (line); funktioniert irgendwie nicht. Es werden keine fehlenden Zeiten angezeigt.
ich kann nirgends einen fehler sehen.

capo

[marabu]

Hi Capo,

der von Hawkeye angepasste Code tut es einwandfrei. Wie sehen deine Daten aus?

Grüße vom marabu

[capo]

hi marabu

stimmt dein beispiel funktioniert.

eine zeile sieht von der struktur so aus

Zitat:

1.1 10:00:08 test test test test test
1.1 10:00:09 test test test test test
1.1 10:00:10 test test test test test

gruss, capo

[marabu]

Wir gingen bisher davon aus, dass die Uhrzeit am Anfang der Zeile steht. Damit deine Beispielzeilen korrekt verarbeitet werden, müsstest du in der Prozedur CheckForMissingLines() folgende Zeile ändern:

Delphi-Quellcode:

// DT := StrToTime(Copy(line, 1, 8));
DT := Between(line, ' ', ' ');

Die Funktion Between() könnte so aussehen:

Delphi-Quellcode:

function Between(const s, sLeft, sRight: String): String;
var
  iLeft, iRight: Integer;
begin
  iLeft := Pos(sLeft, s);
  if iLeft > 0 then
  begin
    Inc(iLeft, Length(sLeft));
    iRight := PosEx(sRight, s, iLeft);
    if iRight > 0
      then Result := Copy(s, iLeft, iRight - iLeft)
      else Result := ''
  end else Result := '';
end;

Auch die Funktion PosEx() findest du hier im Forum, falls du sie nicht in der Unit StrUtils hast. Du solltest vielleicht deine Delphi-Version in dein DP-Profil eintragen.

Ganz allgemein gilt, dass du ein Muster in deinen Daten erkennen und den Code zur Extraktion der Zeitangaben entsprechend anpassen musst. Und vergiss nicht, dass es Probleme beim Tagwechsel geben wird, wenn du keine Vorkehrungen triffst.

marabu

[capo]

weißt du was ich nicht verstehe.
wieso kopiert
 DT := StrToTime(Copy(line, 5, 12)); nicht die uhrzeit heraus egal was davor oder dahinter steht?
in dem beispiel für horst steht ja auch noch etwas davor.

so sieht der text aus

Zitat:

1.1 10:00:08 test test test test test
1.1 10:00:09 test test test test test
1.1 10:00:10 test test test test test

Delphi-Quellcode:

---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt Demo.exe ist eine Exception der Klasse EConvertError aufgetreten. Meldung: ''10:00:08 tes' ist keine gültige Uhrzeit'. Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.
---------------------------
OK   Hilfe   
---------------------------

mensch ist das schwer.

capo

[marabu]

Die zwölf als zweites Argument im Aufruf von Copy() ist etwas reichlich bemessen - Copy(line, 5, 8) würde reichen und wahrscheinlich auch ein besseres Ergebnis liefern. Schau doch mal in die Online-Hilfe ...

marabu

[capo]

okay das klappt nun *puhh*
danke

capo