Ver Mensaje Individual
  #3 (permalink)  
Antiguo 15/09/2010, 00:26
Butulia
 
Fecha de Ingreso: junio-2010
Mensajes: 68
Antigüedad: 14 años, 6 meses
Puntos: 1
Respuesta: Juntar 2 arrays

Muchas gracias por la respuesta, al final lo solucioné con algo parecido:


Código:
function array_merge(byVal firstArray, byVal secondArray)
	  
	if not isArray(firstArray) then
		firstArray = Array(firstArray)
	end if 

	if not isArray(secondArray) then
 		secondArray = Array(secondArray)
	end if

'Comprueba que ambos arrays no son nulos.
comprobar1=IsBlank(firstArray)
comprobar2=IsBlank(secondArray)

if not comprobar1 and not comprobar2 then
	
	totalSize = uBound(firstArray,2) + uBound(secondArray,2) + 1
	
	combinedArray = firstArray
	redim preserve combinedArray(uBound(firstArray,1),totalSize)
		
	for i = 0 to uBound(secondArray,2)
 		for j=0 to uBound(firstArray,1)
		'response.Write(j)
			combinedArray(j,uBound(firstArray,2) + 1 + i) = secondArray(j,i)		
		next		
	next
	

else

	if  not comprobar1 then
		combinedArray = firstArray
	elseif  not comprobar2 then
	
		combinedArray = secondArray
	else
		combinedArray=""
		resultados2=0
	end if

end if	
	array_merge = combinedArray	
end function