Thema Datum  Von Nutzer Rating
Antwort
08.07.2009 21:51:47 Grupp
NotSolved
Blau Aw:String linksbündig
 10.07.2009 10:41:49 Holger
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
10.07.2009 10:41:49		 Views:
1046		 Rating:
     
Antwort:
  Ja
Thema:
Aw:String linksbündig
Hallo Grupp
versuche
Public Function LeftFix(ByVal s As Variant, _
Optional ByVal Lg As Long = 12, _
Optional ByVal FuellZeichen As String = " ") As String
LeftFix = left(s & String(Lg, FuellZeichen), Lg)
End Function

sub ...
a=leftfix("Hund",8)
end sub

Gruß
Holger

Grupp schrieb am 08.07.2009 21:51:47:

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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
08.07.2009 21:51:47 Grupp
NotSolved
Blau Aw:String linksbündig
 10.07.2009 10:41:49 Holger
NotSolved