use AppleScript version "2.4"
use scripting additions
use framework "Foundation"

property NSLocale : a reference to current application’s NSLocale
property NSNumberFormatter : a reference to current application’s NSNumberFormatter
property NSMutableArray : a reference to current application’s NSMutableArray
property NSSortDescriptor : a reference to current application’s NSSortDescriptor

set nRes to getLocaleNumFormat() of me
–> {{|color|:"Red", cc:"001"}, {|color|:"Red", cc:"003"}, {|color|:"Blue", cc:"150"}, {|color|:"Blue", cc:"419"}, {|color|:"Red", cc:"AD"}, {|color|:"Blue", cc:"AE"}, {|color|:"Yellow", cc:"AF"}, {|color|:"Blue", cc:"AG"}, {|color|:"Blue", cc:"AI"}, {|color|:"Red", cc:"AL"}, {|color|:"Red", cc:"AM"}, {|color|:"Red", cc:"AO"}, {|color|:"Red", cc:"AR"}, {|color|:"Blue", cc:"AS"}, {|color|:"Red", cc:"AT"}, {|color|:"Blue", cc:"AU"}…}

on getLocaleNumFormat()
　　— 1. データの収集
　　set allId to NSLocale’s availableLocaleIdentifiers()
　　set countryDataList to {} — 最終的な国別データ（レコードのリスト）
　　
　　repeat with ident in allId
　　　　set aLocale to (NSLocale’s alloc()’s initWithLocaleIdentifier:ident)
　　　　set countryCode to (aLocale’s objectForKey:(current application’s NSLocaleCountryCode)) as string
　　　　
　　　　if countryCode is not "missing value" and countryCode is not "" then
　　　　　　set formatter to NSNumberFormatter’s alloc()’s init()
　　　　　　(formatter’s setLocale:aLocale)
　　　　　　set decimalSeparator to formatter’s decimalSeparator() as string
　　　　　　
　　　　　　— 色の判定
　　　　　　set col to "Yellow"
　　　　　　if decimalSeparator is "." then
　　　　　　　　set col to "Blue"
　　　　　　else if decimalSeparator is "," then
　　　　　　　　set col to "Red"
　　　　　　end if
　　　　　　
　　　　　　— 既存データの上書きロジック
　　　　　　set foundIndex to -1
　　　　　　repeat with i from 1 to count of countryDataList
　　　　　　　　if cc of item i of countryDataList is countryCode then
　　　　　　　　　　set foundIndex to i
　　　　　　　　　　exit repeat
　　　　　　　　end if
　　　　　　end repeat
　　　　　　
　　　　　　if foundIndex is not -1 then
　　　　　　　　— 既にデータがある場合、新しい色が「赤」なら上書きする
　　　　　　　　if col is "red" then
　　　　　　　　　　set item foundIndex of countryDataList to {cc:countryCode, |color|:col}
　　　　　　　　　　— それ以外の場合は何もしない（最初に見つかった色を維持）
　　　　　　　　end if
　　　　　　else
　　　　　　　　— 新しい国コードの場合はそのまま追加
　　　　　　　　set end of countryDataList to {cc:countryCode, |color|:col}
　　　　　　end if
　　　　end if
　　end repeat
　　
　　— 2. 国コード順にソート（Cocoaの機能を利用）
　　set nsList to NSMutableArray’s arrayWithArray:countryDataList
　　set sortDesc to NSSortDescriptor’s sortDescriptorWithKey:"cc" ascending:true
　　nsList’s sortUsingDescriptors:{sortDesc}
　　
　　return nsList as list
end getLocaleNumFormat

set raw1 to "2,5"
set raw2 to "1.234,56"
set raw3 to "1234.5" — ISO形式でもOK

set n1 to normalizeNumberString(raw1) — "2.5"
set n2 to normalizeNumberString(raw2) — "1234.56"
set n3 to normalizeNumberString(raw3) — "1234.5"

log (n1 as number)
log (n2 as number)
log (n3 as number)

— 数値文字列を強制的に「.」小数点に直して返す
on normalizeNumberString(txt)
　　— まず前後の空白・改行を削る（純AppleScript）
　　set t to trimText(txt)
　　
　　— 「1.234,56」系: "." を千区切りとみなして除去
　　repeat while t contains "."
　　　　set AppleScript’s text item delimiters to "."
　　　　set t to text items of t
　　　　set AppleScript’s text item delimiters to ""
　　　　set t to t as text
　　end repeat
　　
　　— 「,」を小数点として「.」に統一
　　set AppleScript’s text item delimiters to ","
　　set toks to text items of t
　　set AppleScript’s text item delimiters to "."
　　set t to toks as text
　　
　　set AppleScript’s text item delimiters to ""
　　return t
end normalizeNumberString