Identificar numeros repetidos.

[Cuezaltzin]

Hola a todos.

Con el siguiente código, lo que estoy haciendo es mostrar el rango de números que hay antes de cada ","
Intentando verificar si existen números repetidos, pero no me sale como hacerlo. Ejemplo:

1 - 5 : 1 2 3 4 5.
6 - 10 : 6 7 8 9 10.
3 - 8 : 3 4 5 6 7 8.

Donde Existen el 3 4 y 5 repetidos como puedo hacerle para detectar los que están repetidos.

<%

Comas ="1-5,6-10,3-8"

Comas = split(Comas, ",")

For i = 0 to ubound(Comas)

Guion = Comas(i)
Guion = split(Guion, "-")

Response.Write "<br>"

For j = cInt(Guion(0)) to cInt(Guion(1))

Response.Write j & "&nbsp;&nbsp;"

Next

Next

%>

Espero haberme explicado lo suficiente, y gracias por su ayuda.

[Cuezaltzin]

Bueno como puedo comparar en una cadena si esciben numero repetidos, algo asi:

Cadena = (1,2,3,4,5,2,8,9,10,5)

Los que se repiten son el 2 y el 5.

[u_goldman]

Ve si esto te sirve:

http://www.forosdelweb.com/f15/obtener-array-dos-nuevos-arrays-array-bidimensional-347416/

Salu2,