Tipp 8.4 - Zeichen nach Links auffüllen

Wie kann ich in einen String von Links mit einem Zeichen auffüllen?

Mit dieser Funktion können Sie in einen String von Links mit einem Zeichen auffüllen. Kopieren Sie einfach nachfolgenden Quellcode in die Zwischenablage und fügen Sie anschließend den Inhalt der Zwischenablage in ein neues Modul ein. Die Aufrufparameter finden Sie im Quellcode beschrieben.

Beispiel:

Option Explicit
 
Public Function LeftFillUp(sStrValue As String, _
                           ByVal sChar As String, _
                           lMaxLength As Long) As String
  '// -----------------------------------------------------
  '// Methode:   | Füllt einen String von links mit einem
  '//            | Zeichen auf.
  '// -----------------------------------------------------
  '// Parameter: | sStrValue - bestehender Wert
  '//            | sChar - Füllzeichen
  '//            | lMaxLength - Maximallänge des Strings
  '// -----------------------------------------------------
  '// Rückgabe:  | geänderter Stringwert
  '// -----------------------------------------------------
  '// Autor:     | Stefan Kulpa
  '//            | EDV Innovation & Consulting - Dormagen
  '// -----------------------------------------------------
  '// Beispiel:  |?LeftFillUp("30,00 DM", "-", 15)
  '//            | ergibt -------30,00 DM
  '// -----------------------------------------------------
  On Error GoTo Err_LeftFillUp
  If Len(sChar) = 0 Then sChar = " "
  If lMaxLength < 1 Then
    LeftFillUp = ""
  Else: LeftFillUp = Right$(String$(lMaxLength, _
      Left$(sChar, 1)) & _
      sStrValue, lMaxLength)
  End If
 
Err_LeftFillUp:
  Exit Function
 
End Function


Zurück Tipp 8.3 - Zeichen nach Rechts auffüllen | Inhalt | Tipp 8.5 - & Zeichen verdoppeln Weiter