Visual Basic Forum

Rexxx81 · Newbie Anmeldedatum: 29.10.2011 Beiträge: 4

Hallo,
ich bräuchte mal Hilfe bei folgendem Problem. Versuche jetzt seid Tage es selbst zu lösen aber muss jetzt das Handtuch werfen. Ich hoffe sehr das sich jemand damit auskennt:

Also ich möchte Daten aus einer Datenbank formatieren und ausdrucken. Funktioniert auch alles super nur mit der Formatierung des Strings für den Druck habe ich ein Problem. Manche meiner Werte haben eine unterschiedliche Stringlänge und mir gelingt es nicht sie sauber unter einander zu formatieren. Ich habe schon versucht die Längenunterschiede mit einem Leerzeichen auszufüllen, aber das hat leider nicht funktioniert:

hier der verwendete code:

value = Space(156)

Mid$(value, 7, 5) = Format$(i_id + 1, "00")

laenge_wert = 0
i_wert = 0
wertstring = ""

laenge_wert = Len(Str(rsSearch.Fields("INV_NR")))
laenge_wert = 9 - laenge_wert

wertstring = wertstring & String$(laenge_wert, ".")

Mid$(value, 14, 9) = Format$(rsSearch.Fields("INV_NR"), "!&&&&&&&&") & wertstring

Mid$(value, 26, 12) = LTrim(Format$(rsSearch.Fields("ANK_Dat"), "!@@@@@@@@@"))

Ich bedanke mich schon mal im Voraus für eure Hilfe...

Mfg[i]

christopher.g · Überflieger Anmeldedatum: 03.05.2008 Beiträge: 565

ich habe mir deinen code jetzt nicht zeile für zeile durchgesehen

aber beim lesen deiner beschreibeung hab ich mich gefragt warum du nicht einfach nur vbTab verwendest?!

Variable = "30" & vbTab & "was weis ich"

ja da brauchst du nicht mehr mit leerzeichen arbeiten

kommt aber vor dass du in einer zeile die ein bisschen kürze ist
ein paar leerzeichen anhängen musst und dann vbtab verwenden
lg

Rexxx81 · Newbie Anmeldedatum: 29.10.2011 Beiträge: 4

Danke erstmal für deine Antwort...

Das Problem ist nicht die anordnung untereinander oder die Leerzeichen. Das Problem ist das es mit so vorkommt als ob er eine unterschiedliche Zeichenbreit benutzt... Ein " " stellt er nicht so breit da wie ein "_"... Ganz komisch... Vielleicht hattest du sowas in der Richtung schon mal?

Rexxx81 · Newbie Anmeldedatum: 29.10.2011 Beiträge: 4

Also habs jetzt soweit das wenn ich die zwischenräume mit "_" auffülle die Abstände passen, aber wenn ich mit dem gleichen code die leerzeichen mit " " füllen möchte, ich wieder meinen Versatz drin habe... Sad

Hilfe!!!!!!!

christopher.g · Überflieger Anmeldedatum: 03.05.2008 Beiträge: 565

hast es jetzt mit vbtab probiert oder nicht?

Rexxx81 · Newbie Anmeldedatum: 29.10.2011 Beiträge: 4

Ne hab aber mein Problem gefunden... Lag an der Schriftart... Courier heißt mittlerweile Courier New Smile

Danke dir trotzdem für deinen Tip