Array bidimensionale con split

[pegaso22]

Ciao a tutti,
non riesco a fare un array bidimensionale con split.

Praticamente per unica dimensione faccio:

Dim comandequantita
comandequantita=split(rscomande("portatequantita"),"-")

così mi genera un array ad un unica dimensione.

se invece provo a farlo bidimensionale mi da errore:

Dim comandequantita
comandequantita=(0,split(rscomande("portatequantita"),"-"))

Come posso risolvere?
Fatemi sapere.

Grazie mille.

[optime]

da quale stringa parti?

[pegaso22]

Farò un ciclo recuperando le stringhe da db.

Es.
stringa1: "1-3-5-22-154"
stringa2: "28-33-55-122-133-154-199"

Vorrei:

array(0,0) = 1
array(0,1) = 3
array(0,2) = 5
array(0,3) = 22
array(0,4) = 154
array(1,0) = 28
array(1,1) = 33
array(1,2) = 55
array(1,3) = 122
array(1,4) = 133
array(1,5) = 154
array(1,6) = 199

[optime]

mmmm non credo ci sia nulla di diretto

1. splitti la prima nell'array A (monodim)
2. splitti la seconda nell'array B (monodim)
3. crei un array C (multidim)
4. scorri A e B e riempi C

[pegaso22]

Ok... ci proviamo.

Grazie mille

[pegaso22]

Un ultima cosa..

io non so a priori quante stringhe devo splittare.. di conseguenza devo creare N array, come faccio?

[optime]

1. fai un primo giro per vedere quante stringhe hai, supponiamo N
2. crei un array Z (multidim) ArrayZ(N,0)
3. fai un secondo giro
4. leggi la stringa X
5. la splitti nell'array Y (monodim)
6. incrementi un contatore I
7. conti quanti elementi hai > es: M=UBOUND(ArrayY) )
8. ridimensioni l'arrayZ > ReDim Preserve ArrayZ(N,M)
8. scorri l'array Y con indice J e riempi l'array Z > ArrayZ(I,J)=ArrayY(J)
9. riprendi da 4 (riciclando l'array Y) fino alla fine delle stringhe

sono andato a orecchio, potrebbero esserci degli errori

[pegaso22]

Perfetto.. provo

[pegaso22]

Subito un intoppo.

Dim comandeidA(Cint(totcomande),0)

totcomande è il numero di record presenti in db che sarebbe il numero di stringhe.

mi da questo errore:

Expected integer constant

Dim comandeidA(Cint(totcomande),0)

[optime]

passa per una variabile di comdo