Hey guys, thanks for all the possible solutions. I'm sure somewhere in here
I'll get it to do what I need. Special thanks to those that wrote code. Much
appreciate it!
Scott
On 10/24/18, 1:28 PM, "use-livecode on behalf of Niggemann, Bernd via
use-livecode" <use-livecode-boun...@lists.runrev.com on behalf of
use-livecode@lists.runrev.com> wrote:
here is my take, clumsy and not respecting all formatting requirements
Instead of
187.1
187.1.1
187.1.2
187.3
187.22
187.33
187.234
it sorts
187.1
187.1.1
187.1.2
187.22
187.234
187.3
187.33
Kind regards
Bernd
-----------------------------------------------
on mouseUp
put field "fAlpha" into tData
put "" into msg
sort tData numeric by specialSort(each)
put tData into field "fSort"
end mouseUp
function specialSort pEach
put pEach into tData
--put word 1 to -1 of tData into tData
put "0,1,2,3,4,5,6,7,8,9,." into tNumbers
-- check for double colon like in 187.1.2
put 0 into tSkip
put 0 into tCounter
repeat
put offset(".", tData, tSkip) into tOffset
if tOffset > 0 then
add tOffset to tSkip
add 1 to tCounter
else
exit repeat
end if
end repeat
if tCounter > 1 then
--put tData && tCounter & cr after msg
put empty into char tSkip of tData
return tData
end if
repeat with i = 1 to the number of chars of tData
if char i of tData is among the items of tNumbers then
put char i of tData after tNumberPart
else
exit repeat
end if
end repeat
if tData = tNumberPart then
return tNumberPart
end if
put length(tNumberPart) into tLength
put char tLength + 1 to - 1 of tData into tRest
if char tLength of tNumberPart = "." then put "." before tRest
replace ")" with empty in tRest
replace space with empty in tRest
put toUpper(tRest) into tRest
put true into tLeftBracket
put 0 into tDecimal
repeat with i = 1 to the number of chars of tRest
put char i of tRest into tChar
if tChar is a Number then
add tChar * .00001 to tDecimal
else if tChar is "(" then
if tLeftBracket then
add .0000001 to tDecimal
put false into tLeftBracket
end if
else if tChar is "." then -- ASCII "." = 46
add .00001 to tDecimal
else if charToNum(tChar) >= 65 then -- ASCII "A" = 65
add (charToNum(tChar)-64) * .00009 to tDecimal
end if
end repeat
return tNumberPart + tDecimal
end specialSort
-----------------------------------------------------
_______________________________________________
use-livecode mailing list
use-livecode@lists.runrev.com
Please visit this url to subscribe, unsubscribe and manage your
subscription preferences:
http://lists.runrev.com/mailman/listinfo/use-livecode
_______________________________________________
use-livecode mailing list
use-livecode@lists.runrev.com
Please visit this url to subscribe, unsubscribe and manage your subscription
preferences:
http://lists.runrev.com/mailman/listinfo/use-livecode
