function ctnSort pTextToSort
get the SortOrder of me #### that is if the custom property is also in the same object as the script
repeat for each line kk in it
put kk after so
end repeat
set the caseSensitive to true #### important to make the offset function work correctly
repeat for each item ii in pTextToSort
repeat for each char cc in ii
put offset(cc,so) & space after tempVar
end repeat
delete last char of tempVar
put tempVar & "," & ii & cr after theSorter
put "" into tempVar
end repeat
sort lines of theSorter numeric by first item of each
repeat for each line ll in theSorter
put item 2 of ll & "," after theResult
end repeat
delete last char of theResult
return theResult
end ctnSort
Way cool. Thanks for posting that.
-- Richard Gaskin Fourth World Media Corporation Developer of WebMerge 2.2: Publish any database on any site
Hi again,
After a 4W_MetaBench-like test (tnx mr. Gaskin your name made me think about it :^) the previous function should be changed to :
function ctnSort pTextToSort
get fld "thetable"
repeat for each line kk in it
put kk after so -- sortOrder
end repeat
set the caseSensitive to the hilite of button "caseSensitive"
repeat for each item ii in pTextToSort
repeat for each char cc in ii
put offset(cc,so) & space after tempvar #### caseSensitive function
end repeat
delete last char of tempvar
put tempvar & cr after thesorter
put "" into tempvar
end repeat
sort lines of thesorter numeric
repeat for each line ll in thesorter ##### changed
repeat for each word ww in ll
put char ww of so after theresult
end repeat
put "," after theresult
end repeat ##### til here :^)
delete last char of theresult
return theresult
end ctnSort
Afterthought:
This is only a remedy until the sort command gets "fixed" in the mc-engine to so that it can come up to real speed.
May be it would be nice to have it extended to something were the user has the choice between the build in sort order or his own
Have a nice day, WA
_______________________________________________ use-revolution mailing list [EMAIL PROTECTED] http://lists.runrev.com/mailman/listinfo/use-revolution
