use AppleScript version “2.4″
use scripting additions
use framework “Foundation”
use framework “ASObjCExtras”

–mdfindで指定フォルダ以下にあるすべてのアプリケーションファイルを取得
set apPath1 to (path to applications folder) as string
set apList to getFileListWithSpotLight(“kMDItemContentType”, “com.apple.application-bundle”, apPath1) of me

set theCountedSet to current application’s NSCountedSet’s |set|()

–各アプリケーションのローカリゼーション情報を取得する
repeat with i in apList
　　set j to contents of i
　　
　　–指定アプリケーションのローカライズ言語を取得。重複を除去
　　set locList to getSpecifiedAppFilesLocalizationList(j) of me
　　–> {”de”, “English”, “fr”, “French”, “German”, “ja”, “Japanese”}
　　—-> {”German”, “English”, “French”,”Japanese”}
　　
　　set locArray to (current application’s SMSFord’s Cocoaify:locList)
　　
　　set theEnumerator to locArray’s objectEnumerator()
　　repeat
　　　　set aValue to theEnumerator’s nextObject()
　　　　if aValue is missing value then exit repeat
　　　　
　　　　(theCountedSet’s addObject:aValue)
　　end repeat
end repeat

–NSCountedSetをNSMutableArrayに変換
set theArray to current application’s NSMutableArray’s array()
set theEnumerator to theCountedSet’s objectEnumerator()

–NSMutableArrayから順次取り出して、NSArrayに対してDictionaryを追加
repeat
　　set aValue to theEnumerator’s nextObject()
　　if aValue is missing value then exit repeat
　　theArray’s addObject:(current application’s NSDictionary’s dictionaryWithObjects:{aValue, (theCountedSet’s countForObject:aValue)} forKeys:{“theName”, “numberOfTimes”})
end repeat

–出現回数（numberOfTimes）で降順ソート
set theDesc to current application’s NSSortDescriptor’s sortDescriptorWithKey:“numberOfTimes” ascending:false
theArray’s sortUsingDescriptors:{theDesc}

return theArray as list

