Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

ASCII nach ANSI konvertieren
Autor: Stahlente
Datum: 25.04.02 08:49
hi, habe ein kleines problem und hoffe ihr könnt mir helfen, bin gerade dabei ein programm zu schreiben womit man einen ASCII code in einen ANSI code konvertieren kann, ist das erste mal das ich so etwas mache und blicke da absolut nicht mehr durch *blöde naja, also das is die funktion für die konvertierung (die 100%ig falsh is ;) Private Sub cmdkonvert_Click() Dim Quelle As String Dim Ziel As String Quelle = CStr(txtquelle.Text) Ziel = DOS_To_ANSI(Quelle) Private Declare Function OemToChar Lib "user32" Alias "OemToCharA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long Public Function DOS_To_ANSI(ByVal Quelle As String) _ As String Dim lResult As Long sANSI = Space$(Len(Quelle)) lResult = OemToChar(Quelle, Ziel) DOS_To_ANSI = sANSI End Function

ASCII nach ANSI konvertieren	142	Stahlente	25.04.02 08:49
Mal gucken	1.663	unbekannt	25.04.02 19:53
hmm...	86	Stahlente	26.04.02 09:27
hmm...	84	Stahlente	26.04.02 09:29

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen