eine Textdatei (.txt) in Dephi auswerten

[Sir Rufo]

Zitat von p80286:

Nach #1 sind alle Zeilen gültig die =1..=9,=10 enthalten also superdepp 1 wäre ungültig, gleiches gilt für superdepp=100. Man müßte also auch auf ein nachfolgendes Blank bzw. Stringende prüfen.

Gruß
K-H

Nein, muss man nicht ...

Nach dem Normalisieren sieht die Datei wie folgt aus:

Code:

SUPERDEPP=1
SUPERDEPP=3
SUPERDEPP=5
SUPERDEPP=7
SUPERDEPP=9
SUPERDEPP=3
SUPERDEPP=7
SUPERDEPP=7 
SUPPENDEPP=11 
HUPERSEP=B 
SUPERDEPP=A
SUPERDEP=C
SUPERDEPP=7
SUPERDEPP-9
SUPERDEPP3
SUPERDEPP7 
PUPERSEPP=7 
SUPERDEPP=3 
SUPERDEPP=5 
SUPERDEPP=7 
SUPERDEPP=9 
SUPERDEPP=7 
SUPERDEPP=9 
SUPERDEPP=9

Jetzt können wir alle Zeilen rausschmeissen wo nicht "SUPERDEPP=" enthalten ist

Delphi-Quellcode:

idx := 0;
while idx < MyList.Count do
  if Pos( 'SUPERDEPP=', MyList[ idx ] ) = 1 then
    inc( idx )
  else
    MyList.Delete( idx );

jetzt sieht das so aus

Code:

SUPERDEPP=1
SUPERDEPP=3
SUPERDEPP=5
SUPERDEPP=7
SUPERDEPP=9
SUPERDEPP=3
SUPERDEPP=7
SUPERDEPP=7 
SUPERDEPP=A
SUPERDEPP=7
SUPERDEPP=3 
SUPERDEPP=5 
SUPERDEPP=7 
SUPERDEPP=9 
SUPERDEPP=7 
SUPERDEPP=9 
SUPERDEPP=9

Jetzt wird nur noch geprüft, ob hinter "SUPERDEPP=" die gültigen Zahlen stehen und fertig ist die Laube