String-Format?

[stahli]

Vielleicht hat jemand direkt eine Lösung parat...

Ich habe eine alte D7-Anwendung, die eine Textdatei importiert.
Jetzt wurde das externe Format verändert (kenne mich da nicht wirklich aus :oops:).

Ich habe mal einfach planlos AnsiToAscii und AsciiToAnsi versucht. Hat aber nichts gebracht.
Kann vielleicht jemand anhand des Screenshots direkt eine Lösung erkennen?

Oben ist das bisherige Format, unten das neue,
Das alte Format wird in S lesbar incl. Umlauten abgebildet.
Beim neuen Format bin ich erst mal überfragt, zumal die Delphi-Hilfe hier auch nicht funktioniert.

Wenn es nützlich wäre könnte ich statt Textdatei.Readln auch über StringList gehen.

Hat jemand eine Idee, was der sinnvollste/einfachste Ansatz wäre?
(Das Projekt hat aber keine Priorität.)

[Luckie]

Unicode?

[Dalai]

Um genau zu sein, ist das eindeutig UTF-8, sowohl der BOM als auch der Umlaut.

MfG Dalai

[stahli]

Ja, stimmt, habe gerade mal gesucht.
In einer älteren eMail steht "UTF-8" als Ankündigung.

Werde mal nach einer D7-(Not-)Lösung suchen.

Danke. Hilft mir schon mal etwas.

[DeddyH]

In Delphi 7 dürften UTF8Decode bzw UTF8Encode Deine Freunde sein.

[nahpets]

Oder aber auch Utf8ToAnsi und AnsiToUtf8 aus der Unit System.
Jedenfalls nehm' ich die immer, wenn ich UTF8-Dateien (zeilenweise) lesen bzw. schreiben muss.

[Der schöne Günther]

Als kleiner Tipp:

Notepad++ hat, falls es die Kodierung nicht auf Anhieb erkennt, die Möglichkeit das Encoding selbst zu bestimmen (oder zu konvertieren), man sieht dann direkt wie sich die Zeichen ändern. So kann man notfalls etwas herumspielen um zu schauen, welches Encoding denn jetzt das richtige ist.

[stahli]

Danke, ich gebe Ende nächster Woche Bescheid...

[stahli]

Dank nochmal. So werde ich weiter kommen.
Utf8ToAnsi kapselt einfach Utf8Decode.

Delphi-Quellcode:

function Utf8ToAnsi(const S: UTF8String): string;
begin
  Result := Utf8Decode(S);
end;

War halt schwierig, da ohne funktionierende Hilfe drauf zu kommen. :?


Die erste Zeile enthält im Original Sonderzeichen, die zu einem Fragezeichen umgewandelt werden, das ich einfach entferne. Dann passt offenbar alles.

[Sir Rufo]

Diese "Sonderzeichen" nennen sich BOM

[jaenicke]

Da die Datei ein ByteOrderMark hat, kannst du auch einfach TStringList nehmen, die macht den Rest automatisch. ;-)

[Sir Rufo]

Zitat:

Zitat von jaenicke (Beitrag 1329804)

Da die Datei ein ByteOrderMark hat, kannst du auch einfach TStringList nehmen, die macht den Rest automatisch. ;-)

Sicher, dass Delphi 7 dass schon beachtet? - Könnte ich jetzt nicht so direkt sagen

[p80286]

Soweit ich weiß Kann die D7 Stringlist nur Ansi!

Gruß
K-H

[jaenicke]

Stimmt, ich habe nur auf das Profil geachtet und die Angabe im ersten Beitrag übersehen. :oops:

[himitsu]

Hatte ich auch übersehn.
Das erklärt dann auch, warum das BOM zu einem Fragezeichen wurde.

TNT-Unicode und JEDI haben eine TWideStringList.

k.A. ob Delphi 7 schon die Unit WideStrings.pas kennt.

[p80286]

TWideStrings sind schon bekannt, aber seit #9 ist das Problem wohl gelöst.
(Solange man sich sprachlich nur in Deutschland oder dem angrenzenden Ausland bewegt, reicht ANSI wohl noch.)
Gruß
K-H

[himitsu]

Seit D2009 hat TStringList ja eine Erkennung des BOM drin, samt automatischer Decodierung.

[stahli]

Ja, für mich ist die gefundene Lösung ausreichend. (Ich will mich auch nicht intensiver damit befassen müssen.)
Wenn jemand mehr braucht gibt es ja hier noch ein paar hilfreiche Infos.