Pos, PosEx, Delete - RichEdit säubern Chaos

[Jacques Murell]

Moin,

ich musste feststellen ich stehe gerade vollkommen auf dem Schlauch.
Ich habe ein Richedit, in welchem Text steht. Kann zum Beispiel zu aussehen:

Zitat:

bumm test kopp test1 gfrsfr
dfgbdbvb testlopptest1 vfrvwrer

In dem Text kann beliebig oft "test XYZ test1" vorkommen. Ich möchte nun das "test" und "test1" vor und nach dem beliebigen String aus dem Text rauslöschen. Mit StringReplace mache ich es deshalb nicht, da ich die genauen "Koordinaten" von dem beliebigen Text also XYZ in dem Beispiel brauche um nach der Attribute zu ändern.

Hab mir das so gedacht: While Schleife solange test gefunden wird -> Suche nach test1 -> Löschen von test und test1. Aber irgendwie häng ich grad fest, genau wie mein Programm, dass hängt sich nach der Ausführung nämlich leider komplett auf. Jemand ne Idee?

Delphi-Quellcode:

function ClearEdit(StringBefore, StringAfter, Text: String): String;
var
  PosReturn, PosReturn1: Integer;
  temp: String;
begin
  while Pos(StringBefore, Text) <> 0 do
  begin
   PosReturn := Pos(StringBefore, Text);
   PosReturn1 := PosEx(StringAfter, Text, PosReturn);
      if PosReturn1 <> 0 then
       begin
        //ShowMessage(IntToStr(PosReturn));
        Delete(Text, PosReturn, Length(StringBefore));
        Delete(Text, PosReturn1, Length(StringAfter));
        result := Text;
        //Break;
       end;
  end;
end;

[-187-]

Delphi-Quellcode:

function ClearEdit(StringBefore, StringAfter, Text: String): String;
var
  PosReturn, PosReturn1: Integer;
  temp: String;
begin
  while Pos(StringBefore, Text) <> 0 do
  begin
   PosReturn := Pos(StringBefore, Text);
   PosReturn1 := PosEx(StringAfter, Text, PosReturn);
      if PosReturn1 <> 0 then
       begin
        Delete(Text, PosReturn1, Length(StringAfter));
        Delete(Text, PosReturn, Length(StringBefore));
       end;
  end;
  Result:=Text;
end;

PS:

-Du musst erst "test1" löschen bevor du "test" löscht sonst bleibt "1" stehen...
-Result kannst du am Ende der Funktion beschreiben

Edit:
Der Grund das deine Schleife kann Ende hatte ist das du als Abbruchbedingung Pos('test', Text) <> 0 hattest und als Lösch Bedingung aber nach 'test1' gesucht hast. Wenn "test1" jetzt nicht mehr vorhanden hast, kann 'test' nicht gelöscht werden somit ist die Abbruchbedingung nie erfüllt.

[Jacques Murell]

Danke dir, da stand ich echt auf dem Schlauch. :wall:

[-187-]

Ordentliches debuggen und du könntest das Problem mit dem Schlauch in Griff kriegen :)

[p80286]

Delphi-Quellcode:

function ClearEdit(StringBefore, StringAfter, Text: String): String;
var
  PosReturn, PosReturn1: Integer;
  temp: String;
begin
  while Pos(StringBefore, Text) <> 0 do
  begin
    PosReturn := Pos(StringBefore, Text);
    PosReturn1 := PosEx(StringAfter, Text, PosReturn);
    if (PosReturn1 <> 0) and (PosReturn1<>Posreturn) then 
    begin
      Delete(Text, PosReturn1, Length(StringAfter));
      Delete(Text, PosReturn, Length(StringBefore));
    end;
  end;
  Result:=Text;
end;

wenn die Bedingung ist, daß "test" und "test1" in der Zeile stehen sollen, dann sollte das auch im Source auftauchen.

Gruß
K-H