[AS][OSX] Sort numbers in ascending order

Scripting Forums AppleScript | Mac OS X
#1

I’m working on numbering page items of an InDesign page to follow a sequence of left-to-right top-to-bottom. I’ve figured out how to use the x-y coordinates to relate the object’s location to a single integer.

Now I need to take a list of numbers and sort them in ascending order. But I can’t figure out how to do it.

Here’s what I have so far. The math goes (Y x 1000) + X


set A to (8.375 * 1000) + 4.75 as integer
set B to (3.333333333333 * 1000) + 0.5 as integer
set C to (6.078125 * 1000) + 0.5 as integer
set D to (0.5 * 1000) + 4.75 as integer
set e to (0.5 * 1000) + 0.5 as integer

my_list to {A, B, C, D, e}
#2

Hi,

use a sorting subroutine, a common one is bubblesort

set A to (8.375 * 1000) + 4.75 as integer
set B to (3.333333333333 * 1000) + 0.5 as integer
set C to (6.078125 * 1000) + 0.5 as integer
set D to (0.5 * 1000) + 4.75 as integer
set e to (0.5 * 1000) + 0.5 as integer
set my_list to {A, B, C, D, e}
bubblesort(my_list)
my_list

on bubblesort(theList)
	script o
		property lst : theList
	end script
	
	repeat with i from (count theList) to 2 by -1
		set A to beginning of o's lst
		repeat with j from 2 to i
			set B to item j of o's lst
			if (A > B) then
				set item (j - 1) of o's lst to B
				set item j of o's lst to A
			else
				set A to B
			end if
		end repeat
	end repeat
end bubblesort