Intelligent sorting: A bit of a poser

[DunbarX at aol.com]

> Try this:
> 
on mouseUp
    put separateNumbers(fld yourField) into temp
    sort temp numeric   by item 2 of each & item 1 of each
    sort temp by item 1 of each
    replace comma with empty in temp
    put temp into fld yourField
end mouseUp

function separateNumbers var
    repeat for each char tchar in var
       if tChar is in "0123456789" then put comma before tChar
    end repeat
    return var
end separateNumbers


Craig Newman