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