Frage von Kutsche87, 30

wie kann in Microsoft Access ein Array erstellt werden?

Halllo,

ich habe in Microsoft Access einen Bericht bei dem in einem Textfeld mehre Zeilen stehen. Bsp. Anzahl Sorten: 1 Format: 30 mm x 115 mm rechteckig Farben: 4/0-farbig Material: MA37180 Trägerpapierbreite: 36 mm Bahnen: 1-bahnig Textstellung: Etikettenabstand: 12 mm Kerndurchmesser: 76,6 mm Etiketten pro Rolle: 1000 Stück

Nach jedem Doppelpunkt soll ein Tab-Stop eingefügt werden bzw. die Werte voneinander getrennet werden, sodass diese einheitlich untereinander stehen.

Wie kann ich das mit Hilfe eines Array umsetzen? Ich würde das Textfeld als Bezugsquelle verwenden und später ausblenden. Daraus sollen 2 neue Textfelder befüllt werden. Im 1. Textfeld der Grundtext wie z.b. Format und im 2. Textfeld der Wert also 30 mm x 115 mm rechteckig.

Vielen Dank im Vorraus

Antwort
von Kutsche87, 30

Das hier:

Anzahl Sorten:      1
Format:      30 mmwew x 115 mm rechteckig
Farben:      4/0-farbig
Material:      MA37180
Trägerpapierbreite:     36 mm
Bahnen:      1-bahnig
Textstellung:      <nicht bekannt>
Etikettenabstand:     12 mm
Kerndurchmesser:     76,6 mm
Etiketten pro Rolle:     1000 Stück

Soll später so ungefähr aussehen:

Anzahl Sorten:                 1
Format:                            30 mmwew x 115 mm rechteckig
Farben:                            4/0-farbig
Material:                           MA37180
Trägerpapierbreite:          36 mm
Bahnen:                           1-bahnig
Textstellung:                    <nicht bekannt>
Etikettenabstand:             12 mm
Kerndurchmesser:           76,6 mm
Etiketten pro Rolle:         1000 Stück

Antwort
von maximilianus7, 12

wenn du eh 2 neue spalten ausgeben willst: wozu der tabstop?

du gehst 2-stufig vor:

zeilen = split(textfeld, vbNewLine) 

for i=0 to ubound(a)
spalten = split(zeilen(i), ":")

spalt1arr(i) = spalten(0)
spalt2arr(i) = spalten(1)
next i

spalt1 = join(spalt1arr, vbNewLine)
spalt2 = join(spalt2arr, vbNewLine)

neben vbNewLine gibt es auch vbCr und vbLf

Keine passende Antwort gefunden?

Fragen Sie die Community