–> {{theName:”English”, numberOfTimes:733}, {theName:”Japanese”, numberOfTimes:404}, {theName:”French”, numberOfTimes:266}, {theName:”German”, numberOfTimes:265}, {theName:”Italian”, numberOfTimes:219}, {theName:”Spanish”, numberOfTimes:203}, {theName:”Dutch”, numberOfTimes:165}, {theName:”Chinese (China)”, numberOfTimes:149}, {theName:”Swedish”, numberOfTimes:133}, {theName:”Korean”, numberOfTimes:131}, {theName:”Russian”, numberOfTimes:129}, {theName:”Chinese (Taiwan)”, numberOfTimes:127}, {theName:”Portuguese”, numberOfTimes:124}, {theName:”Polish”, numberOfTimes:118}, {theName:”Danish”, numberOfTimes:117}, {theName:”Finnish”, numberOfTimes:110}, {theName:”Norwegian”, numberOfTimes:100}, {theName:”Czech”, numberOfTimes:92}, {theName:”Turkish”, numberOfTimes:90}, {theName:”Hungarian”, numberOfTimes:87}, {theName:”Greek”, numberOfTimes:76}, {theName:”Ukrainian”, numberOfTimes:75}, {theName:”Romanian”, numberOfTimes:74}, {theName:”Portuguese (Portugal)”, numberOfTimes:70}, {theName:”Slovak”, numberOfTimes:69}, {theName:”Catalan”, numberOfTimes:63}, {theName:”Croatian”, numberOfTimes:63}, {theName:”Arabic”, numberOfTimes:61}, {theName:”Thai”, numberOfTimes:61}, {theName:”Hebrew”, numberOfTimes:60}, {theName:”Indonesian”, numberOfTimes:58}, {theName:”Vietnamese”, numberOfTimes:57}, {theName:”Malay”, numberOfTimes:56}, {theName:”Spanish (Mexico)”, numberOfTimes:49}, {theName:”Base”, numberOfTimes:46}, {theName:”Portuguese (Brazil)”, numberOfTimes:22}, {theName:”Norwegian Bokmål”, numberOfTimes:21}, {theName:”Chinese (Simplified)”, numberOfTimes:19}, {theName:”Chinese”, numberOfTimes:14}, {theName:”English (United Kingdom)”, numberOfTimes:12}, {theName:”Bulgarian”, numberOfTimes:12}, {theName:”Chinese (Traditional)”, numberOfTimes:11}, {theName:”Latvian”, numberOfTimes:10}, {theName:”Lithuanian”, numberOfTimes:9}, {theName:”Slovenian”, numberOfTimes:9}, {theName:”Japanese (Japan)”, numberOfTimes:9}, {theName:”Czech (Czech Republic)”, numberOfTimes:9}, {theName:”Estonian”, numberOfTimes:8}, {theName:”Ukrainian (Ukraine)”, numberOfTimes:8}, {theName:”Spanish (Spain)”, numberOfTimes:7}, {theName:”Turkish (Turkey)”, numberOfTimes:7}, {theName:”Hungarian (Hungary)”, numberOfTimes:6}, {theName:”Danish (Denmark)”, numberOfTimes:6}, {theName:”Russian (Russia)”, numberOfTimes:6}, {theName:”French (XM)”, numberOfTimes:6}, {theName:”Swedish (Sweden)”, numberOfTimes:6}, {theName:”Serbian”, numberOfTimes:6}, {theName:”Norwegian Bokmål (Norway)”, numberOfTimes:6}, {theName:”Dutch (Netherlands)”, numberOfTimes:6}, {theName:”Persian”, numberOfTimes:5}, {theName:”Korean (South Korea)”, numberOfTimes:5}, {theName:”Finnish (Finland)”, numberOfTimes:5}, {theName:”Italian (Italy)”, numberOfTimes:5}, {theName:”German (Germany)”, numberOfTimes:5}, {theName:”French (Canada)”, numberOfTimes:5}, {theName:”French (France)”, numberOfTimes:5}, {theName:”Polish (Poland)”, numberOfTimes:5}, {theName:”Hindi”, numberOfTimes:5}, {theName:”English (United States)”, numberOfTimes:5}, {theName:”Hebrew (Israel)”, numberOfTimes:4}, {theName:”Arabic (United Arab Emirates)”, numberOfTimes:4}, {theName:”Spanish (Latin America)”, numberOfTimes:4}, {theName:”Romanian (Romania)”, numberOfTimes:4}, {theName:”Spanish (Namibia)”, numberOfTimes:4}, {theName:”Filipino”, numberOfTimes:4}, {theName:”Spanish (Laos)”, numberOfTimes:4}, {theName:”empty”, numberOfTimes:4}, {theName:”Greek (Greece)”, numberOfTimes:4}, {theName:”Telugu”, numberOfTimes:3}, {theName:”Malayalam”, numberOfTimes:3}, {theName:”Icelandic”, numberOfTimes:3}, {theName:”Kannada”, numberOfTimes:3}, {theName:”Galician”, numberOfTimes:3}, {theName:”Bengali”, numberOfTimes:3}, {theName:”Gujarati”, numberOfTimes:3}, {theName:”Marathi”, numberOfTimes:3}, {theName:”Tamil”, numberOfTimes:3}, {theName:”Belarusian”, numberOfTimes:3}, {theName:”Albanian”, numberOfTimes:2}, {theName:”Mongolian”, numberOfTimes:2}, {theName:”French (Morocco)”, numberOfTimes:2}, {theName:”Georgian”, numberOfTimes:2}, {theName:”Sinhala”, numberOfTimes:2}, {theName:”jp”, numberOfTimes:2}, {theName:”ua”, numberOfTimes:2}, {theName:”Amharic”, numberOfTimes:2}, {theName:”English (United Arab Emirates)”, numberOfTimes:2}, {theName:”Finnish (FL)”, numberOfTimes:2}, {theName:”Catalan (Spain)”, numberOfTimes:2}, {theName:”Basque”, numberOfTimes:2}, {theName:”English (Israel)”, numberOfTimes:2}, {theName:”Norwegian (NB)”, numberOfTimes:2}, {theName:”Oriya”, numberOfTimes:1}, {theName:”Punjabi”, numberOfTimes:1}, {theName:”Serbo-Croatian”, numberOfTimes:1}, {theName:”Walloon”, numberOfTimes:1}, {theName:”Corsican”, numberOfTimes:1}, {theName:”Sorani Kurdish”, numberOfTimes:1}, {theName:”Chinese (Hong Kong SAR China)”, numberOfTimes:1}, {theName:”Breton”, numberOfTimes:1}, {theName:”Cornish”, numberOfTimes:1}, {theName:”Chiga”, numberOfTimes:1}, {theName:”Aragonese”, numberOfTimes:1}, {theName:”Macedonian”, numberOfTimes:1}, {theName:”Japan”, numberOfTimes:1}, {theName:”Bosnian”, numberOfTimes:1}, {theName:”Ganda”, numberOfTimes:1}, {theName:”Tetum”, numberOfTimes:1}, {theName:”Welsh”, numberOfTimes:1}, {theName:”Armenian”, numberOfTimes:1}, {theName:”Kyrgyz”, numberOfTimes:1}, {theName:”Scottish Gaelic”, numberOfTimes:1}, {theName:”Afrikaans”, numberOfTimes:1}, {theName:”Zulu”, numberOfTimes:1}, {theName:”Swahili”, numberOfTimes:1}, {theName:”Burmese”, numberOfTimes:1}, {theName:”Chinese (Traditional, Taiwan)”, numberOfTimes:1}, {theName:”ct”, numberOfTimes:1}, {theName:”Tagalog”, numberOfTimes:1}, {theName:”Kazakh”, numberOfTimes:1}, {theName:”Bengali (India)”, numberOfTimes:1}, {theName:”Pashto”, numberOfTimes:1}, {theName:”Nepali”, numberOfTimes:1}, {theName:”Acoli”, numberOfTimes:1}, {theName:”Friulian”, numberOfTimes:1}, {theName:”Norwegian Nynorsk”, numberOfTimes:1}, {theName:”Asturian”, numberOfTimes:1}, {theName:”Thai (Thailand)”, numberOfTimes:1}, {theName:”Khmer”, numberOfTimes:1}, {theName:”Irish”, numberOfTimes:1}, {theName:”American”, numberOfTimes:1}, {theName:”Fulah”, numberOfTimes:1}, {theName:”Chinese (Traditional, Hong Kong SAR China)”, numberOfTimes:1}, {theName:”Occitan”, numberOfTimes:1}, {theName:”Interlingua”, numberOfTimes:1}, {theName:”Uzbek”, numberOfTimes:1}, {theName:”Azerbaijani”, numberOfTimes:1}}

