Sortering af tal

strTal = "1 11 2 21 3 4 5 6 7"
arrTal = Split(strTal," ")

intValidator = 0
For i = 0 To UBound(arrTal)
  If arrTal(i) > intValidator
      intTal = intTal & " " & arrTal(i)
  End If
intValidator = intValidator +1
Next

//>Rune

Hvor får du tallene fra?
Hvis de kommer fra en database er det nemmeste at sortere dem på selectionstidspunktet.

Hvis du har tallene fra en database så kan du gøre som følgende:

strSQL = "SELECT * FROM tabel ORDER tal BY DESC"
Set objRs = objConn.Execute(strSQL)

så vil den sortere som du gerne vil ha' dem ;o)

//>Rune

De kommer fra en database, jeg laver en list

<%=List("idintern")%>

I dette tilfælde bør du, som tidligere nævnt, sortere dine records på selectionstidspunktet - med en ORDER BY.

Så gør sådan her:

strSQL = "SELECT * FROM dintabel ORDER idintern BY DESC"
Set List = Conn.Execute(strSQL)

While Not List.EOF
  Response.Write(List("idintern") & "<br>")
List.MoveNext()
Wend

//>Rune

Du skal nok bytte rundt på "idintern" og "BY"
ORDER BY idintern DESC

*G* hov

//>Rune

Det er bestemt nemmest med SQL. Men skal vi ikke lige
tage en god, gammel bobblesortering:

  dim arrTal(9),i,changed,tmp

  arrTal(0)=1
  arrTal(1)=11
  arrTal(2)=2
  arrTal(3)=21
  arrTal(4)=3
  arrTal(5)=4
  arrTal(6)=5
  arrTal(7)=6
  arrTal(8)=7

  for i=0 to ubound(arrTal)
    response.write arrTal(i) & " "
  next
  response.write "<br>"

  changed=true
  do while changed
    changed=false
    for i=1 to ubound(arrTal)
      if arrTal(i-1)>arrTal(i) then
        tmp=arrTal(i-1)
        arrTal(i-1)=arrTal(i)
        arrTal(i)=tmp
        changed=true
      end if
    next
  loop

  for i=0 to ubound(arrTal)
    response.write arrTal(i) & " "
  next
  response.write "<br>"

nu du er så godt igang så lad os også liiige se Qsort algoritmen

phineas_phreak> Hvad mener du?

//>Rune

erikjacobsen: Det er bestemt nemmest med SQL. Men skal vi ikke lige
tage en god, gammel bobblesortering:

>> phineas_phreak: nu du er så godt igang så lad os også liiige se Qsort algoritmen

Man skal da kunne sine sorteringsalgoritmer. Men det bliver nok lidt mere vanskeligt i det her lortesprog

LOL

Jeg har løst det ved at bruge tallene

000001
000002
000003
000021

Så sortere den korekt ved en listning, men i får pointene som tak for god indsats.

Tak
2001Stausholm

Jamen - takker.

Anytime :o)
Thx 4 Poinz

//>Rune