TStringList, Pos, PosEx usw.311

[PredatorMask]

hey liebe community,

ich bin grad dabei, ein sehr simples programm zu entwickeln, was mir aber mehr kopfzerbrechen bereitet, als ich dachte. ich denke, dass ich es einfach mit dem ablauf nicht hinkriege...

ich möchte eine datei auslesen (1.txt) in der folgendermaßen aufgeteilt wird:

Code:

hallo eins:
blabla
blabla
blabla
hallo zwei:
blabla
blabla
blabla
hallo eins:
blabla
...
...

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.

heisst also, alles was hallo eins zu sagen hat in richedit1 rein und alles, was hallo zwei zu sagen hat in richedit2 rein

so, jetzt bitte nicht lachen, wenn ihr meinen bisherigen CODErwelsch seht, denn ich bin leider nicht so der logiker ...

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
load: tstringlist;
counter, i1, i2: integer;
begin
load := tstringlist.create;
load.loadfromfile('C:\1.txt');
counter := 0;
i1      := pos('hallo eins',load.text);
i2      := pos('hallo zwei',load.text);
for counter := 0 to load.Count do
  begin
    richedit1.Lines.Add(copy(load.text,i1,i2-1));
    i1 := posex('hallo eins',load.text,i2+1);
    i2 := posex('hallo zwei',load.text,i2+1);
  end;
end;

ich weiss, es ist wahrscheinlich total falsch, aber ich hab, statt gleich einen neuen thread zu eröffnen, bis gestern nacht um 4 uhr gesucht und rumprobiert, nur es will einfach nicht funktionieren

ich wäre sehr dankbar über jede hilfe und habt etwas verständnis für einen newbie

viele liebe grüße

[DeddyH]

Hallo und Willkommen in der DP ,

versuch es einmal so (ungetestet):

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
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 StrUtils.AnsiSameText('hallo eins:', load[counter]) do
      inc(counter);
    //alle folgenden Zeilen bis zur "Ende"-Zeile ins erste RichEdit kopieren
    while (counter < load.Count) and not StrUtils.AnsiSameText('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 StrUtils.AnsiSameText('hallo eins:', load[counter]) do
      begin
        RichEdit2.Lines.Add(load[Counter]);
        inc(Counter);
      end;
  finally
    load.Free;
  end;
end;

Falls ich keine allzugroßen Denkfehler gemacht habe, sollte das im Wesentlichen so funktionieren.

[edit] *Oops* ich hatte gar nicht auf das Anmeldedatum geachtet. Naja, eine freundliche Begrüßung kann ja nie schaden [/edit]

[PredatorMask]

hey!

danke für die schnelle antwort.

zumal ich ein paar sachen nicht verstehe, mit denen ich dich aber nicht nerven will und mir im internet mal näheres dazu anschaue, funktioniert folgendes nicht:

er meint, StrUtils.AnsiSameText() wär ein undeclared identifier

[mkinzler]

Hast du die Unit eingebunden?

[PredatorMask]

Zitat von mkinzler:

Hast du die Unit eingebunden?

jep, deswegen wunderts mich auch

//edit: ja bin schon etwas länger in der community, nur zwischenzeitlich keine zeit gefunden zum programmieren

[DeddyH]

Oh, sry, die Funktion scheint aus SysUtils zu stammen. Ob das unter Delphi 7 auch so ist musst Du selbst probieren.

[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