–指定アプリケーションファイルの、指定Localeにおけるローカライズ言語リストを求める。重複を排除
on getSpecifiedAppFilesLocalizationList(anAppAlias as alias)
　　
　　set aURL to (current application’s SMSFord’s URLFrom:anAppAlias)
　　set aBundle to current application’s NSBundle’s bundleWithURL:aURL
　　
　　set theNSLocale to current application’s NSLocale’s localeWithLocaleIdentifier:“en” –Output Locale Name in English (en)
　　
　　–Get Localization Info
　　set locList to aBundle’s localizations()
　　–> {”de”, “English”, “fr”, “French”, “German”, “ja”, “Japanese”}
　　set theEnumerator to locList’s objectEnumerator()
　　
　　set theSet to current application’s NSMutableSet’s |set|()
　　
　　repeat
　　　　set aValue to theEnumerator’s nextObject()
　　　　if aValue is missing value then exit repeat
　　　　
　　　　set theName to (theNSLocale’s displayNameForKey:(current application’s NSLocaleIdentifier) value:aValue)
　　　　
　　　　if theName is missing value then
　　　　　　–”English”や”French”などは、missing valueが返ってくるので、”English”や”French”などをそのまま追加
　　　　　　theSet’s addObject:aValue
　　　　else
　　　　　　–”de”や”fr”などは、”German”や”French”が返ってくるので、それを追加
　　　　　　theSet’s addObject:theName
　　　　end if
　　end repeat
　　
　　–NSCountedSetをNSMutableArrayに変換
　　set theArray to current application’s NSMutableArray’s array()
　　set theEnumerator to theSet’s objectEnumerator()
　　
　　–NSMutableArrayから順次取り出して、NSArrayに対してDictionaryを追加
　　repeat
　　　　set aValue to theEnumerator’s nextObject()
　　　　if aValue is missing value then exit repeat
　　　　theArray’s addObject:aValue
　　end repeat
　　
　　return theArray as list
　　
end getSpecifiedAppFilesLocalizationList

–指定階層下で、指定メタデータが指定パラメータであるファイルを取得（alias list）
on getFileListWithSpotLight(aMetaDataItem as string, aParam as string, startDir as {alias, string})
　　set sDirText to quoted form of POSIX path of startDir
　　set shellText to “/usr/bin/mdfind ’” & aMetaDataItem & ” == ＼”" & aParam & “＼”’ -onlyin “ & sDirText
　　try
　　　　set aRes to do shell script shellText
　　on error
　　　　return {}
　　end try
　　set pList to paragraphs of aRes
　　set aList to {}
　　repeat with i in pList
　　　　set aPath to POSIX file i
　　　　set aPath to aPath as alias
　　　　set the end of aList to aPath
　　end repeat
　　return aList
end getFileListWithSpotLight

★Click Here to Open This Script　

set aList to {{“Apple”, 1}, {“Orange”, 2}, {“Banana”, 100}, {“Meron”, 2}, {“Strawberry”, 0.1}, {“Lemon”, 3}, {“Takaaki Naganoya”, 5}, {“Piyomaru Software”, 11}}

set sortIndexes to {0} –Key Item id: begin from 0
set sortOrders to {true} –Ascending
set sortTypes to {“compare:”}
set sortKeys to {“length”, “self”}

set resArray to (current application’s SMSFord’s subarraysIn:(aList) sortedByIndexes:sortIndexes ascending:sortOrders sortTypes:sortTypes sortKeys:sortKeys |error|:(missing value))
set resList to resArray’s ASify() as list

–> {{”Apple”, 1}, {”Meron”, 2}, {”Lemon”, 3}, {”Orange”, 2}, {”Banana”, 100}, {”Strawberry”, 0.1}, {”Takaaki Naganoya”, 5}, {”Piyomaru Software”, 11}}

set sortIndexes to {0} –Key Item id: begin from 0
set sortOrders to {false} –Descending
set sortTypes to {“compare:”}
set sortKeys to {“length”, “self”}

