OpenOffice.info

sub ArrayTest
dim x(2,2)
x(0,0) = "a"
x(0,1) = "b"
x(0,2) = "c"
x(1,0) = "aa"
x(1,1) = "bb"
x(1,2) = "cc"
x(2,0) = "aaa"
x(2,1) = "bbb"
x(2,2) = "ccc"

redim preserve x(1 to 1,1 to 2)

print x(ubound(x,1),lbound(x,2))
print x(ubound(x,1),ubound(x,2))
print x(ubound(x,1),0) 'Fehler - kein Index, hier waere "aa" gespeichert gewesen

end sub

Hallo zusammen,

weiß jemand, ob es einen Befehl gibt, der in einem Array eine Dimension entfernt? Ist nicht wirklich wichtig, da man ja per lbound und ubound das Array auf Werte abklappern kann, aber es wäre schön, wenn man eine Dimension und ihre Childs separat in einer neuen Variable speichern könnte.

Per "redim preserve" kann man das Array ja auf die gewünschte Größe schrumpfen, aber die evtl. unnützen Dimensionen bleiben dabei natürlich noch erhalten.

[code]
sub ArrayTest
dim x(2,2)
x(0,0) = "a"
x(0,1) = "b"
x(0,2) = "c"
x(1,0) = "aa"
x(1,1) = "bb"
x(1,2) = "cc"
x(2,0) = "aaa"
x(2,1) = "bbb"
x(2,2) = "ccc"

redim preserve x(1 to 1,1 to 2)

print x(ubound(x,1),lbound(x,2))
print x(ubound(x,1),ubound(x,2))
print x(ubound(x,1),0) 'Fehler - kein Index, hier waere "aa" gespeichert gewesen

end sub[/code]