Einzelnen Beitrag anzeigen

globetrotter77

Registriert seit: 16. Jan 2009
Ort: Nürnberg
236 Beiträge
 
Delphi 10.3 Rio
 
#16

Re: Textdatei ohne Trennzeichen verarbeiten

  Alt 10. Feb 2009, 11:05
oder die ganz banale Methode (ist für Anfänger oft leichter zu verstehen)

Delphi-Quellcode:
assignfile(eingabedatei,'hier kommt der Dateiname hin');
reset(eingabedatei);

while not eof(eingabedatei) do
begin
  readln(eingabedatei, eingabezeile);
  kundennummer:=trim(copy(eingabezeile, 1, 5));
  vollername:=trim(copy(eingabezeile, 6, 19));
  strasse:=trim(copy(eingabezeile, 25, 14));
  etc.
end;

closefile(eingabedatei);
Bei der Copy-Funktion musst du als Parameter die erste Position und die Länge übergeben, die musst du also einmal für alle Felder ausrechnen.
Die Trim-Funktion sollte man nicht vergessen, weil man sich sonst lauter überflüssige Leerstellen in die Daten reinholt.
Auf diese Art erhält man die Daten jeweils in String-Format. Falls numerische oder Datums-Angaben enthalten sind, müssen diese noch entsprechend umgewandelt werden!

PS: das mit dem Record funktioniert nur, wenn du Arrays verwendest. Dann musst du aber auch noch mal rumschieben, um die Daten auch auswerten zu können.
Bei Strings in der Record-Definition fällst du auf die Nase ... das liegt an dem Längenbyte, das auch Mavarik schon angesprochen hat (ansprechbar mit stringname[0]) ... dieses ist aber in der Eingabedatei nicht enthalten.
  Mit Zitat antworten Zitat