Einzelnen Beitrag anzeigen

Benutzerbild von Sir Rufo
Sir Rufo

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

Re: eine Textdatei (.txt) in Dephi auswerten

  Alt 8. Jan 2010, 17:24
Zitat von Jens Hartmann:
Hallo,

Ich würde den Text Zeilenweise in eine TSringList lesen und dann auswerten.Suche mal nach den Funktionen ReadLn und Pos

Gruß Jens
wieso so umständlich?
Delphi-Quellcode:
var
  MyList : TStringList;
...
  MyList.LoadFromFile( 'SMS.txt' );
und jetzt zunächst normalisieren
Delphi-Quellcode:
MyList.Text := UpperStr( MyList.Text ); // Alles in GROSS
MyList.Text := StringReplace( MyList.Text, ' ', '', [ rfReplaceAll ] ); // Leerzeichen raus
MyList.Text := StringReplace( MyList.Text, '==', '=', [ rfReplaceAll ] ); // doppelte = Zeichen raus
usw. bis der ganze Text reingewaschen ist

und jetzt kann man auswerten

Du hast ja Beispiele für den Inhalt gegeben, es wäre aber ungemein hilfreich, wenn du für jede Zeile geschrieben hättest, ob die gültig ist, oder nicht
was ist mit
Code:
superdepp 1
gültig oder nicht?
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