funzione che restituisca un array, si può?

[Manzo]

Mi sono fatto una funzioncina che mi restituisce larghezza e altezza di una immagine se tali valori sono superiori ad un massimo dato:

function imgridim(larghezzamax, altezzamax, larghezza, altezza)
...
dimensioni_new(1)=larghezza_new
dimensioni_new(0)=altezza_new

imgridim= dimensioni_new(0)
end function




richiamo la funzione:

pluto=imgridim(4,5,10,10)
response.write pluto

e mi restituisce 1 dato solo (4 in questo caso).

Come faccio a fargli restituire entrambi i valori
dimensioni_new(0) e dimensioni_new(1)?

Ho pensato anche di fare così nella funzione:
imgridim=dimensioni_new(0)&"|"&dimensioni_new(1)
e poi fare uno split su | ma non mi piace e soprattutto vorrei capire se si riesce a restituire un vettore in una funzione.

Grazie,
Cesare

[Manzo]

Ho risolto così, anche se non mi piace!

function imgridim(larghezzamax, altezzamax, larghezza, altezza)
...
dimensioni_new(1)=larghezza_new
dimensioni_new(0)=altezza_new

imgridim=dimensioni_new(0)&"&"&dimensioni_new(1)
end function

e ho richiamato così

pluto=split(imgridim(4,5,10,10),"&")
response.write pluto(0)&"
"&pluto(1)

se qualcuno dovesse chiarirmi il problema....

grazie,
ciao!

[FaustoWeb]

Dim Dimensioni(3)

'passa l'array come Byref e fai restituire dalla funzione
'un altro valore che ti può essere utile tipo (Errori)

function imgridim(Dimensioni)
Dimensioni(0) = altezza_new
Dimensioni(1) = larghezza_new
............

imgridim= Ok oppure Errore o quello che ti pare

End Function

Ciao

[Roby_72]

Con le Sub (non so con le funzioni) puoi passare un parametro indietro (array o meno) mediante la dichiarazione byRef.

Roby

[deleted_c]

function imgridim(larghezzamax, altezzamax, larghezza, altezza)
...
dimensioni_new(1)=larghezza_new
dimensioni_new(0)=altezza_new

imgridim= dimensioni_new
end function




richiamo la funzione:

pluto=imgridim(4,5,10,10)
response.write pluto(0) & " " & pluto(1)

[Manzo]

Grazie!

Cesare