Sorting editor Gadget

[loulou2522]

Is-it possible to sort a gadget editor on the first 8 characters on each line?
example
23/05/90 deux
23/04/90 trois
23/06/90 quatre
to get
23/0'4/90 trois
23/05/90 deux
23/06/90 quatre

[Mesa]

Please send us a little bit of code to begin with.

Listicon can sort date with this https://www.purebasic.fr/english/viewto ... bi#p477397

M.

[RASHAD]

Code: Select all

If OpenWindow(0, 0, 0, 400,200, "EditorGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  EditorGadget(0, 10,10, 380, 160)
  ButtonGadget(1,10,175,60,20,"SORT")
  AddGadgetItem(0, -1, "23/05/90 deux")
  AddGadgetItem(0, -1, "23/04/90 trois")
  AddGadgetItem(0, -1, "23/06/90 quatre")
   
Repeat
  Select WaitWindowEvent()
    Case #PB_Event_CloseWindow
      Quit = 1
      
    Case #PB_Event_Gadget
      Select EventGadget()
        Case 1
          itemn = CountGadgetItems(0)
          Dim a.s(itemn)
          For k = 0 To itemn
            a(k) = GetGadgetItemText(0,k)
          Next
          SortArray(a(), #PB_Sort_Ascending | #PB_Sort_NoCase)
          ClearGadgetItems(0)    
          For k = 0 To itemn
            AddGadgetItem(0,-1,a(k))
          Next
          RemoveGadgetItem(0, 0) 
      EndSelect
  EndSelect
Until Quit = 1
EndIf