[LotusScript]排序多重值

Sub Initialize

    Dim a = (1 To 5) As Variant
    Dim b As Variant
    Dim temp As String

    a(1) = "G"
    a(2) = "E"
    a(3) = "A"
    a(4) = "H"
    a(5) = "P"

    Foall i In a
        Print i
        temp = temp & {'} & i & {'} & {:}
    End Forall

    temp = Left(temp, Len(temp)-1 )
    b = Evaluate( {@Sort} & temp & {;[ASCENDING])} )

    Foall i In b
        Print i
    End Forall

End Sub