array sortering

http://magik.dk/da/articles/8/

Den kan ikke sortere den rigtige vej, eller også ved jeg ikke hvbordan jeg laver det om...

her er den sædvanlige boblesortering:
Option Explicit
dim s,A,i,j,n, tmp
s="1,5,9,2,6,3,5"
A=split(s,",")
n=Ubound(A)
For i = 1 To n
  For j = 0 To n - i
    If A(j)<A(j+1) Then
      tmp=A(j)
      A(j)=A(j+1)
      A(j+1)=tmp       
    end if
  next
next
s=join(A,",")

nu er s lig "9,6,5,5,3,2,1"
Der benyttes alfabetisk sortering og ikke talsortering.
Det er det samme for tal med kun et ciffer, men "10" er mindre end "9" når der er tale om alfabetisk sortering.
Vil det være et problem for dig?

Ja, det tror jeg vil blove et problem, siden jeg har følgende tal.

43244,656236,563425236,43214,432,4,5435,423342

Nogle ideer?

Ja da. Du skal så blot konvertere til tal.
A=split(s,",")
n=Ubound(A)
skal ændres til
A=split(s,",")
n=Ubound(A)
for i=0 to n
  A(i)=Clng(A(i))
next

Der konverteres til lange heltal.

Jeg er muligvis ikke så kvik... kan du ikke bakse det sammen

Jo, det kan jeg da.
Sådan:

dim s,A,i,j,n, tmp
s="1,5,9,2,6,3,5"
A=split(s,",")
n=Ubound(A)
for i=0 to n
  A(i)=Clng(A(i))
next
For i = 1 To n
  For j = 0 To n - i
    If A(j)<A(j+1) Then
      tmp=A(j)
      A(j)=A(j+1)
      A(j+1)=tmp       
    end if
  next
next
s=join(A,",")

tak, den virkede... :)

selv tak, det var så lidt.