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