set resArray to (current application’s SMSFord’s subarraysIn:(aList) sortedByIndexes:sortIndexes ascending:sortOrders sortTypes:sortTypes sortKeys:sortKeys |error|:(missing value))
set resList to resArray’s ASify() as list

–> {{”Piyomaru Software”, 11}, {”Takaaki Naganoya”, 5}, {”Strawberry”, 0.1}, {”Orange”, 2}, {”Banana”, 100}, {”Apple”, 1}, {”Meron”, 2}, {”Lemon”, 3}}

★Click Here to Open This Script　

set aList to {“Apple”, “Orange”, “Banana”, “Meron”, “Strawberry”, “Lemon”, “Takaaki Naganoya”, “Piyomaru Software”}
set bList to sort1DListByStringLength(aList as list, true) of me –昇順
–> {”Apple”, “Meron”, “Lemon”, “Orange”, “Banana”, “Strawberry”, “Takaaki Naganoya”, “Piyomaru Software”}–v1
–> {”Apple”, “Lemon”, “Meron”, “Banana”, “Orange”, “Strawberry”, “Takaaki Naganoya”, “Piyomaru Software”}–v2

set cList to sort1DListByStringLength(aList as list, false) of me –降順
–> {”Piyomaru Software”, “Takaaki Naganoya”, “Strawberry”, “Orange”, “Banana”, “Apple”, “Meron”, “Lemon”}–v1
–> {”Piyomaru Software”, “Takaaki Naganoya”, “Strawberry”, “Banana”, “Orange”, “Apple”, “Lemon”, “Meron”}–v2

–1D Listを文字列長でソート v2
on sort1DListByStringLength(aList as list, sortOrder as boolean)
　　set aArray to current application’s NSArray’s arrayWithArray:aList
　　set desc1 to current application’s NSSortDescriptor’s sortDescriptorWithKey:“length” ascending:sortOrder
　　set desc2 to current application’s NSSortDescriptor’s sortDescriptorWithKey:“self” ascending:true selector:“localizedCaseInsensitiveCompare:”
　　set bArray to aArray’s sortedArrayUsingDescriptors:{desc1, desc2}
　　set bList to (bArray’s ASify()) as list
　　return bList
end sort1DListByStringLength

★Click Here to Open This Script　

set aList to {100, 10, 1, 90, 300, 300}

set aRes to uniquifyAndSort1DList(aList, true)
–> {1, 10, 90, 100, 300}

–1D Listをユニーク化してソート
on uniquifyAndSort1DList(theList as list, aBool as boolean)
　　
　　set aArray to current application’s NSArray’s arrayWithArray:theList
　　set bArray to aArray’s valueForKeyPath:"@distinctUnionOfObjects.self"
　　set aDdesc to current application’s NSSortDescriptor’s sortDescriptorWithKey:"self" ascending:aBool selector:"compare:"
　　set cArray to bArray’s sortedArrayUsingDescriptors:{aDdesc}
　　
　　set bList to (cArray’s ASify()) as list
　　
　　return bList
end uniquifyAndSort1DList

★Click Here to Open This Script　

set aList to {“Apple”, “Orange”, “Banana”, “Meron”, “Strawberry”, “Lemon”, “Takaaki Naganoya”, “Piyomaru Software”}
set bList to sort1DListByStringLength(aList as list, true) of me –昇順
–> {”Apple”, “Meron”, “Lemon”, “Orange”, “Banana”, “Strawberry”, “Takaaki Naganoya”, “Piyomaru Software”}

set cList to sort1DListByStringLength(aList as list, false) of me –降順
–> {”Piyomaru Software”, “Takaaki Naganoya”, “Strawberry”, “Orange”, “Banana”, “Apple”, “Meron”, “Lemon”}

–1D Listを文字列長でソート
on sort1DListByStringLength(aList as list, sortOrder as boolean)
　　set aArray to current application’s NSArray’s arrayWithArray:aList
　　set descs to current application’s NSArray’s arrayWithObject:(current application’s NSSortDescriptor’s sortDescriptorWithKey:“length” ascending:sortOrder)
　　
　　set bArray to aArray’s sortedArrayUsingDescriptors:descs
　　set bList to (bArray’s ASify()) as list
　　return bList
end sort1DListByStringLength

★Click Here to Open This Script　

set aRecList to {{aName:“piyoko”, aVal:100}, {aName:“piyomaru”, aVal:80}, {aName:“piyoo”, aVal:10}}

set bList to sortRecListByLabel(aRecList, “aVal”, true) of me –昇順ソート
–> {{aName:”piyoo”, aVal:10}, {aName:”piyomaru”, aVal:80}, {aName:”piyoko”, aVal:100}}

set bList to sortRecListByLabel(aRecList, “aVal”, false) of me –降順ソート
–> {{aName:”piyoko”, aVal:100}, {aName:”piyomaru”, aVal:80}, {aName:”piyoo”, aVal:10}}

