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 :mrgreen: }

[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

[DeddyH]

Und das funktioniert? In Delphi heißt es doch AssignFile, Assign stammt noch aus TP-Zeiten und hat unter Delphi eine andere Bedeutung. Und wieso Reset?

Delphi-Quellcode:

sFile := ExtractFilePath(ParamStr(0))+ 'Temp\' + Speicherverzeichnis.sTempDatei;
{$I-}
AssignFile(fTempFile, sFile);
if FileExists(sFile) then
  Append(fTempFile)
else 
  Rewrite(fTempFile);
{$I+}
if IOResult = 0 then
  writeln(fTempFile,Text)
else
  MessageBox(0,'Fehler beim Öffnen der Datei',nil,MB_OK or MB_ICONERROR);
closeFile(fTempfile);

So in etwa würde ich das machen (aus dem Kopf getippt, die Fehlermeldung ggf. etwas detaillierter, dazu muss man sich IOResult genauer ansehen).

[BAMatze]

Hmm also hat Funktioniert mir dem Assign, ist mir bisher noch gar nicht aufgefallen, dass dort der Befehl nicht richtig ist, hab es aber jetzt auch in AssignFile geändert, Danke nochmal. Was machen die Anweisungen: {$I-} und {$I+}?

Ps.: kann auch sein, da ich die Position der Erstellung der Datei noch lokalisieren musste, dass ich eine weitere Anweisung AssignFile im Programm habe, schaue ich gleich nochmal sauber durch.

[DeddyH]

Zitat:

Zitat von Delphi 5-Hilfe

Mit der Direktive $I wird die automatische Code-Generierung aktiviert bzw. deaktiviert, die nach jedem Aufruf einer E/A-Prozedur das Ergebnis überprüft. Eine ausführliche Beschreibung der E/A-Prozeduren finden Sie in der Object Pascal Sprachreferenz. Wenn eine E/A-Prozedur bei aktiviertem $I-Schalter ein Ergebnis ungleich 0 zurückgibt, führt dies zu einer EInOutError-Exception (bzw. zum Programmabbruch, wenn die Exception-Behandlung nicht aktiviert ist). Ist der Schalter $I deaktiviert, muß die E/A-Operation durch einen Aufruf von IOResult auf Fehler geprüft werden.

[BAMatze]

Danke