Tipp 8.3 - Zeichen nach Rechts auffüllen

Wie kann ich in einen String nach Rechts mit einem Zeichen auffüllen?

Mit dieser Funktion können Sie in einen String nach Rechts 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 RightFillUp(sStrValue As String, _
                            sChar As String, _
                            lMaxLength As Long) As String
  '// -----------------------------------------------------
  '// Methode:   | Füllt einen String nach rechts 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:  | ?RightFillUp("30,00 DM", "*", 15)
  '//            | Ergibt 30,00 DM*******
  '// -----------------------------------------------------
  On Error GoTo Err_RightFillUp
  If Len(sChar) = 0 Then sChar = " "
  If lMaxLength < 1 Then
    RightFillUp = ""
  Else: RightFillUp = Left$(sStrValue & _
      String$(lMaxLength, Left$(sChar, 1)), lMaxLength)
  End If
 
Err_RightFillUp:
  Exit Function
 
End Function


Zurück Tipp 8.2 - Zeichen entfernen | Inhalt | Tipp 8.4 - Zeichen nach Links auffüllen Weiter