–リストに入れたレコードを、指定の属性ラベルの値でソート
on sortRecListByLabel(aRecList, aLabelStr, ascendF)
　　set aArray to current application’s NSArray’s arrayWithArray:aRecList
　　
　　set sortDesc to current application’s NSSortDescriptor’s alloc()’s initWithKey:aLabelStr ascending:ascendF
　　set sortDescArray to current application’s NSArray’s arrayWithObjects:sortDesc
　　set sortedArray to aArray’s sortedArrayUsingDescriptors:sortDescArray
　　
　　set bList to (sortedArray’s ASify()) as list
　　return bList
end sortRecListByLabel

★Click Here to Open This Script　

script orig
　　property aList : {}
end script

set aList of orig to {}

set aList to {}
repeat 10000 times
　　set the end of aList of orig to {“a”, random number from 1 to 10, random number from 1 to 10, random number from 1 to 100}
end repeat

set a1Dat to current application’s NSDate’s timeIntervalSinceReferenceDate()

–2D Listのソート
set sortIndexes to {1, 2, 3} –Key Item id: begin from 0
set sortOrders to {true, true, true}
set sortTypes to {“compare:”, “compare:”, “compare:”}
set resList to (current application’s SMSFord’s subarraysIn:(aList of orig) sortedByIndexes:sortIndexes ascending:sortOrders sortTypes:sortTypes |error|:(missing value)) as list

set b1Dat to current application’s NSDate’s timeIntervalSinceReferenceDate()
set c1Dat to b1Dat - a1Dat

return c1Dat

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

script orig
　　property aList : {}
end script

set aList of orig to {}

–複数キーによるソートテスト3（複数キーを許容）
set aList to {}
repeat 10000 times
　　set the end of aList of orig to {“a”, random number from 1 to 10, random number from 1 to 10, random number from 1 to 100}
end repeat

set a1Dat to current application’s NSDate’s timeIntervalSinceReferenceDate()

set resList to multiKeySortDescending(aList of orig, {2, 3, 4}) of multiKeySort

set b1Dat to current application’s NSDate’s timeIntervalSinceReferenceDate()
set c1Dat to b1Dat - a1Dat

return c1Dat

