Hallo liebe Programierfreunde,
kann mir jemand das Pendat zu der Funktion RightFix sagen. Die Funktion macht genau was ich will. Ich gebe acht Leerzeichen vor und dann richtet er mir den Text rechtsbündig aus. Jetzt benötige ich das gleiche linksbündig. Ich habe versucht right irgendwie mit Left zu ersetzen, aber das funktioniert nicht. Wäre toll, wenn mir jemand die entsprechende, kompakte Form der Function angeben kann. Optional hätte ich noch den Wunsch, dass ich eine Dezimalzahl an dem Punkt ausrichten kann. Also bei übereinanderstehenden Zahlen in mehreren Zeilen soll die Punkte übereinander stehen, z.B;
1.102
90.2
0.23 etc.
Besten Dank für eure Hilfe
Jürgen
Public Function RightFix(ByVal s As Variant, _
Optional ByVal Lg As Long = 12, _
Optional ByVal FuellZeichen As String = " ") As String
RightFix = Right(String(Lg, FuellZeichen) & s, Lg)
End Function
Sub print_right()
Open "C:\Dokumente und Einstellungen\Jürgen\Desktop\print.txt" For Output As #1
Print #1, RightFix("Hund", 8)
Close #1
End Sub
|