Domino 9 und frühere Versionen > Entwicklung

Array sortieren

(1/1)

feargus:
kennt einer ne einfache Möglichkeit ein Array zu sortieren ???

macke:
hier kleines Script

Sub Click(Source As Button)
   
    Dim ws    As New NotesUiWorkspace
    ws.Currentdocument.Document.Value = Sort(ws.Currentdocument.Document.Value)
   
End Sub


Function Sort(Value As Variant) As Variant
   
    Dim i    As Integer
    Dim j    As Integer
    Dim n    As Integer
    Dim hilf As String
   
    n = Ubound(Value)
   
    For i = 0 To n
         For j = i To n
              If (Value(i) > Value(j)) Then   ' Aufsteigend
                   hilf = Value(i)
                   Value(i) = Value(j)
                   Value(j) = hilf
              End If
         Next
    Next
   
    Sort = Value
   
End Function

feargus:
besten Dank... habs mal ausprobiert. Funktioniert prima

eknori:
schau mal hier nach:

http://www.atnotes.de/cgi-bin/yabb/YaBB.pl?board=004-1;action=display;num=1013520001

eknori

Navigation

[0] Themen-Index