valor duplicado em array

[xanburzum 169]

Indica se um array tem pelo menos um valor duplicado. Dupli

retorna True se existir mais de um valor corresponde exatamente igual.

Dupli retorna false se o array não contém nenhuma correspondência

valores.

 

sintaxe:

boolean = Dupli(arrayinput)

 

exemplo:

 

<%
 ' Dupli returns True 
 ' ( 1 is duplicated )
response.write Dupli( Array( 1,2,3,4,5,6,7,8,9,0,1 ) )

 ' Dupli returns False 
 ' (All items in the array are unique)
response.write Dupli( Array( 1,2,3,4,5,6,7,8,9,10,11 ) )
%>

code:

 

<%
Private Function Dupli(byVal arrayinput)
	dim wkarray, j, i, l
	wkarray = arrayinput
	for j = 0 to ubound( wkarray )
		l = 0
		for i = 0 to ubound( wkarray )
			if wkarray(i) = wkarray(j) then l = l + 1
			if l > 1 then
				Dupli = True
				Exit function
			end if
		next
	next
	Dupli = False
End Function
%>

[WoodsPhreaker 0]

Olá xanburzum.

 

Testei aqui a função Dupli, que verifica se existe em um array, valores duplicados. Mas percebi que a função na funciona com variáveis.

 

Exemplo:

 

Teste = "1,2,3,4,5,5"

 

response.write Dupli( Array( teste ) )

 

Ele retorna sempre como false, mesmo tendo 2 valores iguais.

 

Será que estou fazendo algo errado, ou a função é assim mesmo ?

 

Valeu pela ajuda !!!! :)