viel Mist in einer Textdatei

[BAMatze]

Hallo hab mal eine Frage zur Arbeit mit meiner Textdatei. Möchte einen Programmablauf dokumentieren und habe schon einige Fileformate in Delphi probiert. Womit ich zumindest Erfolg hab war das Filformat "file of string[255]" allerdings schreibt er mir dann ne Menge Mist, welcher noch in dem String ist (von mir aber nicht reingeschrieben wurde, sondern allte Daten) mit in meine Datei. Das führt zu folgendem Datei aussehen:

Zitat:

#Programm Start
 Ìü @ °ü  

‘| Üý  ˜ ðl ðl  ?á€|ý S€|  À  € ÜÏ‘|œ€|  |ý Ù4@  NK :@ ›@  xý î.@ ¦Q@ ¬MK ˆMK xzJ €zJ @³ß àiã@ )#Prozedure VerzeichnisnameErzeugen Beginn6~ `ß{ tß{ 

 \ü `ý 9~0ˆ6~ÿÿÿÿ*ˆ6~{’7~ Sè   ý tß{
 Â Â -Y ý ô7~`ß{ ØÞ{ ý
Ëä xý ˆG   ý  H xý PòA '#Prozedure VerzeichnisnameErzeugen Ender Ø·á…Œ6¢Œü *’|Êî妴 ¹gúëP×Æ ÷ÿÿÿ ˜;žÄü Êîå¦r Ø·á…Œ6¢Äü *’|Êî妴 ¹gúëP×Æ ÷ÿÿÿ ˜;žüü ”MK äü ’|< ˜;ž÷ÿÿÿ”MK Êþï

Êþï


ý K*@ ý " ¨K]
 ”MK /@ ý £X@ p6å  êã ”MK ^T@ ¨K]
6#Prozedure Verzeichnis (Teil Treeview geändert) Beginn 9~0ˆ6~ÿÿÿÿ*ˆ6~{’7~ Sè   ý tß{

 Â Â -Y ý ô7~`ß{ ØÞ{ ý
Ëä tý ˆG Â  ý  H tý PòA Â

H Ëä `Žæ âvG `Žæ œG 8|J „ý ,#Prozedure VerzeichnisstrukturAnlegen Beginnichnis (Teil Treeview geändert) Beginn 9~0ˆ6~ÿÿÿÿ*ˆ6~{’7~ Sè   ý tß{

 Â Â -Y ý ô7~`ß{ ØÞ{ ý
Ëä tý ˆG Â  ý  H tý PòA Â

H Ëä `Žæ '#Prozedure VerzeichnisseExistieren Endeeginnichnis (Teil Treeview geändert) Beginn 9~0ˆ6~ÿÿÿÿ*ˆ6~{’7~ Sè   ý tß{

 Â Â -Y ý ô7~`ß{ ØÞ{ ý
Ëä tý ˆG    MK Ò.@ 1R@ . $ ØX@  rJ MK ^T@ ¨K]
4#Prozedure Verzeichnis (Teil Treeview geändert) Ende Sè Â  ý tß{
  Â Â -Y èü ô7~`ß{ ØÞ{ ý
Ëä \ý ˆG Â  ý  H \ý PòA Â

H Ëä `Žæ âvG `Žæ œG 8|J lý M|J U|J ¨K]
¬MK @³ß |ý #Programm Starteändert) Ende Sè   ý tß{
  Â Â -Y èü ô7~`ß{ ØÞ{ ý
Ëä \ý ˆG Â  ý  H \ý PòA Â

H Ëä `Žæ âvG `Žæ œG 8|J lý M|J U|J ¨K]
¬MK @³ß |ý |ý ÏrJ „ý ärJ ìrJ #Programm Starteändert) Ende Sè   ý tß{
  Â Â -Y èü ô7~`ß{ ØÞ{ ý
Ëä \ý ˆG Â  ý  H \ý PòA Â

H Ëä `Žæ âvG `Žæ œG 8|J lý M|J U|J ¨K]
¬MK @³ß |ý |ý ÏrJ „ý ärJ ìrJ )#V-Tisch1 antwortet nicht und ist offline|4 À ¨K]
¬MK  `ý ÿÿÿÿôü |Б|z§€| ý ž§€| ¨K]

  $ À0ý <ö‘|Aö‘|$ À  ý lÒ‘|„ý é‘|$ À @ý ”€| ¨ý Ò.@  Ò.@ 1R@ 2 \U@ €¨å qU@  ¨K]
¬MK
©J #V-Tisch1 v=5000, a=5000t und ist offline|4 À ¨K]
¬MK  `ý ÿÿÿÿôü |Б|z§€| ý ž§€| ¨K]

  $ À0ý <ö‘|Aö‘|$ À  ý lÒ‘|„ý é‘|$ À @ý ”€| *ý Ò.@  Ò.@ 1R@ " \U@ À/æ qU@  ¨K]
¬MK
ՍJ !#V-Tisch1Kalibrierung eingeleitet offline|4 À ¨K]
¬MK  `ý ÿÿÿÿôü |Б|z§€| ý ž§€| ¨K]

  $ À0ý <ö‘|Aö‘|$ À  ý lÒ‘|„ý é‘|$ À @ý ”€| ˜ý Ò.@  Ò.@ 1R@ * \U@ èæ qU@  ¨K]
¬MK
ŽJ )#V-Tisch2 antwortet nicht und ist offline|4 À ¨K]
¬MK  `ý ÿÿÿÿôü |Б|z§€| ý ž§€| ¨K]
   $ À0ý <ö‘|Aö‘|$ À  ý lÒ‘|„ý é‘|$ À @ý ”€| ¨ý ¨ý  Ò.@ 1R@ î.@ òQ@ qU@  ¨K]
¬MK  ©J #V-Tisch2 v=5000, a=5000t und ist offline|4 À ¨K]
¬MK  `ý ÿÿÿÿôü |Б|z§€| ý ž§€| ¨K]
   $ À0ý <ö‘|Aö‘|$ À  ý lÒ‘|„ý é‘|$ À @ý ”€| *ý *ý  Ò.@ 1R@ î.@ òQ@ qU@  ¨K]
