VB-Tec.de Visual Basic - Technik, FAQ, Tricks, Beispiele

Die Trim-Funktion schneidet von einem gegebenen String vorne und hinten alle Leerzeichen weg. Oft wird diese Möglichkeit auch für WhiteSpace-Zeichen benötigt (d.h. nicht-druckbare Zeichen, wie z.B. vbNullChar, vbCr, vbLf, vbBack, ...), um beispielsweise Rückgabewerte von Datenbankzugriffen oder API-Routinen zu normieren.

Die folgende Funktion macht genau dies auf effiziente Weise:

Function TrimWS(ByRef Text As String) As String
  'Deklarationen:
  Dim iStart As Long
  Dim iEnde As Long
  
  'Start suchen:
  For iStart = 1 To Len(Text)
    If Asc(Mid$(Text, iStart, 1)) > vbKeySpace _
    Then Exit For
  Next iStart
  
  'Ende suchen:
  For iEnde = Len(Text) To iStart + 1 Step -1
    If Asc(Mid$(Text, iEnde, 1)) > vbKeySpace _
    Then Exit For
  Next iEnde
  
  'Fertig:
  TrimWS = Mid$(Text, iStart, iEnde - iStart + 1)
End Function