Rubrik: Variablen/Strings · Sonstiges | VB-Versionen: VB6 | 12.06.09 |
Ist das Zeichen ein Buchstabe, eine Zahl oder ein Sondezeichen? Manchmal ist es nötig herauszufinden, ob ein Zeichen ein Buchstabe, eine Zahl oder ein Sonderzeichen ist. Die folgenden 3 Funktionen erledigen das. | ||
Autor: Thomas Schnitzler | Bewertung: | Views: 23.881 |
ohne Homepage | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | kein Beispielprojekt |
Manchmal ist es nötig herauszufinden, ob ein Zeichen ein Buchstabe, eine Zahl oder ein Sonderzeichen ist. Die folgenden 3 Funktionen erledigen das.
Public Function IsCharacter(ByVal Zch As String) As Boolean ' Buchstaben: ' Findet heraus ob Groß- / Kleinschreibung unterschieden wird IsCharacter = (Asc(UCase$(Zch)) <> Asc(LCase$(Zch))) End Function
Public Function IsNumber(ByVal Zch As String) As Boolean ' Zahlen: ' Findet heraus ob Zeichen im Text "0123456789" vorhanden ist IsNumber = (InStr("0123456789", Zch) > 0) End Function
Public Function IsSpecialCharacter(ByVal Zch As String) As Boolean ' Sonderzeichen ' Findet heraus ob Zeichen weder Buchstabe noch Zahl ist IsSpecialCharacter = (IsCharacter(Zch) = False And IsNumber(Zch) = False) End Function