[VBScript] Objekte in Arrays ablegen

[EWeiss]

Hier ist die lösung ...
War im grunde alles richtig dein Problem war die convertierung
Einen String kannst du nicht mit BubbleSort(dein algo) vergleichen oder geht das in Delphi ?

Code:

Function BubbleSort(arrsort)
Dim i, j, k
Dim s1, s2, s
Dim filesize1, filesize2
Dim temp
  For i = 0 To UBound(arrsort) - 1
    For j = i + 1 To UBound(arrsort) - 1
      s1 = Split(arrsort(i), ",", -1, vbTextCompare)
      filesize1 = CLng(s1(2)) '// <<<---- war Fehler muß ein CLng davor
      s2 = Split(arrsort(j), ",", -1, vbTextCompare)
      filesize2 = CLng(s2(2)) '// <<<---- war Fehler muß ein CLng davor
      If filesize1 < filesize2 Then
        temp = arrsort(i)
        arrsort(i) = arrsort(j)
        arrsort(j) = temp
      End If
    Next
  Next
  For k = 0 To UBound(arrsort) - 1
    s = Split(arrsort(k), ",", -1, vbTextCompare)
    'MsgBox s(2)
  Next
  BubbleSort = arrsort
End Function

gruss Emil

[Luckie]

Autsch. Nie muss man bei VBScript auf den Datentyp achten und dann so was. :wall:

Besten Dank für deine Hilfe.

[EWeiss]

Zitat:

Zitat von Luckie

Autsch. Nie muss man bei VBScript auf den Datentyp achten und dann so was. :wall:

Besten Dank für deine Hilfe.

Ja gern getan ;)
Bekomme die ja hier auch

Gruss Emil