Office: String bzw. Variable mit Leerzeichen auffüllen: VB

michaelkalo · 5. Februar 2003

Guten Morgen Access Gemeinde,

ich möchte String-Variablen eine bestimmte Länge geben, unzwar immer in Abhängigkeit von den Eingaben im Formular.

Die Variablen müssen eine bestimmte Länge haben, damit sie später bei der Druckausgabe richtig dargestellt werden.

Dabei handelt es sich teilweise um Variablen, die nur Leerzeichen enthalten sollen.

Code:

'Ein kleines Beispiel zum Verständnis:

'String1 enthält 9 Zeichen, soll aber 14 Zeichen lang sein - muß mit 5 Leerzeichen aufgefüllt werden.
'String2 enthält nur Leerzeichen, unzwar (zB) 25 Leerzeichen.
'String3 enthält 5 Zeichen und soll mit 7 Zeichen lang sein - muß mit 2 Leerzeichen aufgefüllt werden.

Dim String1 as string
Dim String2 as string
Dim String3 as string

Dim intLängeString1 as integer
Dim intLängeString2 as integer
Dim intLängeString3 as integer

String1 = "123456789"
String2 = " "
String3 = "12345"

'Die verschiedenen Längen werden im Formular eingegeben, sind somit in
'echt variabel...
intLängeString1 = 14
intLängeString2 = 25
intLängeString3 = 7
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Meine Frage:

Wie formatiere bzw. gebe einem Feld die gewünschte Länge ?

Vielen Dank für eure Anregungen.

Michael.

:)

ThomasP · 6. Februar 2003

Dim Variable as String * 10

bedeutet auf 10 Zeichen Länge definieren

ThomasP

MarioR · 6. Februar 2003

Hallo Michael,

schau Dir mal die Funktionen Str bzw. Space in der Hilfe an.

strausto · 6. Februar 2003

Code:

Public Function auffuellen(strText As String, lngLaenge As Long)

Dim i As Integer
Dim lngLen As Long

lngLen = Len(strText)
For i = 1 To (lngLaenge - lngLen)
strText = strText & Chr(32)
Next i
Debug.Print strText

end Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

michaelkalo · 6. Februar 2003

Hallo Leute,

danke für eure Antworten.
ich probiere erstmal die Space-Funktion aus - kannte ich noch gar nicht.

*************************

Zu diesem Punkt:

Dim String1 as string * 10
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Anstatt der "10" kann man leider keine Variable einsetzen, habs probiert.

***********************

Die Sache mit der For...Next Schleife wäre gut wenn der Druck nur 1 Zeile wäre, aber es sind mehrere Tausend Zeilen die gedruckt werden sollen und immer wenn ich einen Wert zum drucken aus der Tabelle hole, müßte ich die Schleife laufen lassen.

***********************

Danke.

Michael.

Sascha Trowitzsch · 6. Februar 2003

Das mit der Schleife stiimmt; es ist performancemäßig nicht optimal.
Es geht auch so:

Code:

Public Function Auffuellen(strText As String, lngLaenge As Long) As String
Auffuellen = String$(lngLaenge, 32)
Mid$(Auffuellen, 1) = strText
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ciao, Sascha

strausto · 6. Februar 2003

Code:

Dim String1 as string * 10
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

dimensioniert lediglich ein String der Länge 10. Füllt aber keine Leerzeichen auf!

strausto · 6. Februar 2003

Hi Sascha!

Deine Antwort in Ehren, aber wir anfänglich sprachen wir über:

Dabei handelt es sich teilweise(!) um Variablen, die nur Leerzeichen enthalten sollen.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Später erst von:

...aber es sind mehrere Tausend Zeilen
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dennoch ist Deine Lösung zu favorisieren.

michaelkalo · 7. Februar 2003

Hallo,

das Teil ist noch nicht gelöst, ich weiß wo der Fehler liegt, kann es aber nicht lösen: Ich will Daten aus einer Tabelle holen und drucken, die Felder müssen aber bei der Ausgabe eine feste Länge haben, die vom Benutzer bestimmt worden ist.

Das funktioniert:

Code:

Dim String1 as string * 10
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das ist genau das, was ich brauche....
Der Ausdruck erwartet aber eine Konstante.

