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

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.