Tipp 8.7 - Alphanumerisches Zeichen prüfen

Wie kann ich das Vorkommen eines nicht numerischen Zeichens in einem String prüfen?

Mit dieser Funktion können Sie das Vorkommen eines nicht numerischen Zeichens in einem String prüfen. Kopieren Sie einfach nachfolgenden Quellcode in die Zwischenablage und fügen Sie anschließend den Inhalt der Zwischenablage in ein neues Modul ein. Die Aufrufparameter finden Sie im Quellcode beschrieben.

Beispiel:

Option Explicit
 
Public Function ContainsAlpha(sStrValue As String, _
                              Optional sIgnore _
                              As String = "-") _
                              As Boolean
  '// -----------------------------------------------------
  '// Methode:   | Prüft auf das Vorkommen eines nicht
  '//            | nummerischen Zeichens
  '// -----------------------------------------------------
  '// Parameter: | sStrValue - Prüfstring
  '//            | sIgnore - zu ignorierendes Zeichen
  '// -----------------------------------------------------
  '// Rückgabe:  | True, wenn dies zutrifft
  '// -----------------------------------------------------
  '// Autor:     | Stefan Kulpa
  '//            | EDV Innovation & Consulting - Dormagen
  '// -----------------------------------------------------
  Dim lcounter    As Long
  Dim sChar       As String * 1
  Dim bResult     As Boolean
 
  On Error GoTo Err_ContainsAlpha
  bResult = False
  ContainsAlpha = bResult
  If Len(sStrValue) = 0 Then Exit Function
  For lcounter = 1 To Len(sStrValue)
    sChar = Mid$(sStrValue, lcounter, 1)
    If sChar >= "0" And sChar <= "9" Then
      '** continue
    Else
      If sChar <> sIgnore Then
        bResult = True
        Exit For
      End If
    End If
  Next lcounter
  ContainsAlpha = bResult
 
Err_ContainsAlpha:
  Exit Function
 
End Function


Zurück Tipp 8.6 - Alphanumerisches Zeichen entfernen | Inhalt | Tipp 8.8 - Zeichen ermitteln Weiter