Ascii und Ansi tauschen - Codeproblem

Tech Tip: Click here to run a free scan for Windows Errors and optimize PC performance

Moin, Moin!

Zwecks Ausgabe von in WIN erzeugtem Dateicode der unter DOS gebraucht wird suchte ich nach einer ANSI-ASCII-Konvertierung. Nach fruchtlosen Versuchen bekam ich hierorts diesen Code:

Private Declare Sub OemToChar Lib "user32" Alias "OemToCharA" _
(ByVal StrFrom As String, ByVal StrTo As String)
Private Declare Sub CharToOem Lib "user32" Alias "CharToOemA" _
(ByVal StrFrom As String, ByVal StrTo As String)

Public Function ASCIItoANSI(ByVal AsciiString As String) _
As String
OemToChar AsciiString, AsciiString
ASCIItoANSI = AsciiString
End Function

Public Function ANSItoASCII(ByVal AnsiString As String) _
As String
CharToOem AnsiString, AnsiString
ANSItoASCII = AnsiString
End Function

Das funktioniert nur dummerweise nicht.
Nicht, dass die Zeilen
OemToChar AsciiString, AsciiString
CharToOem AnsiString, AnsiString
offenbar besser
OemToChar AsciiString, AnsiString
CharToOem AnsiString, AsciiString
heißen müssten erhalte kein Resultat. (Analog müssen auch die Rückgabezeilen angepasst werden.)

Die DLL ist da, die Einsprungspunkte gibts (Schreibung offenbar richtig), ergo auch keine Fehlermeldung - nur es gibt auch nichts zurück.
Der String nach dem Komma ,der offenbar das Konvertierresultat enthalten soll, liefert nichts zurück, er ist leer.
Selbst die Hoffnung, dass nicht ganze Strings sondern nur einzelne Zeichen übergeben werden müssten liefert (immer noch wortwörtlich) kein Resultat.
Würde das nur unter W98 passieren gäbe einen Erklärungsversuch. Aber es klappt unter XP auch nicht...

Wenn es diese eingebaute Umwandlungsfunktion gibt - wie wird sie richtig benutzt?

--
Eric March

Kenne die Vergangenheit. In der Unwissenheit über die Vergangenheit liegt das Verderben der Zukunft.
"Die Geschichte ist der beste Lehmeister - mit den unaufmerksamsten Schülern." Indira Gandhi
.

Relevant Pages

  • Re: Datei vom Filesystem auf FTP Server kopieren
    ... Private Const FTP_TRANSFER_TYPE_UNKNOWN = &H0 ... ByRef hInet As Long _ ... ByVal hInternetSession As Long, _ ... ByVal sServerName As String, _ ...
    (microsoft.public.de.excel)
  • Re: Datei vom Filesystem auf FTP Server kopieren
    ... > Private Declare Function InternetCloseHandle _ ... > ByRef hInet As Long _ ... > ByVal hInternetSession As Long, ... > ByVal sServerName As String, ...
    (microsoft.public.de.excel)
  • Re: Ini Datei auslesen
    ... Eine Ini-Datei ist unterteilt in Sections und Keys. ... ByVal lpApplicationName As String, _ ... ByVal lpFileName As String) As Long ...
    (microsoft.public.de.vb)
  • Re: Datei vom FTP Server einlesen
    ... Private Const INTERNET_SERVICE_FTP = 1 ... ByRef hInet As Long _ ... ByVal hInternetSession As Long, _ ... ByVal sServerName As String, _ ...
    (microsoft.public.de.excel)
  • Datei Import - Erkennen der Felder (Swift - MT940)
    ... ByVal lpApplicationName As String, _ ... Dim A As Long, Wert As String ... Dim Path$: Path = myARSFilePath ...
    (microsoft.public.de.excel)