[VBA] Textdatei von Unicode nach ANSI

[ferby]

Hallo,

ich bekomme x viele ~2MB große Textdatei die als Unicode gespeichert sind.
Ich muss diese Textdatei nun mit VBA einfach nur als Ansi Code abspeichern.

Ohne irgendetwas in dieser Textdatei auszulesen/bearbeiten.

Weiß jemand wie das mit VBA performant geht?

In Google finde ich nur Lösungen bei denen Zeilenweiße eingelesen und umgewandelt wird,
allerdings muss das doch auch schneller und einfacher gehen, oder?

Stell mir das so irgendwie for:

Open "a.txt" For Binary As xyz
Save xyz, ANSI
close xyz

[Bernhard Geyer]

VBA wirst du nix besseren finden (Außer einbindung externer DLL die sowas compiliert durchführt). Ansonsten muß jedes Byte der Datei angelangt werden.

[p80286]

hallo Ferby,

ja so ungefähr sollte es gehen. schau mal in der Word-Basic-Hilfe nach "saveas" und "msoEncoding" da sollte auch etwas fürDich dabei sein.

Gruß
K-H

[ferby]

Hallo,

also irgendwie will es nicht hinhauen:

Mein Code

Code:

Dim xyz As Document

xyz.Open FileName:="C:\Dokumente und Einstellungen\wirth\Desktop\a.dat"
xyz.SaveAs FileName:="C:\Dokumente und Einstellungen\wirth\Desktop\a.csv", Encoding:=28592

Fehler bei xyz.open:

---------------------------
Microsoft Visual Basic
---------------------------
Fehler beim Kompilieren:

Methode oder Datenobjekt nicht gefunden
---------------------------
OK Hilfe
---------------------------

und meine zweite Frage wäre noch: welche msoEncoding Konstante ist ANSI? Ich finde da nichts passendes in der aufzählung der Konstanten in der Hilfe

[p80286]

Hallo Ferby,
da haben wir aneinander vorbei geschrieben. Ich habe VBA als VisualBasicforApplications gedeutet. Und das kompiliert nicht. Mit echtem VB sind meine Erfahrungen =0 obwohl beide Dialekte wohl recht ähnlich sind.

Tut mir leid
K-H

[ferby]

Hallo,

ich spreche auch von VBA ;-)

komm irgendwie nicht weiter, will doch nur aus einen Unicode Textdatei eine Ansi Textdatei machen, dacht nicht das das so schwer ist,
habe jetzt über einer Stunde im Internet gesucht und nix gefunden :-(