version=1.1.1
vdate=11.07.2018
fname=udf_trims.bas
ns=%NAMESPACE%
fpath=/vba/functions
====== [VBA] trims() ======
//trims() ist eine Trim-Funktion für Strings. Im Gegensatz zu trim() entfernt trims() auch %%NewLines%% und Tabulatoren. Zudem kann auch ein RTrim oder LTrim ausgeführt werden
//==Version %%version%% - %%vdate%%==
{{%%fname%%|Download %%fname%% (V-%%version%%)}}
===== Definition =====
Public Function trims( _
ByVal iString As String, _
Optional ByVal iDirection As trDirection = trBoth _
) As String
===== Beispiele =====
> Für die Ausgabe der Resultate verwendete ich die Funktion [[vba:functions:print_r:index]]
'Ein normaler VBA.trim() entfernt nur Leerzeichen
print_r trim(" Der Hund " & vbtab & vbcrlf & " ")
'Der Hund \t\r\n'
'tims() entfernt alle White-Space Characters. New Line, Tabulatoren, Leerzeichen etc. (RegExp-Pattern '\s')
print_r trims(" Der Hund " & vbtab & vbcrlf & " ")
'Der Hund'
'Oder nur links trimmen
print_r trims(" Der Hund " & vbtab & vbcrlf & " ", trLeft)
'Der Hund \t\r\n '
'und nur rechts
print_r trims(" Der Hund " & vbtab & vbcrlf & " ", trRight)
' Der Hund'
===== Code =====