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.

[Rollo62]

Warum 20 Zeichen ?
Wäre es nicht besser und sicherer nach irgendeinem eindeutigen Delimiter zu suchen ?
Z.B. "):"

http://docwiki.embarcadero.com/Libra.../de/System.Pos

Delphi-Quellcode:

    LPos1 := Pos( AText1, '):');    
    LPos2 := Pos( AText2, '):');
    if LPos1 = LPos2 then
    begin
        Result := MussEchtVergleichen( AText1, AText2);
    end
    else
        Result := False;

Das würde auch den Vergleich beschleunigen, wenn nämlich die Positionen unterschiedlich sind, dann muss es <> sein, und man braucht nicht mehr echt zu vergleichen (was teuer ist).

[EmWieMichael]

Delphi-Quellcode:

procedure TForm1.Test;
 var I:Integer; TmpList:TStringList; S1,S2:String; LeerzeileImSinn:Boolean;
begin
  TmpList:=TStringList.Create;
  S1:=''; S2:=''; LeerzeileImSinn:=False;
  for I:=0 to Memo2.Lines.Count - 1 do
   begin
     if (Memo2.Lines[I] > '') then
      begin
        S1:=Copy(Memo2.Lines[I], 1, Pos(':', Memo2.Lines[I]));
        if LeerzeileImSinn then
         begin
           if (S1 <> S2) then
            begin
              TmpList.Add('');
              S2:=S1;
              LeerzeileImSinn:=False;
            end;
         end
        else
         S2:=S1;
        TmpList.Add(Memo2.Lines[I]);
      end
     else
      LeerzeileImSinn:=True;
   end;

  Memo2.Lines.Assign(TmpList);

  TmpList.Free;
end;

[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;