TStringList ohne BOM speichern?

[fillibuster]

Hi,

gibt es eine einfache Möglichkeit (D2010) das BOM nicht mitzuschreiben? Meine erstellten StringListen speichere ich so:
sl.SaveToFile(savepath + 'muster.txt',TEncoding.UTF8);
Vielen Dank!

[Furtbichler]

Wer sollte das dann wieder einlesen können? Der BOM für UTF-8 hat schon seinen Sinn. Was stört dich daran?

[Perlsau]

Moin Furtbichler, ein gutes Neues wünsche ich.

Z.B. meckert der Firebird-Script-Editor, wenn ich ein mittels StringListe erstelltes SQL-Script einlesen will, dem ein BOM vorangestellt ist. Liegt vielleicht aber auch an den Einschränkungen der Personal-Version

[fillibuster]

Hallo - äh genau und frohes neues Jahr,

ich schreibe damit PHP Scripte und PHP hat die unschöne Eigenart bei einem Script mit BOM einen headers already sent Fehler zu produzieren.

Viele Grüße ...

[Bernhard Geyer]

Wenn unbedingt sein muss bastel dir eine Hilfsfunktion indem du die Stringlist erst in einen stream Speicherst und dann die ersten 3 Byte beim Speichern weg lässt.

@Furtbichler: Ich kenne öfter den Fall das "Hochqualifizierte" ERP bzw. PLM-Entwickler es nicht schaffen in Exportdateien solch einen BOM zu schreiben (Man muss öfter schon froh sein das Sonderzeichen korrekt geschrieben werden). Dann haben Sie auch vermutlich oft das Problem so einen BOM lesen und korrekt interpretieren zu können.

[Uwe Raabe]

Zitat von fillibuster:

gibt es eine einfache Möglichkeit (D2010) das BOM nicht mitzuschreiben?

1. Update auf XE oder höher
2. sl.WriteBOM := false;

[Perlsau]

Hab eben mal zum Testen zwei Textdateien erstellt, einmal via Liste.SaveToFile(Datei) und einmal via Liste.SaveToFile(Datei,TEncoding.UTF8). Wenn ich die mit PsPad öffne, wird mir dort für beide Dateien das Format UTF8 angezeigt.

Gehe ich recht in der Annahme, daß ab Delphi 2009 standardmäßig im UTF8-Format gespeichert wird, wenn nichts anderes angegeben wurde? Die Datei mit dem Bom ist nur unerheblich größer als die andere.

[Uwe Raabe]

Zitat von Uwe Raabe:

Zitat von fillibuster:

gibt es eine einfache Möglichkeit (D2010) das BOM nicht mitzuschreiben?

1. Update auf XE oder höher
2. sl.WriteBOM := false;

OK, sollte Punkt 1 zu große Schwierigkeiten bereiten, kannst du auch eine eigene Klasse von TUTF8Encoding ableiten, dort GetPreamble überschreiben und ein leeres TBytes zurückgeben. Du musst dich dann bloß selbst um Instanziierung und Freigabe des Encoding-Objekts kümmern.

[fillibuster]

Hallo,

danke für die Antworten. Werde ich dann wohl selbst Hand anlegen. Eine Sache noch in diesem Zusammenhang. In den gespeicherten Dateien ist immer eine (Leer)Zeile mehr drin als eigentlich geschrieben wird. Liegt das auch am BOM?

Viele Grüße ...

[MaBuSE]

Zitat von fillibuster:

gibt es eine einfache Möglichkeit (D2010) das BOM nicht mitzuschreiben? Meine erstellten StringListen speichere ich so:
sl.SaveToFile(savepath + 'muster.txt',TEncoding.UTF8);

TStrings hat eine Eigenschaft WriteBOM.

Per Default ist die auf True.

Beisp:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.WriteBOM := True;
  memo1.Lines.SaveToFile('z:\temp\1.txt', TEncoding.UTF8);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Memo1.Lines.WriteBOM := False;
  Memo1.Lines.SaveToFile('z:\temp\2.txt', TEncoding.UTF8);
end;