TStringList, Pos, PosEx usw.311

[Aphton]

Delphi-Quellcode:

//Fehler
  richedit1.Lines.Add(copy(load.text,i1,i2-1));

Ich glauber hier liegt der Fehler. Copy(Str, Von, Stellen) kopiert vom "Str" ab der Position "Von", "Stellen" Zeichen.

Copy('ABCD', 1, 2) = AB
Copy('ABCD', 2, 2) = BC
Copy('ABCD', 3, 2) = CD

Dein Fehler ist nun, dass du i2-1 nimmst. Es muss aber heißen i2-i1

[PredatorMask]

@DeddyH: Trotz Sysutils.AnsiSameText tut sich leider nichts

@Aphton: Ja, das sieht jetzt schon a way better aus nur das problem ist, dass trotzdem noch "hallo zwei" abschnitte in RichEdit1 mit hineinrutschen. wie kann ich das verhindern?

//edit: und für jede zeile, in der er nichts findet, fügt er #13 hinzu, also einen absatz eben. wie kann ich auch das verhindern?

[DeddyH]

Dann eben so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

  function IsSameText(const str1, str2: string): Boolean;
  begin
    Result := AnsiStrIComp(PChar(str1), PChar(Str2)) = 0;
  end;

var
  load: tstringlist;
  Counter: integer;
begin
  load := tstringlist.create;
  try
    load.loadfromfile('C:\1.txt');
    counter := 0;
    //zunächst die Anfangszeile suchen
    while (counter < load.Count) and not IsSameText('hallo eins:', load[counter]) do
      inc(counter);
    //alle folgenden Zeilen bis zur "Ende"-Zeile ins erste RichEdit kopieren
    while (counter < load.Count) and not IsSameText('hallo zwei:', load[counter]) do
      begin
        RichEdit1.Lines.Add(load[Counter]);
        inc(Counter);
      end;
    //alle folgenden Zeilen bis zur "Ende"-Zeile ins zweite RichEdit kopieren
    while (counter < load.Count) and not IsSameText('hallo eins:', load[counter]) do
      begin
        RichEdit2.Lines.Add(load[Counter]);
        inc(Counter);
      end;
  finally
    load.Free;
  end;
end;

[Aphton]

Ja weil du beides "einschließlich" hinzufügst:

Zitat:

nun möchte ich alles, was zwischen (einschließlich) "hallo eins" bis (ausschließlich) "hallo zwei" steht, in RichEdit1 hinzufügen und das gleiche mit (einschließlich) "hallo zwei" bis (ausschließlich) "hallo eins" nur in RichEdit2.

Zuerst ausschließen, dann einschließen = eingeschlossen!

Edit: Oder meinst du momentan nur einen Schritt? Also nur das hier:

Zitat:

alles, was zwischen (einschließlich) "hallo eins" bis (ausschließlich) "hallo zwei" steht, in RichEdit1 hinzufügen

[Jumpy]

Ginge es nicht sinngemäß auch so mit einer Verwaltung der RichEdits?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

  function IsSameText(const str1, str2: string): Boolean;
  begin
    Result := AnsiStrIComp(PChar(str1), PChar(Str2)) = 0;
  end;

var
  load: tstringlist;
  switch, i: integer;
  RE : Array of TRichEdit;
begin
  load := tstringlist.create;
  try
    load.loadfromfile('C:\1.txt');
    switch := 0;
    Re[0]:=RichEdit1;
    Re[1]:=RichEdit2;
    For i=0 To load.count-1 do
      begin
      If IsSameText('hallo eins:', load[i]) Then switch:=0;
      If IsSameText('hallo zwei:', load[i]) Then switch:=1;
      Re[switch].Lines.Add(load[i])
      end
  finally
    load.Free;
  end;
end;

[DeddyH]

Damit würdest Du aber auch alle Zeilen vor "hallo eins" ins erste RichEdit kopieren, wenn ich das richtig sehe (switch steht ja initial auf 0).

[Jumpy]

Überarbeitete Version:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

  function IsSameText(const str1, str2: string): Boolean;
  begin
    Result := AnsiStrIComp(PChar(str1), PChar(Str2)) = 0;
  end;

var
  load: tstringlist;
  switch, i: integer;
  RE : Array of TRichEdit;
begin
  load := tstringlist.create;
  try
    load.loadfromfile('C:\1.txt');
    switch := -1;
    Re[0]:=RichEdit1;
    Re[1]:=RichEdit2;
    For i=0 To load.count-1 do
      begin
      If IsSameText('hallo eins:', load[i]) Then switch:=0;
      If IsSameText('hallo zwei:', load[i]) Then switch:=1;
      If switch >= 0 then Re[switch].Lines.Add(load[i])
      end
  finally
    load.Free;
  end;
end;

Aber geht das so tatsächlich, mit einem Array für Controls? Und muss ich das nicht irgendwo noch createn oder mit SetLenght dimensionieren?

[DeddyH]

Wenn Du weißt, dass es 2 Elemente sind, dann ist ein dynamisches Array ja witzlos, Du könntest also auch bei einem statischen bleiben. Außerdem müsstest Du nach dem Befüllen des 2. RichEdits aus der Schleife springen, sonst kopierst Du die anschließenden Abschnitte ja mit ("hallo eins" kommt in dem Beispiel ja mehrfach vor).

[edit] Rein akademische Überlegung (würde ich persönlich nicht so machen):

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

  function IsSameText(const str1, str2: string): Boolean;
  begin
    Result := AnsiStrIComp(PChar(str1), PChar(Str2)) = 0;
  end;

var
  load: tstringlist;
  switch, i: integer;
  RE : Array[0..1] of TRichEdit;
begin
  load := tstringlist.create;
  try
    load.loadfromfile('C:\1.txt');
    switch := -1;
    Re[0]:=RichEdit1;
    Re[1]:=RichEdit2;
    For i=0 To load.count-1 do
      begin
      If IsSameText('hallo eins:', load[i]) Then inc(switch);
      If IsSameText('hallo zwei:', load[i]) Then inc(switch);
      If switch in [0..1] then Re[switch].Lines.Add(load[i])
      end
  finally
    load.Free;
  end;
end;

Ich weiß allerdings nicht, ob das wirklich so funktioniert, das müsste man mal ausprobieren. [/edit]

[edit2] Nee, würde nicht klappen, wenn die Reihenfolge in der Datei nicht stimmt. [/edit2]

[Cirec]

Hallo,
nur ganz kurtz
In D7 "AnsiSameText" ist in SysUtils

mfg

[DeddyH]

Das hatte ich zwar bereits hier vermutet, trotzdem Danke für die Bestätigung .