; ; ------------------------------------------------------------ ; ; SpiderBasic - Sort example file ; ; (c) Fantaisie Software ; ; ------------------------------------------------------------ ; #NbElements = 8 Dim Array.s(#NbElements) Array(0) = "Hello" Array(1) = "This" Array(2) = "is" Array(3) = "a" Array(4) = "Nice" Array(5) = "test" Array(6) = "Isn't" Array(7) = "it ?" Array(8) = "Haha !" For k=0 To #NbElements Debug Array(k) Next SortArray(Array(), #PB_Sort_Ascending | #PB_Sort_NoCase) Debug "---------------------" For k=0 To #NbElements Debug Array(k) Next Debug "Sort finished !"