Visual Basic Forum

Remo · Newbie Anmeldedatum: 15.09.2003 Beiträge: 7

Hallo zusammen!

Ich benötige Einträge von jeweils 6 Zeichen. Es kann jedoch vorkommen dass die Eingabe keine 6 Zeichen enthält, so dass der Rest noch mit Leerzeichen aufgefüllt werden muss.
Wie kann ich dies verwirklichen?

Mit bestem Dank im Voraus

Remo Notter

Bandyt · Tutorial Leser Anmeldedatum: 16.05.2002 Beiträge: 38

Ich glaube dir Funktion heißt String(Anzahl,Zeichen) oder so ähnlich. Schau dich mal um!
Tmp=6-Len(Zeichenkette)
Tmp=tmp & string(tmp," ")

müsste das gehen

S3th · Newbie Anmeldedatum: 04.02.2004 Beiträge: 4

jap, wenn du den String x hast der 6 zeichen haben muss,
kannst du ihn so modifizieren:

x = x & String((6-Len(x))," ")

S3th

Anonymous · Gast

Die VBA-Funktion Space() könnte interessant sein.
Referenz auf VBA zum Projekt hinzufügen und z.B. folgende Funktion aufrufen:



Private Function MakeItFit(GivenString As String, Optional NewLength As Long = 6, Optional FillFromLeft As Boolean = False) As String


  Dim lngLen As Long





  lngLen = Strings.Len(GivenString)


  If lngLen = NewLength Then


    ' passt schon


    MakeItFit = GivenString


  ElseIf lngLen > NewLength Then


    ' zu lang


    MakeItFit = Strings.Left(GivenString, NewLength)


  Else


    'zu kurz


    If FillFromLeft = True Then


      MakeItFit = Strings.Space(NewLength - lngLen) & GivenString


    Else


      MakeItFit = GivenString & Strings.Space(NewLength - lngLen)


    End If


  End If


End Function

saga-games · Newbie Anmeldedatum: 30.03.2005 Beiträge: 8

Wieso denn nicht gleich einen Fixed-Lenght-String nehmen??

DIM Text as String *6
Meine Homepage: www.saga-games.de.ms