Letztes Zeichen einer TextFile löschen

[StefanDP]

Hi!
Ich erstell eine TextFile (AssignFile(txt,'...bla.txt'))...
die sieht so aus:

Code:

blabla
var dic=new Array(
  "asdf",
  "jjfj",
  "lll",

Jetzt will ich wenn die datei geschrieben wurde, das letzte zeichen löschen! (also das ",")
Geht das?

stefan

[toms]

Zitat:

Jetzt will ich wenn die datei geschrieben wurde, das letzte zeichen löschen!

Hi,

Kannst du nicht einfach das letzte Zeichen nicht in die Datei schreiben?
Dann müsstest du auch nichts löschen...

[StefanDP]

leichter gesagt als getan! die daten werden dynamisch reingeschrieben, d.h. ich weiß vorher nicht, welches der letze eintrag sein wird!

[glkgereon]

da du das ja in delphi machst würd ich das mit TStrings machen
sähe so aus:

Delphi-Quellcode:

//einlesen
data.Loadfromfile('Textdatei.txt');
//oder
data.Add('Das Soll dazu');

//letztes zeichen löschen
data.delete(length(data.text));
//oder (weiss nit genau was funzt)
data.delete(data.count);//count is glaub ich für lines

//speichern
data.SaveToFile('Datei.txt');

[StefanDP]

hab es jetzt ganz anderst gelöst!
das wird eine javascript suchfunktion für unsere homepages!
ich hab jetzt kein "," entfernt, sondern einfach gaaanz am schluss noch ein "" dummy hinzugefügt!

damit wäre das geklärt!
trotzdem thx@all

stefan

[XeRo]

naja...warum einfach wenns auch kompliziert geht

[Christian Seehase]

Moin Stefan,

ansonsten kannst Du auch einfach die Datei mittels TFileStream öffnen, size um eins verringern, und das Objekt wieder freigeben.