Wie kann eine text-Datei umgewandelt werden, von ANSI zu UTF-8 mit Delphi 7?

Ich ein Programm geschrieben mit Delphi 7 das sucht *.srt Dateien auf einer Festplatte. Dieses Programm listet den Namen und den Pfad dieser Dateien in einem memo. Jetzt muss ich diese Dateien zu konvertieren von ANSI zu UTF-8, aber ich noch nicht geschafft.

  • ANSI ist nicht wirklich eine richtige Zeichenkodierung name; Windows verwendet in der Regel "ANSI" auf meine Windows-1252. stackoverflow.com/questions/701882
  • Windows verwenden Sie "ANSI" zu bedeutet, was Ihr Gebietsschema ist. Es wäre SJIS für windows Japanisch Benutzer; GB2312 für Chinesisch S-windows-Benutzer, etc...
  • Würden Sie bitte erklären, was genau passiert, so dass Sie "nicht gelungen"?
InformationsquelleAutor | 2009-04-02
  1. 9

    Den Utf8Encode-Funktion nimmt einen WideString string als parameter und gibt einen Utf-8 string.

    Beispiel:

    procedure ConvertANSIFileToUTF8File(AInputFileName, AOutputFileName: TFileName);
var
  Strings: TStrings;
begin
  Strings := TStringList.Create;
  try
    Strings.LoadFromFile(AInputFileName);
    Strings.Text := UTF8Encode(Strings.Text);
    Strings.SaveToFile(AOutputFileName);
  finally
    Strings.Free;
  end;
end;
    • Die OP-tagged die Frage, wie delphi-7. In Delphi 7, strings, als ANSU standardmäßig, also die strings die in die bestehenden TStringList sind auch ANSI. Sind Sie sicher, dass das funktionieren wird?
    • ja (ich gehe davon aus, dass die Dateien erstellt wurden mit dem gleichen Standard-ANSI-Codepage, die verwendet wird, durch die Delphi-Programm)
    • UTF8Encode - Coole Lösung. Danke.
    InformationsquelleAutor mjn
  2. 1

    Werfen Sie einen Blick auf GpTextStream das aussieht, wie es funktioniert mit Delphi 7. Es hat die Fähigkeit zum Lesen/schreiben von unicode-Dateien in älteren Versionen von Delphi (obwohl funktioniert mit Delphi 2009) und sollte helfen, mit Ihrer Umwandlung.

    • Dies ist, was ich verwenden und es funktioniert in D7 !
    InformationsquelleAutor skamradt
  3. 0
    var
  Latin1Encoding: TEncoding;
begin
  Latin1Encoding := TEncoding.GetEncoding(28591);
  try
       MyTStringList.SaveToFile('some file.txt', Latin1Encoding);
  finally
      Latin1Encoding.Free;
  end;
end;
    • Dies ist Delphi 2009.
    InformationsquelleAutor pedrofernandes
  4. 0

    Bitte Lesen Sie die ganze Antwort, bevor Sie mit dem Programmieren beginnen.

    Die richtige Antwort auf die Frage - und es ist nicht einfach eine - bestehen im wesentlichen aus Baum-Schritte:

    1. Sie haben, um zu bestimmen, die ANSI-Codepage verwendet, die auf Ihrem computer. Sie können dieses Ziel erreichen, indem Sie mit der GetACP () - Funktion aus der Windows API. (Wichtig: Sie zum abrufen der codepage so bald wie möglich nach dem Dateinamen Abfrage, denn es kann vom Benutzer geändert werden.)
    2. Müssen Sie konvertieren Sie Ihre ANSI-string nach Unicode, durch aufrufen von MultiByteToWideChar() Windows API-Funktion mit der richtigen CodePage-parameter (abgerufen im vorherigen Schritt). Nach diesem Schritt müssen Sie eine UTF-16-string (praktisch ein WideString) enthält den Namen der Datei Liste.
    3. Sie haben zu konvertieren Unicode-string nach UTF-8 mit UTF8Encode() oder die WideCharToMultiByte() Windows API. Diese Funktion gibt einen UTF-8 string, der Sie benötigt werden.

    Jedoch diese Lösung wird eine UTF-8-Zeichenfolge, die die Eingabe von ANSI-string, ist dies wahrscheinlich nicht der beste Weg, um Ihre Probleme zu lösen, da die Datei-Namen können schon beschädigt werden, wenn die ANSI-Funktionen zurückgegeben, so richtige Datei-Namen sind nicht garantiert.

    Die richtige Lösung für Ihr problem ist wegen komplizierter:

    Wenn Sie wollen, um sicher, dass Ihre Datei-Namen-Liste ist genau reinigen, müssen Sie sicherstellen, dass es nicht bekommen in ANSI konvertiert in alle. Sie können dies tun, indem Sie explizit mit dem "W" - version der Datei-handling-API. In diesem Fall natürlich können Sie nicht verwenden, TFileStream und andere ANSI-Datei-handling-Objekte, aber die Windows-API-Aufrufe direkt.

    Ist es nicht , dass hart, aber wenn Sie bereits ein Komplexes framework, z.B. TFileStream, könnte es sein a bit of a pain in the @ss. In diesem Fall die beste Lösung ist, erstellen Sie einen TStream Nachkomme, nutzt die entsprechende API.

    Ich hoffe, meine Antwort hilft Ihnen, oder jemand, der sich mit dem gleichen problem. (Ich musste nicht so lange her.)

    • Die Frage ist, über die Umwandlung des Datei-Inhalts von ANSI zu UTF-8 die Datei-Namen (in dem memo-Feld) sind eine andere Frage iiuc
    • Nein. In der Frage Yilmaz Ekici schrieb über eine Datei-Liste in der memo "Dieses Programm listet den Namen und den Pfad dieser Dateien in einem memo." , nicht über Datei-Inhalte. Jetzt (s)er möglicherweise wollte Fragen, über die Umwandlung des Datei-Inhalts, aber (s)das Tat er nicht.
    • 1) die Frage, Titel beginnt mit How can a text file be converted ... 2) nach der Erwähnung der Datei-Liste, die Frage weiter mit I need convert these files.
    InformationsquelleAutor mg30rg
  5. -1

    Meinst du ASCII?

    ASCII abwärtskompatibel mit UTF-8.
    http://en.wikipedia.org/wiki/UTF-8

    • Nein, ich meine, ANSI. Öffnen Sie eine txt-Datei.(Editor-Datei)----> speichern unter -------> Codierung ------> ANSI oder UTF-8-oder... ----> SPEICHERN-ich hoffe, dies hilft Ihnen zu sehen, mein Ziel...
    InformationsquelleAutor jason saldo
Schreibe einen Kommentar