Enviar Matriz a una función

[Lebennin]

Muy buenas,

estoy intentando enviar una matriz de "n" posiciones a una función directamente, pero no soy capaz. Se que podria, en vez de crear un array, crear una cadena con un separador y posteriormente utilizar Split, pero ya es mas que nada el como se hará...

Es decir, como le envio el array entero a la función y como lo recupero en esta. He probado algo asi:

Dim Body(),I
I = 2
Redim Preserve Body(I)
Body(I-1) = "Prueba"
Body(I) = "Otra prueba :D"

Resultado = Mail(Body(),I)

Funtion Mail (Cuerpo(),Indice)
....
End Function

El error que da es :

Error de Microsoft VBScript en tiempo de ejecución error '800a0009'

El subíndice está fuera del intervalo: 'Body'

Pero claro, no quiero enviarle ninguna posición en concreto, sino todas. ¿Es posible?

Salu2

[Myakire]

como le envio el array entero a la función y como lo recupero en esta

La neta, no entiendo tu problema

Código:

<%
Sub ListaArreglo(Vector)
  For i=0 to Ubound(Vector)
	    Response.Write Vector(i) & "  "
	Next
End Sub

Dim Arreglo()
Redim Preserve Arreglo(0)
Arreglo(0) = "Uno"
Redim Preserve Arreglo(1)
Arreglo(1) = "Dos"
ListaArreglo(Arreglo)
response.write "<br> listo"
%>

O lo que quieres es mas complicado?

Saludos

[Lebennin]

Justo Myakire.

Joder que subnor.... soy, he probado todo el rato con los putos parentesis pensando que al ser la variable un array realmente no podria enviarla sin estos.

Muchas gracias y perdona haberte hecho perder el tiempo.

Un saludo.

[Myakire]

ups!, no pues para nada, my friend, este foro es para eso y para relajarse de las tensiones de la chamba

No ocupabas los paréntesis por que básicamente en vbs todo es tipo variant y mediante casting implícitos se determinan los tipos, si, es una pega en el rendimiento pero así funciona esto.