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 =====