Einzelnen Beitrag anzeigen

Benutzerbild von Sir Rufo
Sir Rufo

Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
 
Delphi 10 Seattle Enterprise
 
#8

Re: eine Textdatei (.txt) in Dephi auswerten

  Alt 8. Jan 2010, 19:18
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
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ‎ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60)
  Mit Zitat antworten Zitat