Text richtig einlesen

[musicman56]

Hallo,

mich würde eine "automatisch" funktionierende Lösung auch interessieren. CharToOemBuff und OemToCharBuff setzen ja voraus, dass man erst mal wissen muss, in welcher Codierung die Datei bzw. der Text vorliegt. Sonst kommt Müll raus. Momentan löse ich das auf eine sehr umständliche Art und Weise (@Stahli das dürfte dein Problem auch lösen) aber ich denke/hoffe, dass es eine performantere Lösung gibt.

Delphi-Quellcode:

procedure AutoOemToChar(var Value: AnsiString);
var
  i: integer;
begin
  for i := 1 to Length(Value) do
  if ord(Value[i]) in [132,148,129,142,153,154,225,$FC,$FD]
  then if NOT CharInSet(Value[i],['ä','ö','ü','Ä','Ö','Ü','ß','³','²'])
  then begin
    OemToCharBuffA(PAnsiChar(Value), PAnsiChar(Value), Length(Value));
    Break;
  end;
end;

[Sir Rufo]

Es gibt keine automatische zu 100% funktionierende Erkennung.

Aufgrund dessen wurden ja BOM eingeführt, allerdings erst später (quasi zu spät) und verpflichtend sind die auch nicht.

Das gleich passiert, wenn du eine Excel-Datei mit der Endung .doc abspeicherst.
Ein Doppelklick auf diese Datei produziert nur noch Müll auf den Bildschirm.

Man muss wissen, um was es sich handelt um diesen Bytehaufen (mehr ist das nicht) richtig zu behandeln.

Für die einen ist es ein Keksriegel, für die anderen die längste Praline

[stahli]

Ich habe es jetzt einfach zu Fuß gelöst.

Keine Ahnung ob sich klären lässt, welches Format hier vorliegt.
Ein kleines 'a' steht z.B. für 'ß'.

Wenn es später weitere unbekannte Sonderzeichen geben sollte würde ich informiert werden.
So kann ich auch gleich noch unseren Straßennamen-Sonderfall mit abfrühstücken.

Delphi-Quellcode:

    function StrassennamenKorrektur(S: string): string;
    var
      C: Char;
    begin
      Result := '';
      for C in S do
        case C of
          'A' .. 'Z', '-', '.', ' ':
            Result := Result + C;
          '1':
            Result := Result + ' EINS'; // Sonderfall Straßenname "Franckeplatz 1 Haus"
          #14:
            Result := Result + 'Ä';
          #25:
            Result := Result + 'Ö';
          #26:
            Result := Result + 'Ü';
          #97:
            Result := Result + 'ß'
        else
          begin
            Result := Result + C;
            ShowMessage('Zeichenwert #' + IntToStr(Ord(C)) + ' in Straßennamen ' + QuotedStr(S) + ' nicht eindeutig.');
          end;
        end;
    end;