This is an old revision of the document!
Das Gegenteil von Trim. lPad und rPad erweitern Strings auf eine bestimmte Länge. Diese Version schneidet zu lange Strings auch ab.
Für die Ausgabe der Resultate verwendete ich die Funktion [VBA] print_r().
d lpad("ab", 4) <String> 'ab ' d lpad("Zürich", 4) <String> 'Züri' d rpad("Bern", 6, "_") <String> '__Bern' d rpad(123, 6, 0) <String> '000123'
Attribute VB_Name = "udf_pad" '------------------------------------------------------------------------------- 'File : udf_udf_pad.bas ' Copyright mpl by ERB software ' All rights reserved ' http://http://wiki.yaslaw.info/dokuwiki/doku.php/vba/functions/pad 'Environment : VBA 2007 + 'Version : 1.0.0 'Name : lPad, rPad 'Author : Stefan Erb (ERS) 'History : 01.10.2014 - ERS - Creation '------------------------------------------------------------------------------- Option Explicit '/** ' * Gibt den String iString zurück. Dieser wurde nach links mit dem String iPadString auf eine Länge von iLen Zeichen aufgefüllt. ' * Wenn iString länger als iLen ist, wird der Rückgabewert auf iLen Zeichen gekürzt. ' * @param String ' * @param Integer Neue Länge ' * @param String Zeichen mit dem verlängert wird ' * @return Erweiterter oder gekürzter String ' */ Public Function lPad( _ ByVal iString As String, _ ByVal iLen As Integer, _ Optional ByVal iPadString As String = " " _ ) As String lPad = Left(iString, iLen) lPad = lPad & String(iLen - Len(lPad), iPadString) End Function '/** ' * Gibt den String iString zurück. Dieser wurde nach rechts mit dem String iPadString auf eine Länge von iLen Zeichen aufgefüllt. ' * Wenn iString länger als iLen ist, wird der Rückgabewert auf iLen Zeichen gekürzt. ' * @param String ' * @param Integer Neue Länge ' * @param String Zeichen mit dem verlängert wird ' * @return Erweiterter oder gekürzter String ' */ Public Function rPad( _ ByVal iString As String, _ ByVal iLen As Integer, _ Optional ByVal iPadString As String = " " _ ) As String rPad = Right(iString, iLen) rPad = String(iLen - Len(rPad), iPadString) & rPad End Function