set parsedList to parsePageRangeString("1-10, 35, 37, 39, 100-110") of me
–> {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 35, 37, 39, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110}

–ページ範囲指定のテキスト（多分）を展開して実際のページ数の一覧リストに
on parsePageRangeString(pageText as string)
　　set curDelim to AppleScript’s text item delimiters
　　set AppleScript’s text item delimiters to ("," as string)
　　set aList to text items of pageText
　　set AppleScript’s text item delimiters to curDelim
　　
　　set eList to {}
　　repeat with i in aList
　　　　set j to contents of i
　　　　if ("-" as string) is in j then
　　　　　　set eList to eList & parseByHyphen(j) of me
　　　　else
　　　　　　set the end of eList to j as number
　　　　end if
　　end repeat
　　
　　set eList to removeDuplicates(eList) of me
　　set eList to shellSortAscending(eList) of me
　　
　　return eList
end parsePageRangeString

–重複部分を削除
on removeDuplicates(aList)
　　set newList to {}
　　repeat with i from 1 to (length of aList)
　　　　set anItem to item 1 of aList
　　　　set aList to rest of aList
　　　　if {anItem} is not in aList then set end of newList to anItem
　　end repeat
　　return newList
end removeDuplicates

–ハイフンを実際の数値に変換
on parseByHyphen(aText)
　　set aText to aText as string
　　set curDelim to AppleScript’s text item delimiters
　　set AppleScript’s text item delimiters to ("-" as string)
　　set aList to text items of aText
　　set AppleScript’s text item delimiters to curDelim
　　
　　set sList to {}
　　repeat with i from ((item 1 of aList) as number) to ((item 2 of aList) as number)
　　　　set the end of sList to i
　　end repeat
　　return sList
end parseByHyphen

–入れ子ではないリストの昇順ソート
on shellSortAscending(aSortList)
　　script oBj
　　　　property list : aSortList
　　end script
　　
　　set len to count oBj’s list’s items
　　set gap to 1
　　
　　repeat while (gap ≤ len)
　　　　set gap to ((gap * 3) + 1)
　　end repeat
　　
　　repeat while (gap > 0)
　　　　set gap to (gap div 3)
　　　　if (gap < len) then
　　　　　　repeat with i from gap to (len – 1)
　　　　　　　　set temp to oBj’s list’s item (i + 1)
　　　　　　　　set j to i
　　　　　　　　repeat while ((j ≥ gap) and (oBj’s list’s item (j – gap + 1) > temp))
　　　　　　　　　　set oBj’s list’s item (j + 1) to oBj’s list’s item (j – gap + 1)
　　　　　　　　　　set j to j – gap
　　　　　　　　end repeat
　　　　　　　　set oBj’s list’s item (j + 1) to temp
　　　　　　end repeat
　　　　end if
　　end repeat
　　
　　return oBj’s list
end shellSortAscending