String Code überprüfen

[idefix2]

Und unter Verwendung von regex wird daraus dann ungefähr so etwas:

Delphi-Quellcode:

PROCEDURE Checkfile(const fn:string);

var 
rgx: TRegexpr;
newnumber,oldnumber: integer;
f: textfile;
s: string;

begin
assign(f,fn); reset(f);
rgx:=TRegexpr.Create;
rgx.Expression:='^O(\d{1,5})([+-]|$)';
oldnumber:=0;

while not eof(f) do
  begin readln(f,s);
  if rgx.exec(s)
  then begin 
       newnumber := StrToInt(rgx.Match[1]);
       if newnumber <> oldnumber+1
       then Showmessage ('Out of sequence: '+rgx.Match[1]);
       oldnumber := newnumber;
       end;
  end;
rgx.free;
end;

[Amateurprofi]

Zitat von idefix2:

Und unter Verwendung von regex wird daraus dann ungefähr so etwas:

Delphi-Quellcode:

PROCEDURE Checkfile(const fn:string);

var 
rgx: TRegexpr;
newnumber,oldnumber: integer;
f: textfile;
s: string;

begin
assign(f,fn); reset(f);
rgx:=TRegexpr.Create;
rgx.Expression:='^O(\d{1,5})([+-]|$)';
oldnumber:=0;

while not eof(f) do
  begin readln(f,s);
  if rgx.exec(s)
  then begin 
       newnumber := StrToInt(rgx.Match[1]);
       if newnumber <> oldnumber+1
       then Showmessage ('Out of sequence: '+rgx.Match[1]);
       oldnumber := newnumber;
       end;
  end;
rgx.free;
end;

In #5 sagtest du "ist es praktisch immer viel bequemer, eine Regex Unit einzubinden".
Frage : Welche denn ?
Ich habe versucht das nachzuvollziehen und habe die System.RegularExpressions eingebunden.
Die kennt aber kein "TRegexpr.Create" (aber ein TRegEx.Create, bei dem als Parameter der Suchtext mitgegeben wird).
Sie kennt auch kein "rgx.Match[1]".

Mal unabhängig davon, wird damit nicht das erreicht, was lemomo wollte.
Zum Beispiel kann nicht geprüft werden, ob da vielleicht ein Oxx nicht am Zeilenanfang steht.
Ein weiteres Problem, nämlich Oxx zu finden, bei denen das xx nicht direkt dem "O" folgt wird ebenfalls nicht gelöst.

Aber trotzdem würde ich das gern mal testen, deshalb die Bitte, mal das "eine RegEx Unit" zu präzisieren. Danke.

[dunningkruger]

Wurde in idefix2 #16 nicht ein FileClose vergessen?

Interessiere mich so langsam auch für einen RegEx-Link (unit oder Komponente mit Doku) für Delphi 5.

Ggf. Danke!

[idefix2]

Ich weiss nicht mehr, wo genau ich diese Regex Implementierung gefunden habe. Sie ist gratis und darf frei verteilt werden, ich habe sie jetzt hochgeladen. Sie kann leider nicht alles, was die Perl Regex Syntax erlaubt, aber die Einschränkungen sind nicht schlimm. Ich bin z.B. einmal darüber gestolpert, dass (?:...) nicht möglich ist. Nicht auszuschliessen, dass die Version, die bei Delphi-XE2 dabei ist, besser ist (aber wohl auch etwas anders in der Handhabung). Dass der Regex-String gleich beim Create als Parameter mitgegeben werden kann, gefällt mir z.B. besser als bei meiner Regex-Klasse. Ich habe nur Delphi 2009, da ist von Emba aus kein Regex dabei.

Zitat:

Zum Beispiel kann nicht geprüft werden, ob da vielleicht ein Oxx nicht am Zeilenanfang steht.

Wenn ein Oxx nicht am Zeilenanfang steht, wird es ignoriert, und ich denke, das ist in Ordnung, weil es könnte ja irgendwo mitten im Text zufällig Oxx vorkommen, das gilt dann eben nicht. Wenn es doch gelten sollte und irrtümlich nicht am Zeilenanfang steht, würde dann das nächste Oxx einen Out-of-Sequence Fehler produzieren.

Zitat:

Ein weiteres Problem, nämlich Oxx zu finden, bei denen das xx nicht direkt dem "O" folgt wird ebenfalls nicht gelöst.

Sollte das laut Beschreibung erlaubt sein? Wenn ja, könnte man das mit einer einfachen Änderung des regex-Strings lösen (Einfügen von \D* nach dem O), ohne am Programm irgend etwas zu verändern.

Zitat:

Wurde in idefix2 #16 nicht ein FileClose vergessen?

Ja, wurde. Mea culpa.

Ob die Unit mit D5 kompatibel ist, kann ich leider nicht sagen. Ich verwende D2009. Ich fürchte, da wird die geänderte String-Implementierung Probleme schaffen.

[dunningkruger]

@idefix2: Danke, schau ich mir an!

[Furtbichler]

Wie man ernsthaft (hier) *gegen* den Einsatz von RegEx sein kann, ist mir ein Rätsel. Man kann das natürlich per Hand auskodieren, aber RegEx ist einfach zu einfach

