Compare String Funktion

[julchen]

Hallo,

ich habe eine Textliste, die so mit ca. 300 Namen aufgebaut ist:

Herr Mustermann mit ABCDEFGHI/00A (1): bla bla bla(08:00 Uhr)

Herr Mustermann mit ABCDEFGHI/00A (1): bla bla bla(10:00 Uhr)

Herr Dr. Meier mit XYZDEFGHI/00B (1): bla bla bla(08:00 Uhr)

Herr Dr. Meier mit XYZDEFGHI/00B (1): bla bla bla(08:00 Uhr)

Ich würde gerne die Leerzeilen zwischen den zwei Mustermanns und den zwei Meiers entfernen:

Herr Mustermann mit ABCDEFGHI/00A (1): bla bla bla(08:00 Uhr)
Herr Mustermann mit ABCDEFGHI/00A (1): bla bla bla(10:00 Uhr)

Herr Dr. Meier mit XYZDEFGHI/00B (1): bla bla bla(08:00 Uhr)
Herr Dr. Meier mit XYZDEFGHI/00B (1): bla bla bla(08:00 Uhr)

Gibt es eine fertige String Compare Funktionen, mit der ich die ersten 20 Zeichen vergleichen kann?

VG, Julia

[stahli]

Mit Copy(1,20) kannst Du die ersten 20 Zeichen aus dem String "herauskopieren".

Mit Pos(':', MyString) könntest Du auch noch das erste Vorkommen eines Doppelpunktes ermitteln (falls es nicht immer exakt eine feste Anzahl von Zeichen wäre).

[jaenicke]

Es gibt die Funktion AnsiStartsText (bzw. mit Prüfung der Groß- und Kleinschreibung AnsiStartsStr), mit der du prüfen kannst, ob ein String am Anfang eines anderen vorkommt. Du kannst also die Position des ' mit ' oder des Doppelpunkts ermitteln und den String bis dorthin herauskopieren. Dann kannst du prüfen, ob die nächste Zeile damit anfängt.

Das kann man natürlich auch anders und schneller machen, aber bei der Anzahl lohnt das wohl nicht.

[Rollo62]

StartsWith ?

[julchen]

Mein erster Versuch.
In den Labels wird der extrahierte String angezeigt.
Soweit funktioniert es.
Aber das if wird nicht weiter durchlaufen.

Code:

procedure TForm1.Button3Click(Sender: TObject);
var
i: integer;
vergleich1, vergleich2: string;
begin
    for i := Memo2.Lines.Count - 1 downto 0 do
    begin
       vergleich1 := Copy(Memo2.Lines.Text, 1, 20);
       vergleich2 := Copy(Memo2.Lines.Text, 1, 20);

       Label1.Caption := vergleich1;
       Label2.Caption := vergleich2;

       if (vergleich1 <> vergleich2) then begin
         Memo2.Lines[i] := '#13#10';
       end;
    end;
end;

[Blup]

vergleich1 := Copy(Memo1.Lines.Text, 1, 20);

[bcvs]

Du vergleichst in der Schleife jedesmal die ersten 20 Zeichen des gesamten Textes mit den ersten 20 Zeichen des gesamten Textes. Wie soll das jemals <> werden?

Wahrscheinlich meinst etwas in der Art

Delphi-Quellcode:

       vergleich1 := Copy(Memo2.Lines[i], 1, 20);
       vergleich2 := Copy(Memo2.Lines[i-1], 1, 20);

Wobei du aufpassen musst wenn du unten angekommen bist, denn da gibt es irgendwann kein i-1 mehr.

Zitat:

Delphi-Quellcode:

       if (vergleich1 <> vergleich2) then begin
         Memo2.Lines[i] := '#13#10';

Damit würdest du die aktuelle Zeile mit einer Leerzeile überschreiben, also den bisherigen Inhalt entfernen.

[julchen]

Ich habe mir überlegt, dass, wenn ich die Länge der Zeilen abzähle und die miteinander vergleiche, auch zu einem Ergebnis kommen müsste.
Ich weiss aber nicht, was das Gegenteil von #13#10 ist.
Wenigstens läuft es schon mal fehlerfrei durch:

Code:

procedure TForm1.Button4Click(Sender: TObject);
var
i: integer;
laenge1, laenge2: Integer  ;
begin
     for i := Memo1.Lines.Count - 1 downto 0 do
     begin
      laenge1 := length(Memo1.Lines[i]);
      laenge2 := length(Memo1.Lines[i-1]);

      if laenge1 > laenge2 then
          begin
            Memo1.Lines[i] := StringReplace(Memo1.Lines[i], #13#10, ' ', [rfReplaceAll]);
          end
        else
          begin
            Memo1.Lines[i] := StringReplace(Memo1.Lines[i], ' ',  #13#10 , [rfReplaceAll]);
          end
      end;
end;

[himitsu]

in einem Memo1.Lines[i] gibt es keine Zeilenumbrüche ... das ist nur Inhalt einer Zeile (mit Umbrüchen drin, wären es ja mehrere Zeilen)
Somit machen deine StringReplace nicht das, was du willst.
* das erste StringReplace(..., #13#10, ' ') kann niemals etwas machen (da es niemals einen Zeilenumbruch darin gibt)
* das zweite StringReplace(..., ' ', #13#10) macht aus einer Zeile "mehrere" Zeilen (an Leerzeichen aufgetrennt) und dann verschieben sich alle Lines im Memo

[bcvs]

Zitat von julchen:

Wenigstens läuft es schon mal fehlerfrei durch:

Delphi-Quellcode:

     for i := Memo1.Lines.Count - 1 downto 0 do
     begin
      laenge1 := length(Memo1.Lines[i]);
      laenge2 := length(Memo1.Lines[i-1]); // Was passiert hier, wenn i=0 ist?

Bist du sicher, dass das fehlerfrei durchläuft. Kann eigentlich nicht.

Im übrigen würde ich das mit einer zweiten Stringlist lösen, so wie im Vorschlag von EmWieMichael. Dabei kopierst du einfach die Zeilen, die du brauchst in die zweite Stringlist bzw. erzeugst da die Leerzeilen, wo du sie brauchst. Das originale Memo bleibt dabei unverändert und du musst dich nicht mit veränderten Zeilen-Indizes herumärgern, die zwangsläufig durch das Entfernen von Zeilen entstehen.

Erst ganz zum Schluss kannst du die zweite Stringlist ins originale Memo zurückkopieren.