<%
'*******************************
'Fonction: NewOrder (ARRSTR)
«Arguments: RSTR, un tableau de nombres séparés par des virgules
'Auteur: Alixi
'Date: 2007/7/13
'Description: Réorganiser la table de nombres
'Exemple: <% = newOrder ("34,53,13,22,38,86,111,23,65")%>
'*******************************
FonctionNewOrder (ARRSTR)
Fori = 0Toubound (Split (Arrtr, ","))
IFN> 0THEN
Arrtr = Remplace (Arrtr, N, 0)
Endire
Sp = Split (Arrtr, ",")
n = 0
Forj = 0Toubound (sp)
Ifint (sp (j))> int (n) puis
n = sp (j)
Endire
Suivant
NewOrder = NewOrder & Remplace (n, 0, "") & ""
Suivant
NewOrder = NewOrder
Finition de fin
%>
Réorganiser le tableau
La copie de code est la suivante:
<%
'*******************************
'Fonction: NewOrder (SZ)
«Arguments: RSTR, un tableau de nombres séparés par des virgules
'Auteur: Alixi
'Date: 2007/7/13
'Description: Réorganisez le tableau
'Exemple: <% = newOrder ("34,53,13,22,38,86,111,23,65")%>
'*******************************
FonctionNewOrder (SZ)
Dimali, iCount, i, ii, j, itemp
Ali = Split (SZ, ",")
icône = ubound (Ali)
Fori = 0toicode
Forj = iquant-1tistep-1
Ifj + 1 <= ubound (ali) puis
Ifint (ali (j)) <int (ali (j + 1)) puis
Itemp = Ali (j)
Ali (J) = Ali (J + 1)
Ali (j + 1) = itemp
Endire
Endire
Suivant
Suivant
Forii = 0Toubound (Ali)
Ifi = ubound (ali) puis
NewOrder = NewOrder & Ali (II)
Autre
NewOrder = NewOrder & Ali (II) & ","
Endire
Suivant
Finition de fin
%>