function xy() as Array ' geht gar nicht
Unterstützt (Arrrggg...)Basic keine übergabe von Arrays!?!
Alles mögliche habe ich schon ausprobiert. Das Ergebnis ist immer das Gleiche:
Dimensionsangaben passen nicht zueinander.(Punkt -mist-)
Kann doch wohl nicht sein, das (Arrrggg...)Basic das nicht unterstützt
Code: Alles auswählen
sub createTimeline
dim countObjects as integer
countObjects = getCountObjects()
dim _objects(countLines, 7) as variant
_objects = read_bestand(countObjects)
end sub
function getCountObjects() as integer
dim tab as object
tab = getTabStr("bestand")
beg_read_x = 1
beg_read_y = 12
countLines = 0
do until false
if getCellStr(tab, beg_read_x, beg_read_y + countLines) = "" then
exit do
else
countLines = countLines + 1
end if
loop
countLines = countLines -1
getCountObjects = countLines
end function
function read_bestand(countLines as integer) as variant
msgBox(countLines)
dim tab as object
tab = getTabStr("bestand")
dim beg_read_x as integer, beg_read_y as integer, x as integer, y as integer, i as integer, ii as integer
beg_read_x = 1
beg_read_y = 12
dim _line(6)
dim ret as object
dim result(countLines, 7) as variant
'dim result as variant
for i = 0 to countLines step 1
result(i,0) = getCellStr(tab, beg_read_x, i + beg_read_y)
for ii = 1 to 6 step 1
result(i,ii) = getCellNum(tab, beg_read_x + ii, i + beg_read_y)
next ii
next i
read_bestand = result
end function