Das funktioniert nicht:

Code:

Dim Länge integer

Länge = 10

Dim String1 as string * Länge
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Fehlermeldung: Erwartet Konstante...

...das wäre aber genau die Sache, die ich brauche.
Eine unveränderliche, feste Dimensionierung zum Zeitpunkt der Ausgabe,
dimensioniert durch eine Variable. (in diesem Fall Länge)

1.) For...Next Schleifen hauen nicht hin.

2.) Eine feste Dimensionierung durch Space$ oder String$ kommt nicht Frage, da bei erneuter Übergabe der Tabellendaten der String wieder aufgefüllt werden müßte. Das hieße For...Next Schleife.

Wer kennt einen Trick ? *confused.gif*

Grüße

michael.

Nouba · 7. Februar 2003

Hallo Michael,

folgendes Schema könntest Du verwenden

Dim Laenge As Integer
Dim String1() As String

Laenge = 10
ReDim String1(Laenge - 1)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

siehe auch OL-Hilfe zu ReDim

Aquarii · 7. Februar 2003

\@ Norbert

Deine Lösung stellt doch auf ein Array mit variabler Feldanzahl ab, oder?
Ich verstehe den Zusammenhang nicht zu der Problematik einen fixen String von variabler Länge zu erhalen.

Bitte sage mir, daß du Dich geirrt hast und meine Welt ist wieder in Ordnung *wink.gif* *wink.gif*

Nouba · 7. Februar 2003

\@ Heiko,

*frown.gif* Entschuldigung, da hat mich wohl der Teufel geritten. Das war absoluter Quatsch. Ich hatte den letzten Beitrag als Beginn eines neuen Threads angesehen.

MarioR · 7. Februar 2003

Hmmm, ich weiß nicht, warum das nicht gehen soll *confused.gif*

Code:

strAngepasst1 = String1 & Space(intLängeString1 - Len(String1))
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Oder ich hab das Problem nicht verstanden. *tongue.gif*

Schönes WE
*bye

User · 3. November 2011

Hallo,

ich weiß der Thread ist aus der Steinzeit *wink.gif*, das Thema aber sicherlich immer wieder aktuell!
zu Strausto's Ausführung in #7:

von strausto

Code:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dim String1 as string * 10
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

dimensioniert lediglich ein String der Länge 10. Füllt aber keine Leerzeichen auf!

ist folgendes zu berichtigen:
Der String wird sehr wohl aufgefüllt, jedoch nicht mit Leerzeichen sondern mit vbNullChar!
Leerzeichen heißt für mich allgemein "space" (Asc(32), Hex(20))!
Auf vielen Seiten ist zu lesen, das mit Leerzeichen aufgefüllt wird was ich aus eigener (leidlicher) Erfahrung hiermit wiederlege:
Code:

Public Function TestStrfixedLen_Fill()
Dim myField1 As String * 10
Dim myField2 As String * 30
Dim i As Integer, myStrDec As String
Dim myString As String
Debug.Print Len(myField1) & " "; Len(myField2)
myString = myField1 & "|" & myField2
For i = 1 To Len(myString)
myStrDec = myStrDec & Asc(Mid(myString, i, 1))
Next
Debug.Print myStrDec
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Damit anderen die Stunden mühevoller Suche erspart bleiben*wink.gif*

Gruß

LL

Office: String bzw. Variable mit Leerzeichen auffüllen: VB

String bzw. Variable mit Leerzeichen auffüllen: VB

String bzw. Variable mit Leerzeichen auffüllen: VB

String bzw. Variable mit Leerzeichen auffüllen: VB

String bzw. Variable mit Leerzeichen auffüllen: VB

String bzw. Variable mit Leerzeichen auffüllen: VB

String bzw. Variable mit Leerzeichen auffüllen: VB - Similar Threads - String Variable Leerzeichen

Teile aus einem qrcode string auslesen

VBA Auslesen von Strings und erstellen neuer Zeilen in einer Tabelle

String Variable korrekt einsetzen in Formel über VBA

Suche nach String, der in Variable gespeichert ist.

Letzten 2 Zeichen eines Strings in Variable kopieren

Vergleich von String-Variablen

string in variable umwandeln, oder variable zusammensetzen