<%
'**********************************
'Función: NewOrder (Arrstr)
'Argumentos: RSTR, una matriz de números separada por comas
'Autor: Alixi
'Fecha: 2007/7/13
'Descripción: reordenar la matriz de números
'Ejemplo: <%= NewOrder ("34,53,13,22,38,86,111,23,65")%>
'**********************************
FunctionNeworder (Arrstr)
Fori = 0toUbound (dividido (Arrstr, ","))
Ifn> 0then
Arrstr = Reemplazar (Arrstr, N, 0)
Endif
sp = Split (Arrstr, ",")
n = 0
Forj = 0toUbound (sp)
Ifint (sp (j))> int (n) entonces
n = sp (j)
Endif
Próximo
Neworder = neworder & reemplazar (n, 0, "") y ""
Próximo
Neworder = neworder
Función final
%>
Reordenar la matriz
La copia del código es la siguiente:
<%
'**********************************
'Función: NewOrder (SZ)
'Argumentos: RSTR, una matriz de números separada por comas
'Autor: Alixi
'Fecha: 2007/7/13
'Descripción: Reorden la matriz
'Ejemplo: <%= NewOrder ("34,53,13,22,38,86,111,23,65")%>
'**********************************
FunctionNeworder (SZ)
Dimali, icount, i, ii, j, itemp
Ali = Split (Sz, ",")
icono = Ubound (Ali)
Fori = 0toicode
Forj = iquant-1toistep-1
Ifj+1 <= Ubound (Ali) entonces
Ifint (ali (j)) <int (ali (j+1)) entonces entonces
Itemp = ali (j)
Ali (J) = Ali (J+1)
Ali (j+1) = itemp
Endif
Endif
Próximo
Próximo
Forii = 0toUbound (Ali)
Ifi = Ubound (Ali) entonces
Neworder = neworder & ali (ii)
Demás
Neworder = neworder & ali (ii) & ",",
Endif
Próximo
Función final
%>