¬MK  ՍJ !#V-Tisch2Kalibrierung eingeleitet offline|4 À ¨K]
¬MK  `ý ÿÿÿÿôü |Б|z§€| ý ž§€| ¨K]
   $ À0ý <ö‘|Aö‘|$ À  ý lÒ‘|„ý é‘|$ À @ý ”€| ˜ý ˜ý  Ò.@ 1R@ î.@ òQ@ qU@  ¨K]
¬MK  ŽJ )#Pi-Tisch antwortet nicht und ist offline’| > > iõ¨K]
Øq³ 
Øü ü ÿÿÿÿý é‘|@ ’|ÿÿÿÿ= ’|dõ > iõ¨K]
8„³  8„³ ðü ¤Ç4ý Fÿÿÿÿiõà 8„³ ¤ÇD¥
8„³ „ý ë1ÿÿÿÿP§ ¬MK  Â
 RTSCTS ¨K]
¬MK  #Initialisierung abgeschlossen 

würde eigentlich gern das Format Textfile verwenden, nur leider wird da der Befehl seek nicht akzeptiert. Kann mir jemand nen Tip geben, wie ich eine ordentliche Textdatei erstellen kann ohne den ganzen Müll und wo auch jeder Zeileneintrag mit Writeln auch wirklich in eine neue Zeile geschrieben wird.

Vielen dank

BAMatze

[mkinzler]

Er scheint eine AnsiString-Datei als Unicode zu interpretieren

[DeddyH]

Wenn Du einen String[255] definierst, musst Du diesen auch vor dem Schreiben initialisieren (FillChar(Zu_schreibender_String,#0)). Ansonsten ist TextFile doch eigentlich das passende Format.

[BAMatze]

Was ich bei Textfile nicht verstehe, ist dass seek immer einen Fehler bringt, wenn die Datei in der ich springen möchte von diesem Typ ist. Fehlermeldung "inkompativle Typen".

[DeddyH]

Was möchstest Du mit Seek eigentlich erreichen?

[The-X]

In "Textfile"s darf nicht ge"seek"t werden, du kannst allerdings mit Append(txtfile); an das Ende der Datei springen um Zeilen anzufügen

Delphi-Quellcode:

const
  Filename = 'foo.txt';
var
  txt:Textfile;
begin
  AssignFile(txt, Filename);
  if FileExists(Filename) then
    Append(txt) // An's Ende der Datei "seek"en
  else
    Rewrite(txt); // Datei erstellen, falls nicht vorhanden

{....}
  Writeln(txtx, 'blaa');
{....}

  CloseFile(txt);
end;

der "Mist" Resultiert aus dem LängenByte des verwendeten ShortStrings (string[255]) und aus der Tatsache,
dass der String nur teilweise mit neuen Daten befüllt wird, aber mit den vollen 255 Zeichen {+ Längenbyte?} geschrieben wird

*Edit: AssignFile statt Assign {noch aus TP -Zeiten }

[guidok]

Es ist mir noch nicht ganz klar, was du machen möchtest, aber vielleicht wäre eine TStringList und deren Methode SaveToFile eine Alternative?

[Medium]

Bis zu einer gewissen Größe kann man zudem mit einer TStringList recht komfortabel arbeiten, nicht zuletzt wegen des indizierten Zugriffs auf einzelne Zeilen (was u.U. die Funktion von Seek ein Stück weit nachbilden kann). Ab ein paar MB an Text würde ich dann aber dazu raten nicht mehr ganze Files in die Liste zu schlabbern. Der große Vorteil: Speichern/Laden ist schon fertig eingebaut, und resultiert in "müllfreien" Textfiles

[NormanNG]

Hi,

hier eine Funktion für Seek mit TextFiles:

Delphi-Quellcode:

function TextSeek(var F : TextFile; Target : LongInt) : Boolean;
var Pos : LongInt;
begin
  with TTextRec(F) do begin
    Result := False;
    if Mode <> fmInput then Exit;
    Pos := FileSeek(Handle, 0, FILE_CURRENT);
    if Pos = -1 then Exit;
    Dec(Pos, BufEnd);
    Pos := Target-Pos;
    if (Pos >= 0) and (Pos < BufEnd) then
      BufPos := Pos
    else begin
      if FileSeek(Handle, Target, FILE_BEGIN) = -1 then Exit;
      BufEnd := 0;
      BufPos := 0;
    end;
  end;
  Result := True;
end;

[BAMatze]

Danke euch, das Append hat genau den Effekt gehabt, den ich erreichen wollte. Hier für alle der dementsprechende Quellcode und das Ergebnis in der Datei:

Delphi-Quellcode:

Assign(fTempFile, ExtractFilePath(ParamStr(0))+ 'Temp\' + Speicherverzeichnis.sTempDatei);
if FileExists(ExtractFilePath(ParamStr(0))+ 'Temp\' + Speicherverzeichnis.sTempDatei) = true then Reset(fTempFile)
else Rewrite(fTempFile);
Append(fTempFile);
writeln(fTempFile,Text);

closeFile(fTempfile);

(ist nur kurzer Auszug aus der Procedure)

und hier die jetzt wesentlich ansehnliche Datei:

Zitat:

#Programm Start
#Prozedure VerzeichnisnameErzeugen Beginn
#Prozedure VerzeichnisnameErzeugen Ende
#Prozedure Verzeichnis (Teil Treeview geändert) Beginn
#Prozedure VerzeichnisstrukturAnlegen Beginn
#Prozedure VerzeichnisseExistieren Ende
#Prozedure Verzeichnis (Teil Treeview geändert) Ende
#Programm Start
#Programm Start
#V-Tisch1 antwortet nicht und ist offline
#V-Tisch1 v=5000, a=5000
#V-Tisch1Kalibrierung eingeleitet
#V-Tisch2 antwortet nicht und ist offline
#V-Tisch2 v=5000, a=5000
#V-Tisch2Kalibrierung eingeleitet
#Pi-Tisch antwortet nicht und ist offline
#Initialisierung abgeschlossen
#Prozedure Einstellungsanzeige Beginn
#Prozedure Einstellungsanzeige Ende

Danke an alle