Die Fragestellung zielt ganz klar in Richtung Mustererkennung. "Anfang der Zeile", "O<Ziffern><PlusOderMinus>". Ergo ist ein Zeichen-Mustererkenn-O-Mat, aka 'regular expression', das richtige Werkzeug.

Die erkannten regulären Ausrücke (O<Zahl><PlusMinus>) müssen dann nur noch hinsichtlich der 'Zahl' geprüft werden (um 1 inkrementierend).

Der reguläre Ausdruck kann natürlich im Einzelfall ziemlich komplex und sehr(!) schlecht zu lesen sein, aber es gibt mittlerweile RegEx-formatierer und -Kommentierer, die selbst den perversesten Ausdruck verständlich darstellen können.

Hier sind dann übrigens im Einzelfall Kommentare angebracht, obwohl ich sonst kein Freund davon bin.

@Amateurprofi: Googel mal nach "Delphi regEx", druck dir die Ergebnisse aus, stell dich in 100m Entfernung vor den Ausdruck, nimm einen Dartpfeil und werfe rückwärts mit geschlossenen Augen. Du triffst *garantiert* etwas Brauchbares

Oder Du bist Pazifist und suchst in der DP

Es geht ja nicht konkret um die exakte Unit, sondern das Verfahren.

Zitat von Amateurprofi:

Zum Beispiel kann nicht geprüft werden, ob da vielleicht ein Oxx nicht am Zeilenanfang steht...Ein weiteres Problem, nämlich Oxx zu finden, bei denen das xx nicht direkt dem "O" folgt wird ebenfalls nicht gelöst.

Wir lesen die Aufgabenstellung:

Zitat von lemomo:

Es muss auch überprüft werden ob unser String auf die erste Reihe geschrieben ist und ob sein Integer Teil sich richtig inkrementiert.

[idefix2]

Zitat:

Der reguläre Ausdruck kann natürlich im Einzelfall ziemlich komplex und sehr(!) schlecht zu lesen sein,

Das ist richtig. Fairerweise muss man aber dazu sagen, dass dann der Fall sein wird, wenn das zu erkennende Muster ziemlich komplex ist, und dass ein Programm, das die Erkennung eines so komplexen Musters ausprogrammiert, noch um ein Vielfaches schwieriger zu lesen sein wird als der regex-String.

[Amateurprofi]

Zitat von Furtbichler:

Wie man ernsthaft (hier) *gegen* den Einsatz von RegEx sein kann, ist mir ein Rätsel. Man kann das natürlich per Hand auskodieren, aber RegEx ist einfach zu einfach

Die Fragestellung zielt ganz klar in Richtung Mustererkennung. "Anfang der Zeile", "O<Ziffern><PlusOderMinus>". Ergo ist ein Zeichen-Mustererkenn-O-Mat, aka 'regular expression', das richtige Werkzeug.

Die erkannten regulären Ausrücke (O<Zahl><PlusMinus>) müssen dann nur noch hinsichtlich der 'Zahl' geprüft werden (um 1 inkrementierend).

Der reguläre Ausdruck kann natürlich im Einzelfall ziemlich komplex und sehr(!) schlecht zu lesen sein, aber es gibt mittlerweile RegEx-formatierer und -Kommentierer, die selbst den perversesten Ausdruck verständlich darstellen können.

Hier sind dann übrigens im Einzelfall Kommentare angebracht, obwohl ich sonst kein Freund davon bin.

@Amateurprofi: Googel mal nach "Delphi regEx", druck dir die Ergebnisse aus, stell dich in 100m Entfernung vor den Ausdruck, nimm einen Dartpfeil und werfe rückwärts mit geschlossenen Augen. Du triffst *garantiert* etwas Brauchbares

Oder Du bist Pazifist und suchst in der DP

Es geht ja nicht konkret um die exakte Unit, sondern das Verfahren.

Zitat von Amateurprofi:

Zum Beispiel kann nicht geprüft werden, ob da vielleicht ein Oxx nicht am Zeilenanfang steht...Ein weiteres Problem, nämlich Oxx zu finden, bei denen das xx nicht direkt dem "O" folgt wird ebenfalls nicht gelöst.

Wir lesen die Aufgabenstellung:

Zitat von lemomo:

Es muss auch überprüft werden ob unser String auf die erste Reihe geschrieben ist und ob sein Integer Teil sich richtig inkrementiert.

Genau, wir lesen die Aufgabestellung

Zitat von lemomo:

Es muss auch überprüft werden ob unser String auf die erste Reihe geschrieben ist und ob sein Integer Teil sich richtig inkrementiert.

[/QUOTE]

Und genau das wird eben nicht gelöst.
Wenn zum Beispiel in der Datei die Zeilen
"O27"
"..."
" O28"
"..."
"O28"
stehen, dann würde das eingerückte "O28" übergangen, der Fehler also nicht bemerkt.
Lemomo will ja nicht nur die "Oxx" finden die korrekt sind, sonder er möchte eine komplette Prüfung seiner Datei.
In der Tat!

[omata]

Zitat von Amateurprofi:

Frage : Welche denn ?

Zitat von dunningkruger:

Interessiere mich so langsam auch für einen RegEx-Link (unit oder Komponente mit Doku) für Delphi 5.

siehe auch hier.