Biblioteca de Clases,Funciones y Sub-rutinas.

[Adler]

Trabajando con vectores. ¿Como eliminar elementos duplicados, mostrar esos elementos duplicados y contar el número de veces que está duplicado cada elemento?

Código asp:

<&#37;
Dim array_origen, contador_limpio, contador_duplicados, x, p
contador_limpio = 0
contador_duplicados = 0
array_origen = Array("oso","perro","león","gato","tigre","perro","león","gato","elefante","gato","perro") 
Dim array_limpio()
Dim array_duplicados()
Dim veces_repetidos()
 
Redim preserve array_limpio(1)
Redim preserve array_duplicados(0)
 
Dim Res
    For x = 0 to (UBound(array_origen))
 
Res = 0
        For p = 0 to UBound(array_limpio)
            Res = StrComp(array_origen(x),array_limpio(p),1)
            IF (Res = 0) then 
                Redim preserve array_duplicados(contador_duplicados)
                array_duplicados(contador_duplicados) = array_origen(x)
                contador_duplicados = contador_duplicados +1
            Exit For 'p
            END IF
        Next 'p
 
            IF (Res <> 0) then
                Redim preserve array_limpio(contador_limpio)
                array_limpio(contador_limpio) = array_origen(x)
                contador_limpio = contador_limpio +1
            END IF
 
    Next 'x
 
 
 
Dim valoresSOBREbuscar
valoresSOBREbuscar = ""    
Response.write "<b>Este es el vector</b><br />" & Join(array_origen, ", ")
valoresSOBREbuscar = Join(array_origen, ",")
 
Dim valoresAbuscar
valoresAbuscar = ""    
Response.write "<br /><br /><b>Este es el vector una vez eliminando los elemento duplicados</b><br />"  & Join(array_limpio, ", ")
valoresAbuscar = Join(array_limpio, ",")
 
Response.write "<br /><br /><b>Estos son los elemento eliminados</b><br />" & Join(array_duplicados, ", ")
 
Response.write "<br /><br /><b>Número de veces que se repite cada elemento</b><br />"
Dim n, objRegExp, strClave, Coincidencia, cadena, array_cadena, i
Function Encuentra (plbraClave)
array_cadena = Split(plbraClave,",")
For n=0 to UBound(array_cadena)
i = -1
Response.Write "El elemento " & array_cadena(n)
Set objRegExp = new RegExp
With objRegExp
    .Pattern = "\b("&array_cadena(n)&")+\b"
    .IgnoreCase = True
    .Global = True
End With
Set strClave = objRegExp.Execute(valoresSOBREbuscar)
For Each Coincidencia in strClave
i = i +1
Next
Response.Write " se repite : " & i & " veces<br />"
Set strClave = nothing
Set objRegExp = nothing
Next 'n
End Function
 
Response.Write Encuentra(valoresAbuscar)
%>
 

Suerte