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
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)