Ascii-Code in Zeichen umwandeln, und umgekehrt

Operieren mit Ascii-Codes und den dazugehörigen Zeichen gehört zum Alltag jedes Entwicklers. Was aber wenn man gerade keine Code-Tabelle zur Hand hat? Wieviele Zeichen können Sie auswendig? Ist aber gar nicht nötig, Zeichen und Code lassen sich mit einfachen Befehlen umwandeln.

Folgende Funktion gibt den Ascii-Code des ersten Zeichen der übergebenen Textvariable zurück:

Function GetAsciiCode(strText as String) as Integer
     
     'Deklaration
     Dim intAsc As Integer
     
     'Code ermitteln
     intAsc = Asc(strText) 
     
     'Rückgabe
     GetAsciiCode = intAsc
 
End Function

Das ganze funktioniert natürlich auch umgekehrt. Hier wird der Code übergeben und in das Zeichen umgewandelt:

Function GetAsciiText(intCode as Integer) as String
     
     'Deklaration
     Dim strText As String
     
     'Zeichen ermitteln
     strText = Chr(intCode) 
     
     'Rückgabe
     GetAsciiText = strText
 
End Function

Benötigen Sie Unterstützung oder weiterführende Informationen, gerne helfen wir Ihnen weiter, reden Sie doch einfach mit uns.

Die Informationen dieser Seite dürfen, gemäss unseren Nutzungsbestimmungen, kostenlos weiterverwendet werden.

Reto Maurer's Software-Chuchi
Seestrasse 26
CH-8802 Kilchberg-Zürich
Telefon: +41 79 635 47 31
E-Mail:info@software-chuchi.ch