–複数キーによるソート
script multiKeySort
　　
　　script spd
　　　　property aList : {} –ソート対象の２D Listが入る
　　　　property bList : {} –1次キーでソートした結果が入る
　　　　property cList : {} –1次キーでソートした結果のうち、１次キーで同じ値が連続する範囲が入る {{1,3},{10,20}}
　　　　
　　　　property dList : {} –２次キーでソートする対象の一部のリストが入る（ワーク用）
　　　　property eList : {} –２次キーでソートした結果のリストが入る（ワーク用）
　　end script
　　
　　
　　–複数キー（Primary, Secondary……）による降順ソート。キーは指定用のリストに入れる
　　on multiKeySortDescending(aList, keyList)
　　　　
　　　　–Initialize
　　　　set aList of spd to {}
　　　　set bList of spd to {}
　　　　
　　　　
　　　　–Param Check
　　　　set aLen to length of keyList
　　　　if class of keyList is not equal to list then
　　　　　　return false –キー値のリストがlistではなかった場合
　　　　end if
　　　　
　　　　–ソート対象の2D Listの要素数を取得
　　　　set tmpLen to length of first item of aList
　　　　repeat with i in keyList
　　　　　　if i > tmpLen then
　　　　　　　　return false –キー値として指定した内容が、ソート対象のリストの要素数よりも大きかった場合
　　　　　　end if
　　　　end repeat
　　　　
　　　　
　　　　set firstKeyNo to first item of keyList
　　　　
　　　　–１次キーで2D Listをソート（降順）
　　　　set bList of spd to shellSortListDescending(aList, firstKeyNo) of me
　　　　
　　　　–複数キーによるソート検証および実行ループ
　　　　repeat with iii from 1 to aLen - 1
　　　　　　
　　　　　　set cList of spd to {}
　　　　　　set dList of spd to {}
　　　　　　set eList of spd to {}
　　　　　　
　　　　　　–n次キーの値が連続する箇所を探す
　　　　　　set curData to missing value
　　　　　　
　　　　　　set sucF to false –データ連続箇所検出中フラグ（false=非連続、true=連続中）
　　　　　　set biginItem to 0
　　　　　　set endItem to 0
　　　　　　
　　　　　　set itemC to 0
　　　　　　
　　　　　　repeat with i in bList of spd
　　　　　　　　set thisData to item (item iii of keyList) of i –n次キー
　　　　　　　　
　　　　　　　　–現在の値と前の値が等しい（連続箇所を検出した、あるいは連続箇所の中にいる）
　　　　　　　　if curData = thisData then
　　　　　　　　　　
　　　　　　　　　　if sucF = false then
　　　　　　　　　　　　set biginItem to itemC
　　　　　　　　　　　　set sucF to true
　　　　　　　　　　else if sucF = true then
　　　　　　　　　　　　–連続箇所の検索継続中、何もしない
　　　　　　　　　　end if
　　　　　　　　　　
　　　　　　　　else
　　　　　　　　　　–現在の値と前の値が等しくない（連続していない、あるいは連続箇所の末尾を検出した）
　　　　　　　　　　if sucF = true then
　　　　　　　　　　　　set the end of cList of spd to {biginItem, itemC}
　　　　　　　　　　　　set sucF to false
　　　　　　　　　　end if
　　　　　　　　　　
　　　　　　　　　　set curData to thisData
　　　　　　　　　　
　　　　　　　　end if
　　　　　　　　
　　　　　　　　set itemC to itemC + 1
　　　　　　　　
　　　　　　end repeat
　　　　　　
　　　　　　–n次キーの連続状態の検出中のままリスト末尾に来た場合には、最終データを出力する
　　　　　　if sucF = true and curData = thisData then
　　　　　　　　set the end of cList of spd to {biginItem, itemC}
　　　　　　end if
　　　　　　
　　　　　　
　　　　　　–n次キーによる重複箇所がない場合には、n次キーによるソート結果をそのまま返す
　　　　　　if cList of spd = {} then
　　　　　　　　return bList of spd
　　　　　　end if
　　　　　　
　　　　　　–n+1次キーによる部分ソートし直し
　　　　　　repeat with i in cList of spd
　　　　　　　　set {tmpB, tmpE} to i
　　　　　　　　
　　　　　　　　copy items tmpB thru tmpE of (bList of spd) to (dList of spd)
　　　　　　　　set (eList of spd) to shellSortListDescending((dList of spd), (item (iii + 1) of keyList)) of me
　　　　　　　　
　　　　　　　　set tmpCounter to 1
　　　　　　　　repeat with ii from tmpB to tmpE
　　　　　　　　　　copy item tmpCounter of (eList of spd) to item ii of (bList of spd)
　　　　　　　　　　set tmpCounter to tmpCounter + 1
　　　　　　　　end repeat
　　　　　　end repeat
　　　　　　
　　　　end repeat
　　　　
　　　　return (bList of spd)
　　　　
　　end multiKeySortDescending
　　
　　–シェルソートで入れ子のリストを降順ソート
　　on shellSortListDescending(aSortList, aKeyItem)
　　　　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 (contents of item aKeyItem of (oBj’s list’s item (j - gap + 1)) < item aKeyItem of 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 shellSortListDescending
　　
end script

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

set aList to {“-1.1″, “1″, “10″, “0.1″, “1.1″, “1.12″, “-1″, “-100″} –Original List
set aRes to sort1DNumList_ascOrder_(aList, true)
–> {”-100″, “-1.1″, “-1″, “0.1″, “1″, “1.1″, “1.12″, “10″}–sort ascending

set bRes to sort1DNumList_ascOrder_(aList, false)
–> {”10″, “1.12″, “1.1″, “1″, “0.1″, “-1″, “-1.1″, “-100″}–sort descending

–Sort 1-Dimension List（String Number List）
on sort1DNumList:theList ascOrder:aBool
　　tell current application’s NSSet to set theSet to setWithArray_(theList)
　　tell current application’s NSSortDescriptor to set theDescriptor to sortDescriptorWithKey_ascending_(“floatValue”, aBool)
　　set sortedList to theSet’s sortedArrayUsingDescriptors:{theDescriptor}
　　return (sortedList) as list
end sort1DNumList:ascOrder:

(*
–Sort 1-Dimension List（Number List）
on sort1DNumList2:theList ascOrder:aBool
　　set anArray to current application’s NSArray’s arrayWithArray:theList
　　set sortedList to anArray’s sortedArrayUsingSelector:(”numberCompare:”)
　　return (sortedList) as list
end sort1DNumList2:ascOrder:
*)

–Sort 1-Dimension List（String List）
on sort1DList:theList ascOrder:aBool
　　set aDdesc to current application’s NSSortDescriptor’s sortDescriptorWithKey:“self” ascending:aBool selector:“localizedCaseInsensitiveCompare:”
　　set theArray to current application’s NSArray’s arrayWithArray:theList
　　return (theArray’s sortedArrayUsingDescriptors:{aDdesc}) as list
end sort1DList:ascOrder:

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

–昇順ソート（ASOC）
set aList to {“ん”, “ば”, “は”, “ぱ”, “あ”, “ま”, “ぁ”, “ｱ”, “か”, “ｧ”}
set aRes to sort1DList_ascOrder_(aList, true)
–> {”あ”, “ぁ”, “ｱ”, “ｧ”, “か”, “は”, “ば”, “ぱ”, “ま”, “ん”}

–降順ソート（ASOC）
set bRes to sort1DList_ascOrder_(aList, false)
–> {”ん”, “ま”, “ぱ”, “ば”, “は”, “か”, “あ”, “ぁ”, “ｱ”, “ｧ”}

–昇順ソート（AppleScript）
set cRes to shellSortAscending(aList)
–> {”あ”, “ｧ”, “ぁ”, “ｱ”, “か”, “は”, “ば”, “ぱ”, “ま”, “ん”}

–昇順ソート（AppleScript）
set dRes to shellSortDescending(aList)
–> {”ん”, “ま”, “ぱ”, “ば”, “は”, “か”, “ぁ”, “ｱ”, “あ”, “ｧ”}

set aList to {“1″, “01″, “10″, “000.1″, “1.1″, “-1″, “-100″}
set aRes to sort1DList_ascOrder_(aList, true)
–> {”-1″, “-100″, “000.1″, “01″, “1″, “1.1″, “10″}

set aList to {1, 1, 10, 0.1, 1.1, -1, -100}
set aRes to sort1DNumList_ascOrder_(aList, true)
–> {-100, -1, 0.10000000149, 1, 1.100000023842, 10}

–1D List（数値）をsort / ascOrderがtrueだと昇順ソート、falseだと降順ソート
on sort1DNumList:theList ascOrder:aBool
　　tell current application’s NSSet to set theSet to setWithArray_(theList)
　　tell current application’s NSSortDescriptor to set theDescriptor to sortDescriptorWithKey_ascending_(missing value, true)
　　set sortedList to theSet’s sortedArrayUsingDescriptors:{theDescriptor}
　　return (sortedList) as list
end sort1DNumList:ascOrder:

–1D List（文字）をsort / ascOrderがtrueだと昇順ソート、falseだと降順ソート
on sort1DList:theList ascOrder:aBool
　　set aDdesc to current application’s NSSortDescriptor’s sortDescriptorWithKey:“self” ascending:aBool selector:“localizedCaseInsensitiveCompare:”
　　set theArray to current application’s NSArray’s arrayWithArray:theList
　　return (theArray’s sortedArrayUsingDescriptors:{aDdesc}) as list
end sort1DList:ascOrder:

–入れ子ではないリストの昇順ソート
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

–入れ子ではないリストの降順ソート
on shellSortDescending(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 shellSortDescending

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

use AppleScript version “2.4″
use framework “Foundation”
use scripting additions

set e to 0.1
set f to numberFloatWith_(e)
–> 0.1

on numberFloatWith:aNum
　　set theNum to current application’s NSNumber’s numberWithFloat:aNum
　　return (theNum’s descriptionWithLocale:(current application’s NSLocale’s systemLocale())) as real
end numberFloatWith:

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

script spd
　　property aList : {}
end script

–テスト用データリストの作成（10万アイテム）
set (aList of spd) to {}
repeat with i from 1 to 100000
　　set the end of (aList of spd) to (random number from 10000 to 99999) as string
end repeat

–昇順ソートの時間計測
set a1Dat to current date

set aRes to sort1DList_ascOrder_((aList of spd), true)
set item1 to contents of (items -9 thru -1 of aRes)

set b1Dat to current date
set c1Dat to b1Dat - a1Dat

–降順ソートの時間計測
set a2Dat to current date

set aRes to sort1DList_ascOrder_((aList of spd), false)
set item1 to contents of (items -9 thru -1 of aRes)

set b2Dat to current date
set c2Dat to b2Dat - a2Dat

return {c1Dat, c2Dat}
–> {1, 1}

–1D Listをsort / ascOrderがtrueだと昇順ソート、falseだと降順ソート
on sort1DList:theList ascOrder:aBool
　　set aDdesc to current application’s NSSortDescriptor’s sortDescriptorWithKey:“self” ascending:aBool selector:“localizedCaseInsensitiveCompare:”
　　set theArray to current application’s NSArray’s arrayWithArray:theList
　　return (theArray’s sortedArrayUsingDescriptors:{aDdesc}) as list
end sort1DList:ascOrder:

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

script spd
　　property aList : {}
end script

–テスト用データリストの作成（10万アイテム）
set (aList of spd) to {}
repeat with i from 1 to 100000
　　set the end of (aList of spd) to (random number from 10000 to 99999) as string
end repeat

–昇順ソートの時間計測
set a1Dat to current date

set aRes to shellSortAscending(aList of spd)

set b1Dat to current date
set c1Dat to b1Dat - a1Dat

–降順ソートの時間計測
set a2Dat to current date

set aRes to shellSortDescending(aList of spd)

set b2Dat to current date
set c2Dat to b2Dat - a2Dat

return {c1Dat, c2Dat}
–> {19, 8}

–入れ子ではないリストの昇順ソート
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

–入れ子ではないリストの降順ソート
on shellSortDescending(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 shellSortDescending

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

set aList of orig to {}

–複数キーによるソートテスト3（複数キーを許容）
set aList to {}
repeat 10000 times
　　set the end of aList of orig to {“a”, random number from 1 to 10, random number from 1 to 10, random number from 1 to 100}
end repeat

set sDat to current date
set resList to multiKeySortDescending(aList of orig, {2, 3, 4}) of multiKeySort
set eDat to current date

return (eDat - sDat)

–複数キーによるソート
script multiKeySort
　　
　　script spd
　　　　property aList : {} –ソート対象の２D Listが入る
　　　　property bList : {} –1次キーでソートした結果が入る
　　　　property cList : {} –1次キーでソートした結果のうち、１次キーで同じ値が連続する範囲が入る {{1,3},{10,20}}
　　　　
　　　　property dList : {} –２次キーでソートする対象の一部のリストが入る（ワーク用）
　　　　property eList : {} –２次キーでソートした結果のリストが入る（ワーク用）
　　end script
　　
　　
　　–複数キー（Primary, Secondary……）による降順ソート。キーは指定用のリストに入れる
　　on multiKeySortDescending(aList, keyList)
　　　　
　　　　–Initialize
　　　　set aList of spd to {}
　　　　set bList of spd to {}
　　　　
　　　　
　　　　–Param Check
　　　　set aLen to length of keyList
　　　　if class of keyList is not equal to list then
　　　　　　return false –キー値のリストがlistではなかった場合
　　　　end if
　　　　
　　　　–ソート対象の2D Listの要素数を取得
　　　　set tmpLen to length of first item of aList
　　　　repeat with i in keyList
　　　　　　if i > tmpLen then
　　　　　　　　return false –キー値として指定した内容が、ソート対象のリストの要素数よりも大きかった場合
　　　　　　end if
　　　　end repeat
　　　　
　　　　
　　　　set firstKeyNo to first item of keyList
　　　　
　　　　–１次キーで2D Listをソート（降順）
　　　　set bList of spd to shellSortListDescending(aList, firstKeyNo) of me
　　　　
　　　　–複数キーによるソート検証および実行ループ
　　　　repeat with iii from 1 to aLen - 1
　　　　　　
　　　　　　set cList of spd to {}
　　　　　　set dList of spd to {}
　　　　　　set eList of spd to {}
　　　　　　
　　　　　　–n次キーの値が連続する箇所を探す
　　　　　　set curData to missing value
　　　　　　
　　　　　　set sucF to false –データ連続箇所検出中フラグ（false=非連続、true=連続中）
　　　　　　set biginItem to 0
　　　　　　set endItem to 0
　　　　　　
　　　　　　set itemC to 0
　　　　　　
　　　　　　repeat with i in bList of spd
　　　　　　　　set thisData to item (item iii of keyList) of i –n次キー
　　　　　　　　
　　　　　　　　–現在の値と前の値が等しい（連続箇所を検出した、あるいは連続箇所の中にいる）
　　　　　　　　if curData = thisData then
　　　　　　　　　　
　　　　　　　　　　if sucF = false then
　　　　　　　　　　　　set biginItem to itemC
　　　　　　　　　　　　set sucF to true
　　　　　　　　　　else if sucF = true then
　　　　　　　　　　　　–連続箇所の検索継続中、何もしない
　　　　　　　　　　end if
　　　　　　　　　　
　　　　　　　　else
　　　　　　　　　　–現在の値と前の値が等しくない（連続していない、あるいは連続箇所の末尾を検出した）
　　　　　　　　　　if sucF = true then
　　　　　　　　　　　　set the end of cList of spd to {biginItem, itemC}
　　　　　　　　　　　　set sucF to false
　　　　　　　　　　end if
　　　　　　　　　　
　　　　　　　　　　set curData to thisData
　　　　　　　　　　
　　　　　　　　end if
　　　　　　　　
　　　　　　　　set itemC to itemC + 1
　　　　　　　　
　　　　　　end repeat
　　　　　　
　　　　　　–n次キーの連続状態の検出中のままリスト末尾に来た場合には、最終データを出力する
　　　　　　if sucF = true and curData = thisData then
　　　　　　　　set the end of cList of spd to {biginItem, itemC}
　　　　　　end if
　　　　　　
　　　　　　
　　　　　　–n次キーによる重複箇所がない場合には、n次キーによるソート結果をそのまま返す
　　　　　　if cList of spd = {} then
　　　　　　　　return bList of spd
　　　　　　end if
　　　　　　
　　　　　　–n+1次キーによる部分ソートし直し
　　　　　　repeat with i in cList of spd
　　　　　　　　set {tmpB, tmpE} to i
　　　　　　　　
　　　　　　　　copy items tmpB thru tmpE of (bList of spd) to (dList of spd)
　　　　　　　　set (eList of spd) to shellSortListDescending((dList of spd), (item (iii + 1) of keyList)) of me
　　　　　　　　
　　　　　　　　set tmpCounter to 1
　　　　　　　　repeat with ii from tmpB to tmpE
　　　　　　　　　　copy item tmpCounter of (eList of spd) to item ii of (bList of spd)
　　　　　　　　　　set tmpCounter to tmpCounter + 1
　　　　　　　　end repeat
　　　　　　end repeat
　　　　　　
　　　　end repeat
　　　　
　　　　return (bList of spd)
　　　　
　　end multiKeySortDescending
　　
　　–シェルソートで入れ子のリストを降順ソート
　　on shellSortListDescending(aSortList, aKeyItem)
　　　　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 (contents of item aKeyItem of (oBj’s list’s item (j - gap + 1)) < item aKeyItem of 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 shellSortListDescending
　　
end script