LiveCode Forums.

Code: Select all

on customSort
  put fld 1 into tList -- you could use a variable here instead
  put "R,B,H,L,O,E" into tOrderList
  split tOrderList by comma
  sort lines of tList by sortIt(each,tOrderList)
  -- do something with the sorted list here
end customSort

function sortit tLine,tOrderList
  repeat for each key k in tOrderList
    if tOrderList[k] = item 1 of tLine then
      return k
    end if
  end repeat
end sortit

Code: Select all

repeat for each item k in "R,B,H,L,O,E"
  add 1 to i
  put i into a[ k ]
end repeat
sort fld 1 by a[ item 1 of each ]

Code: Select all

local orderList = "R,B,H,L,O,E"
sort myVar numeric by itemoffset(item 1 of each, orderList)