<%
'***********************************
'Função: Neworder (ARRSTR)
'Argumentos: RSTR, uma variedade de números separados por vírgula
'Autor: Alixi
Data: 2007/7/13
'Descrição: reordenando a variedade de números
'Exemplo: <%= neworder ("34,53,13,22,38,86,111,23,65")%>
'***********************************
FunctionNeworder (ARRSTR)
Fori = 0Toubound (Split (arrstr, ","))
Ifn> 0then
Arrstr = substituir (arrstr, n, 0)
Endif
sp = divisão (arrstr, ",")
n = 0
Forj = 0Toubound (sp)
Ifint (sp (j))> int (n) então
n = sp (j)
Endif
Próximo
Neworder = neworder & reply (n, 0, "") & "
Próximo
Neworder = neworder
Função final
%>
Reordenar a matriz
A cópia do código é a seguinte:
<%
'***********************************
'Função: Neworder (SZ)
'Argumentos: RSTR, uma variedade de números separados por vírgula
'Autor: Alixi
Data: 2007/7/13
'Descrição: reordenar a matriz
'Exemplo: <%= neworder ("34,53,13,22,38,86,111,23,65")%>
'***********************************
FunctionNeworder (SZ)
Dimali, Icount, I, II, J, Itemp
Ali = dividido (SZ, ",")
Ícone = Ubound (ALI)
Fori = 0toicode
Forj = iquant-1Toistep-1
Ifj+1 <= ubound (ali) então
Ifint (ali (j)) <int (ali (j+1)) então
Itemp = Ali (J)
Ali (J) = Ali (J+1)
ali (j+1) = itemp
Endif
Endif
Próximo
Próximo
Forii = 0TOUBOUND (ALI)
Ifi = ubound (ali) então
Neworder = neworder & Ali (ii)
Outro
Neworder = neworder & Ali (ii) & ","
Endif
Próximo
Função final
%>