Tipp 8.6 - Alphanumerisches Zeichen entfernen

Wie kann ich ein nicht numerisches Zeichen aus einem String entfernen?

Mit dieser Funktion können Sie ein nicht numerisches Zeichen aus einem String entfernen. 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 StripAlpha(sStrValue As String) As String
  '// -----------------------------------------------------
  '// Methode:   | Entfernt alle nicht numerischen Zeichen
  '// -----------------------------------------------------
  '// Parameter: | sStrValue - Prüfstring
  '// -----------------------------------------------------
  '// Rückgabe:  | Bearbeiteter Stringwert
  '// -----------------------------------------------------
  '// Autor:     | Stefan Kulpa
  '//            | EDV Innovation & Consulting - Dormagen
  '// -----------------------------------------------------
  Dim sBuffer     As String
  Dim sResult     As String
  Dim sChar       As String
  Dim lcounter    As Long
 
  On Error GoTo Err_StripAlpha
  sBuffer = Trim(sStrValue)
  If Len(sBuffer) = 0 Then Exit Function
  For lcounter = 1 To Len(sBuffer)
    sChar = Mid$(sBuffer, lcounter, 1)
    If sChar >= "0" And sChar <= "9" Then
      sResult = sResult & sChar
    End If
  Next lcounter
  StripAlpha = sResult
 
Err_StripAlpha:
  Exit Function
 
End Function


Zurück Tipp 8.5 - & Zeichen verdoppeln | Inhalt | Tipp 8.7 - Alphanumerisches Zeichen prüfen Weiter