VB(A) - zum Array hinzufügen

Sam85 · 14. Juni 2021, 11:42

Hi,

ich stehe gerade etwas auf dem Schlauch, hatte jetzt schon länger pausiert. Ich will einen Array in einen neuen Array schreiben und dabei Kommata und für das letzte Element ein "und" hinzufügen. (Die Syntax ist vmtl. VBA ähnlich ist aber für Crystal Reports, daher die Deklaration als number statt integer).
Wie mache ich, dass dem neuen Array die Element hinzugefügt werden, ohne das bestehende Werte überschrieben werden?

Freue mich auf eine Rückmeldung. Dankeschön.

Visual Basic-Quellcode

dim x() as string
dim y() as string
dim i as number
x = {?Zusätze}
for i = 1 to count(x)
select case i
case count(x)
y = array(" und " & {?Zusätze}(i))
redim preserve y(i+1)
case else
y = array({?Zusätze}(i) & ", ")
redim preserve y(i+1)
end select
'redim preserve y(i)
next i
formula = join(y)

Sam85 · 14. Juni 2021, 14:58

Ok ich hab es so gelöst.

Visual Basic-Quellcode

dim x() as string
dim y() as string
dim i as number
x = {?Zusätze}
if count(x) = 1 then
y = x
else
for i = 1 to count(x)
redim preserve y(i)
select case i
case count(x)
y(i) = x(i)
case count(x) - 1
y(i) = x(i) & " und "
case else
y(i) = x(i) & ", "
end select
next i
end if
if join(y) = "ohne Zusätze" then formula = "" else formula = "mit " & join(y)

VB(A) - zum Array hinzufügen

VB(A) - zum Array hinzufügen

Visual Basic-Quellcode

Visual Basic-Quellcode

Ähnliche Themen

1 Benutzer hat hier geschrieben