Unicode-zeichen in ansi umwandeln?
Hallo,
ich öffne eine Unicode-Datei im Unicodeformat
set fileread1 = fs.OpenTextFile("c:\datei.txt",,,-1)
und lese sie aus. Darin sind auch soche Zeichen enthalten: 官
Die will ich dann in eine neue Textdatei (Ansicode) wieder reinschreiben.
Das geht natürlich nicht.
Fehler: "Ungültiger Prozeduraufruf oder ungültiges Argument"
Ich muss das Zeichen vorher in ANSI umwandeln.
Im Beispiel handelt es sich um ein Zeichen mit ASCII-Code 63, in ANSI ist das ein "?".
Aber wie geht das umwandeln?
[Edit]
Ich habs gefunden:
chrb(asc("体"))
Danke
Martin
ich öffne eine Unicode-Datei im Unicodeformat
set fileread1 = fs.OpenTextFile("c:\datei.txt",,,-1)
und lese sie aus. Darin sind auch soche Zeichen enthalten: 官
Die will ich dann in eine neue Textdatei (Ansicode) wieder reinschreiben.
Das geht natürlich nicht.
Fehler: "Ungültiger Prozeduraufruf oder ungültiges Argument"
Ich muss das Zeichen vorher in ANSI umwandeln.
Im Beispiel handelt es sich um ein Zeichen mit ASCII-Code 63, in ANSI ist das ein "?".
Aber wie geht das umwandeln?
[Edit]
Ich habs gefunden:
chrb(asc("体"))
Danke
Martin
Please also mark the comments that contributed to the solution of the article
Content-Key: 150230
Url: https://administrator.de/contentid/150230
Printed on: April 27, 2024 at 18:04 o'clock