contenuto Array

[albis]

dovresti fare una cosa del genere

dim ArrayDoppie(10)
dim arrayPulite()
dim strEsistenti
dim ContaTrova
ContaTrova = 0
strEsistenti = "|"

ArrayDoppie(0) = 1
ArrayDoppie(1) = 3
ArrayDoppie(2) = 1
ArrayDoppie(3) = 4
ArrayDoppie(4) = 6
ArrayDoppie(5) = 9
ArrayDoppie(6) = 4
ArrayDoppie(7) = 3
ArrayDoppie(8) = 77
ArrayDoppie(9) = 44
ArrayDoppie(10) = 2

for i = 0 to UBound (ArrayDoppie)
	
	if InStr(1,strEsistenti, "|" & ArrayDoppie(i) & "|") = 0 then
		Redim preserve arrayPulite(ContaTrova)
		arrayPulite(ContaTrova) = ArrayDoppie(i)
		strEsistenti = strEsistenti & ArrayDoppie(i) & "|"
		ContaTrova = ContaTrova +1
	end if

next

for i = 0 to UBound (arrayPulite)
	
	Response.Write arrayPulite(i) & "|
"
	
next