<%
'*********************************
'Funktion: NewOrder (arrstr)
Argumente: RSTR, eine von Kommas getrennte Reihe von Zahlen
'Autor: Alixi
'Datum: 2007/7/13
'Beschreibung: Neuaufstellung von Zahlen neu anordnen
Beispiel: <%= NewOrder ("34,53,13,22,38,86,111,23,65")%>
'*********************************
FunktionNeworder (arrstr)
Fei = 0toubund (split (arrstr, ","))
Ifn> 0Then
Arrstr = ersetzen (arrstr, n, 0)
Endif
SP = Split (arrstr, ",")
n = 0
FORJ = 0ToUBOUND (SP)
IfInt (sp (j))> int (n) dann
n = sp (j)
Endif
Nächste
NewOrder = newOrder & ersetzen (n, 0, "") & "" "
Nächste
NewOrder = NewOrder
Endfunktion
%>
Das Array nachordnen
Die Codekopie lautet wie folgt:
<%
'*********************************
'Funktion: NewOrder (SZ)
Argumente: RSTR, eine von Kommas getrennte Reihe von Zahlen
'Autor: Alixi
'Datum: 2007/7/13
'Beschreibung: Nachdenken Sie das Array neu
Beispiel: <%= NewOrder ("34,53,13,22,38,86,111,23,65")%>
'*********************************
FunktionNeworder (SZ)
Dimali, Icount, I, II, J, Itemp
Ali = Split (SZ, ",")
Icon = Ubound (Ali)
Fei = 0toicode
FORJ = IQUANT-1TOISTEP-1
Ifj+1 <= Ubound (ali) dann
IfInt (ali (j)) <int (ali (j+1)) dann
Itemp = ali (j)
Ali (j) = ali (j+1)
Ali (j+1) = itemp
Endif
Endif
Nächste
Nächste
Forii = 0Toubund (Ali)
Ifi = Ubound (ali) dann
NewOrder = NewOrder & Ali (ii)
Anders
NewOrder = NewOrder & Ali (ii) & ",", ","
Endif
Nächste
Endfunktion
%>