Tipp 8.10 - String-Umwandlung

Wie kann ich eine String-Umwandlung zwischen ANSI und ASCII nutzen?

Mit dieser Funktion können Sie eine String-Umwandlung zwischen ANSI und ASCII nutzen. Kopieren Sie einfach nachfolgenden Quellcode in die Zwischenablage und fügen Sie anschließend den Inhalt der Zwischenablage in ein neues Modul ein. Die Aufrufparameter finden Sie im Quellcode beschrieben.

Api-AufrufeVerwendete Win32-Api-Aufrufe und Typen: OemToCharA, CharToOemA

Beispiel:

Option Explicit
 
Declare Function OemToCharA Lib "user32.dll" _
                (ByVal lpszSrc As String, _
                 ByVal lpszDst As String) As Long
Declare Function CharToOemA Lib "user32.dll" _
                (ByVal lpszSrc As String, _
                 ByVal lpszDst As String) As Long
 
Function ASCII2ANSI(ByVal sValue As String) As String
'// -----------------------------------------------------
'// Methode:   | ASCII-String in ANSI umwandeln
'// -----------------------------------------------------
'// Parameter: | sValue - ASCII-String
'// -----------------------------------------------------
'// Rückgabe:  | Konvertierter ANSI-String
'// -----------------------------------------------------
'// Autor:     | Stefan Kulpa
'//            | EDV Innovation & Consulting - Dormagen
'// -----------------------------------------------------
    Call OemToCharA(sValue, sValue)
    ASCII2ANSI = sValue
 
End Function
 
Function ANSI2ASCII(ByVal sValue As String) As String
'// -----------------------------------------------------
'// Methode:   | ANSI-String in ASCII umwandeln
'// -----------------------------------------------------
'// Parameter: | sValue - ANSI-String
'// -----------------------------------------------------
'// Rückgabe:  | Konvertierter ASCII-String
'// -----------------------------------------------------
'// Autor:     | Stefan Kulpa
'//            | EDV Innovation & Consulting - Dormagen
'// -----------------------------------------------------
    Call CharToOemA(sValue, sValue)
    ANSI2ASCII = sValue
 
End Function


Zurück Tipp 8.9 - Hex-Wert nach Long | Inhalt | Tipp 8.11 - Prüfsummenermittelung Weiter