| Obtener de un array Dos nuevos arrays o un array bidimensional
Pretendo obtener de un array, por ejemplo: analisisarray=("2,3,3,3,2,2,2,5,2,5,2")
Dos nuevos arrays o un array bidimensional en el
que tenga por un lado cada elemento del array (sin que se repitan)
y por otro lado el numero de veces que aparece cada elemento.
Para este ejemplo Y PARA Dos nuevos arrays seria:
Nuevoarrayuno=("2,3,5") 'ELEMENTOS
Nuevoarraydos=("6,3,2") 'NUMERO DE VECES QUE APARECE CADA ELEMENTO
El problema es que como vereis, solo detecto que APARECE CON ANTERIORIDAD el numero 2.
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%Response.expires=-1500%>
<%
Function Cuantasveces(analisisarray,posiclaprinci)
elementosarray = split(analisisarray, ",", -1 , 1)
cuentaelementosarray = UBound(Split(analisisarray, ",", -1, 1)) + 1
For i=0 to cuentaelementosarray -1
If posiclaprinci=elementosarray(i) then
apariciones=apariciones+1
End if
Next
Cuantasveces=apariciones
apariciones=0
End Function
%>
<%
SUB MostrarIMGPRODinPAQUETE(analisisarray)
elementosarray = split(analisisarray, ",", -1 , 1)
cuentaelementosarray = UBound(Split(analisisarray, ",", -1, 1)) + 1
For i=0 to cuentaelementosarray -1
If YACOMPROBADAS="" then
YACOMPROBADAS= elementosarray(i)
posiclaprinci=elementosarray(i)
else
indiceyacomprobadas = split(YACOMPROBADAS, ",")
for GGG = 0 to ubound(indiceyacomprobadas)
if instr(indiceyacomprobadas(GGG), elementosarray(i))> 0 And Len(indiceyacomprobadas(GGG))=Len(elementosarray(i )) then
RESPONSE.Write "<FONT COLOR=RED>APARECE CON ANTERIORIDAD </font><br>"
ELSE
YACOMPROBADAS=YACOMPROBADAS & "," & elementosarray(i)
posiclaprinci=elementosarray(i)
EXIT FOR
end if
next
end if
NumVeces=Cuantasveces(analisisarray,posiclaprinci)
Response.Write "analisisarray: " & analisisarray & "<br>"
RESPONSE.Write "<FONT COLOR=blue>posiclaprinci: " & posiclaprinci & " </font><br>"
Response.Write "cuentaelementosarray: " & cuentaelementosarray & "<br>"
Response.Write "numveces: " & NumVeces & "<br>"
Response.Write "YACOMPROBADAS: " & YACOMPROBADAS & "<br>"
Response.Write "<hr color=blue>"
Next
End SUB
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title></title>
</head>
<body>
<%
analisisarray=("2,3,3,3,2,2,2,5,2,5,2")
CALL MostrarIMGPRODinPAQUETE(analisisarray)
%>
</body>
</html> |