Auf den letzten char in einer Datei zugreifen

[p80286]

Das letzte Zeichen einer Datei erreichst Du mit seek(filesize-2) aber

Zitat von kagi3624:

Ich schreibe in eine CSV Einträge und möchte das letzte Komma einfach löschen, ohne dass es in den EOF zugreift oder mir sonstwie um die Ohren fliegt.

warum das? Meiner Meinung nach geht nichts über eine vernünftige Feldbegrenzung und warum solltest du überhaupt hinter dem Dateiende zugreifen?

Luckie hat ja schon den Weg der üblichen Datenbehandlung beschrieben.

Gruß
K-H

[kagi3624]

Zitat von p80286:

warum das? Meiner Meinung nach geht nichts über eine vernünftige Feldbegrenzung und warum solltest du überhaupt hinter dem Dateiende zugreifen?
Gruß
K-H

Delphi (6?) behandelt ja auch nicht initialisierte Objekte als schon vorhandene Objekte und reicht die dann auch feucht fröhlich an andere Funktionen usw weiter. Man darf dann Stundenlang suchen, wo man dann T.create(); und nicht T := Tclass.Create(); hingedonnert hat oder gar weggelassen...Also mein Frustlevel mit Delphi ist ausgereizt.

[p80286]

Zitat von kagi3624:

Delphi (6?) behandelt ja auch nicht initialisierte Objekte als schon vorhandene Objekte und reicht die dann auch feucht fröhlich an andere Funktionen usw weiter. Man darf dann Stundenlang suchen, wo man dann T.create(); und nicht T := Tclass.Create(); hingedonnert hat oder gar weggelassen...Also mein Frustlevel mit Delphi ist ausgereizt.

Mmm das passiert auch mir manchmal, ich halte das aber für meine Dusseligkeit.

Gruß
K-H

[KodeZwerg]

Zitat von kagi3624:

wie kann ich auf den letzten Char in der Textdatei zugreifen

very oldschool, nur zum auslesen des letzten zeichen erstmal gedacht...

Delphi-Quellcode:

var
  DateiHandle: THandle;
  dwBytesRead: Cardinal;
  Buf: Byte;
begin
  DateiHandle := CreateFile('Dateiname.csv', GENERIC_READ, 0, nil, OPEN_EXISTING, 0, 0);
  if DateiHandle <> INVALID_HANDLE_VALUE then
  begin
    SetFilePointer(DateiHandle, -1, nil, FILE_END);
    ReadFile(DateiHandle, Buf, 1, dwBytesRead, nil);
    // Buf checken machen tuen
    ShowMessage(IntToStr(Buf));
    CloseHandle(DateiHandle);
  end;
end;

[himitsu]

Bei der StringListe aufpassen, dass es nicht knallt, sollte die Datei leer sein und einfach so ohne Prüfung auf Count-1 zugegriffen werden,
bzw. das letzte Char, wenn es nichts in der Zeile gibt.

PS: TStringList hängt beim Speichern einen Zeilenumbruch hinter jede Zeile, selbst wenn es beim Einlesen hinter der letzten Zeile keinen Zeilenumbruch gab.


CreateFile, SetFilePointer, ReadFile, SetEndOfFile, CloseHandle
oder

Delphi-Quellcode:

S := TFileStream.Create(...);
//S.Position := S.Size - 1;
//if AnsiChar(S.Read(..., 1)) = ',' then
S.Size := S.Size - 1;
S.Free;

CreateFile/TFileStream knallt nichts, außer du willst es.
Ein Read/SetPosition hinter das Ende wird auf das Ende zurückgesetzt, bzw. stoppt dort.
Einige Read-Methoden (die ohne Result), werfen eine Exception, wenn sie nicht genug lesen/schreiben konnten und die mit Result sagen dir wieviel sie wirklich gemacht hatten (wenn du nicht vergisst die Results auszuwerten).
Read/Write vs. ReadBuffer/WriteBuffer