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:     [ Jetzt bewerten ]	Views:  25.288
ohne Homepage	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	kein Beispielprojekt

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 9 Bewertung insgesamt: nützlich Durchschnittliche Bewertung: 3.4 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

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