Bestimmte Zeilen aus Stringlist extrahieren

[lxo]

Hallo,
vielleicht sowas in der Art?

Delphi-Quellcode:

   for i := Pred( <TStringList>.Count) downto 0 do
   begin
     if not  <TStringList>[i].Contains( ':') then
     begin
        <TStringList>.Delete( i);
     end;
   end;

Alternativ bei älteren Delphi-Versionen so:

Delphi-Quellcode:

   for i := ( <TStringList>.Count -1) downto 0 do
   begin
     if Pos( ':', <TStringList>[i]) = 0 then
     begin
        <TStringList>.Delete( i);
     end;
   end;

[ashkan19]

Zitat von lxo:

Hallo,
vielleicht sowas in der Art?

Delphi-Quellcode:

   for i := Pred( <TStringList>.Count) downto 0 do
   begin
     if not  <TStringList>[i].Contains( ':') then
     begin
        <TStringList>.Delete( i);
     end;
   end;

Alternativ bei älteren Delphi-Versionen so:

Delphi-Quellcode:

   for i := ( <TStringList>.Count -1) downto 0 do
   begin
     if Pos( ':', <TStringList>[i]) = 0 then
     begin
        <TStringList>.Delete( i);
     end;
   end;

Super, ich danke dir....das mit Contains funktioniert super

[stifflersmom]

Eine Zusatzfrage von mir:

die Datei wird doch über cat aus der Shell in einem Linux System erstellt.
Warum machst Du nicht gleich ein cat dateiname|grep :>neuer_dateiname.txt

[ashkan19]

Zitat von stifflersmom:

Eine Zusatzfrage von mir:

die Datei wird doch über cat aus der Shell in einem Linux System erstellt.
Warum machst Du nicht gleich ein cat dateiname|grep :>neuer_dateiname.txt

weil das ganze dann auf die falsche Kiste gespeichert wird