LiveCode Forums.

Code: Select all

on mouseUp
   put "gertrude" & cr & "alfred" & cr & "1penny" & cr & "Gerry" into myList
   put sortOrder(myList)
end mouseUp

function sortOrder tList
   set caseSensitive to true 
   put "a,A,B,1,g,G,D,E,Z,2,H,Q,#,I,K,L,M,N,X" into tSort  --Insert your own order
   split tSort by comma
   repeat for each line tLine in tList
      put char 1 of tLine into tLook
      repeat for each line tKey in the keys of  tSort
         if tLook = tSort[tKey]  then
            put tLine into line tKey of tNewList -- This needs a lot of work!!!
            exit repeat
         end if
      end repeat
   end repeat
   set the caseSensitive to false
   filter tNewList without empty
   return tNewList
end sortOrder

Code: Select all

on mouseUp
   put "ABGDEZHQIKLMNX" into latinString
   put fld 1 into test
   
   repeat with y = 11 to 24 --just not to have to deal with "03" for example
      put y into latin[char (y - 10) of latinString]
   end repeat
   
   put test into newString
   repeat for each char tChar in test
      if tChar = return then next repeat
      replace tChar with latin[tChar] in newString
   end repeat
   
      Sort newString numeric by char 1 to 2 of each & char 3 to 4 of each & char 5 to 6 of each & char 7 to 8 of each
      put newString into fld 2
end mouseUp

Code: Select all

on mouseUp
   put "ABGDEZHQIKLMNXOPRSTUFXYWabgdezhqiklmnxoprstufxyw" into greekOrder  --betacode, that is
   --NO!, better
   put "AaBbGgDdEeZzHhQqIiKkLlMmNnXxOoPpRrSsTtUuFfXxYyWw" into greekOrder  --slightly better but still all the capitalized word appear on top of
   --the words with the same initial
   put ")/andra moi e)/nnepe, Mou=sa, polu/tropon, o(\s ma/la polla\ pla/gxqh, e)pei\ Troi/hs i(ero\n ptoli/eqron e)/perse:" into test

   put sortByAnyOrder(greekOrder,test) into newOrder
   put newOrder into TheWorld
end mouseUp


function sortByAnyOrder whichOrder,theWords
   replace " " with return in theWords
   replace "," with "" in theWords
   set the caseSensitive to true
   repeat with y = 10 to number of chars of  whichOrder + 9 --
      put "@" & y into latin[char (y - 9) of whichOrder]
   end repeat
   
   put theWords into newString
   repeat for each char tChar in whichOrder
      replace tChar with latin[tChar] in newString
   end repeat
   
   repeat with x = 1 to number of lines of newString  --there must be a less ugly way to do this
      put "," & line x of theWords after line x of newString
   end repeat
   sort lines of newString ascending text by item 1 of each
   repeat with x = 1 to number of lines of newString  --again, there must be a less ugly way to strip the first item
      delete item 1 of line x of newString
   end repeat
   set the caseSensitive to false
   return newString
end sortByAnyOrder

Code: Select all

on mouseUp
   put "abgdezhqiklmnxoprstufxyw" into greekOrder
   put "ABGDEZHQIKLMNXOPRSTUFXYW" into upperCase
   put ")/andra moi e)/nnepe, Mou=sa, polu/tropon, o(\s ma/la polla\ pla/gxqh, e)pei\ Troi/hs i(ero\n ptoli/eqron e)/perse:" into test

   put sortByAnyOrder(greekOrder,test,upperCase) into newOrder
   put newOrder into TheWorld
end mouseUp


function sortByAnyOrder whichOrder,theWords,upperCase
   replace " " with return in theWords
   replace "," with "" in theWords
   set the caseSensitive to false
   repeat with y = 10 to number of chars of  whichOrder + 9 --
      put "@" & y into latin[char (y - 9) of whichOrder]
   end repeat
   
   put theWords into newString
   repeat for each char tChar in whichOrder
      --if tChar = return then next repeat
      replace tChar with latin[tChar] in newString
   end repeat
   set the caseSensitive to true
   repeat with x = 1 to number of lines of newString  --there must be a less ugly way to do this
      if char 1 of line x of theWords is in upperCase
      then
         put "@0," & line x of theWords after line x of newString
      else
         put "@1," & line x of theWords after line x of newString
      end if
      
   end repeat
   set the caseSensitive to false
   Sort lines of newString ascending text by item 1 of each--by char 1 to 2 of each & char 3 to 4 of each & char 5 to 6 of each & char 7 to 8 of each
   repeat with x = 1 to number of lines of newString  --again, there must be a less ugly way to strip the first item, I'm a nwebbie in LC
      delete item 1 of line x of newString
   end repeat
   
   return newString
end sortByAnyOrder