Hallo, ich kann das sicher auch per API machen: Wie kann ich einen ANSI-String per API umwandeln? Ich kenne zwar MultiByteToWideChar, aber entweder ist das die falsche API oder ich hab die falschen Parameter.
ANSIToOEM$ per API
-
-
-
Könnte so gehen: (Funktion heißt CharToOemA in User32)
Code
Alles anzeigenDef AnsiToOemA(2) !"User32", "CharToOemA" Declare String Text, AText Text = "Mein Text ÄÖÜäöüß" AText = Space$(Len(Text)) Print "Umwandlung mir Profan: " + AnsiToOem$(Text) AnsiToOemA(Addr(Text), Addr(AText)) Print "Umwandlung mit API: " + AText Print "Zeichencode vor / nach Umwandlung mit API" WhileLoop Len(AText) Print Ord(Mid$(Text,&Loop,1)), Ord(Mid$(AText,&Loop,1)) EndWhile WaitInput
Gruß Volkmar -
Ah wunderbar, vielen Dank. Laut MSDN soll man die Funktion nicht verwenden, Sicherheitsbedenken. Das steht bei CharToOemBuff nicht da, also machts keinen großen Unterschied.
Jetzt mitmachen!
Sie haben noch kein Benutzerkonto auf unserer Seite? Registrieren Sie sich kostenlos und nehmen Sie an unserer Community teil!