Von einer Textdatei zeilen einlesen und abschneiden ?

[dimein]

Hallo

habe ein Problem !

Wie schneide ich bei dem Beispiel die untern zeilen weg, wenn mein String so ausschaut.

Delphi-Quellcode:

 "oxarticles"|"02a40a08e0b1110c4.64321843"|"oxbaseshop"|""|1|"0000-00-00 00:00:00"|"Sie haben
10 Nutzstiche 

1 Heirloomstich

3 Quiltstiche

5 Dekorstiche

1 Stopfprogramm
"|620.5|0|0|0|0|0|""|""|""|0|"bernina_activa_125s_th.jpg"|

Der Obengenannte String ist genau so in meiner Textdatei, wie schneide ich die Zeilen nach dem Zeilenumbruch ab?
So das ich z.b. dieses ergebniss erhalte.

oxarticles 02a40a08e0b1110c4.64321843 oxbaseshop 1 0000-00-00 00:00:00 [i]hier war mal Sie haben....[/i] 620.5 0 0 usw. es soll immer der 7te Teil weggeschnitten werden. Also 1 Feld ist von | bis |.

Bitte um euere Hilfe

Danke

Dimein

[MisterNiceGuy]

Richtiger Code siehe unten...

[MisterNiceGuy]

Ach Schitte, du wolltest die Striche nicht mit in den String bekommen oder?
Warte...

Delphi-Quellcode:

function Cut_text(Ganzertext:string):string;
var i,j:integer;
    help_str:string;
begin
help_str:='';
j:=0;
  for i:=1 to length(GanzerText) do
    begin
     if ganzertext[i]='|' then
       j := j+1;
     if not ganzertext[i]='|' then
       help_str := help_str+ganzertext[i];
     if j=6 then break;
    end;
result := help_str;
end;

So müsste es gehen

[dimein]

Super danke werdes es Testen ob geht


mfg

Dimein