Yaslaw.Info

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.

<const>
    version=1.1.1
    vdate=11.07.2018
    fname=udf_trims.bas
    ns=%NAMESPACE%
    fpath=/vba/functions
</const>
====== [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 =====
<code vb>Public Function trims( _
        ByVal iString As String, _
        Optional ByVal iDirection As trDirection = trBoth _
) As String</code>

===== Beispiele =====
> Für die Ausgabe der Resultate verwendete ich die Funktion [[vba:functions:print_r:index]]

<code vb>'Ein normaler VBA.trim() entfernt nur Leerzeichen
print_r trim("  Der Hund " & vbtab & vbcrlf & "   ")
<String> '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 & "   ")
<String> 'Der Hund'

'Oder nur links trimmen
print_r trims("  Der Hund " & vbtab & vbcrlf & "   ", trLeft)
<String> 'Der Hund \t\r\n   '

'und nur rechts
print_r trims("  Der Hund " & vbtab & vbcrlf & "   ", trRight)
<String> '  Der Hund'</code>


===== Code =====
<source '%%fpath%%/%%fname%%' vb>

Yaslaw.Info

User Tools

Site Tools

Page Tools