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

property NSArray : a reference to current application’s NSArray
property NSPredicate : a reference to current application’s NSPredicate

set targAppBundleID to "com.apple.ScriptEditor2"
set targKey to "CFBundleName"
set aLocale to (current application’s NSLocale’s currentLocale())

set locResList to getAppInfoPlistValueInEveryLocalizedLangs(targAppBundleID, targKey, aLocale) of me
–> {{"ヘブライ語", "עורך התסריטים"}, {"韓国語", "스크립트 편집기"}, {"インドネシア語", "Editor Skrip"}, {"オランダ語", "Scripteditor"}, {"トルコ語", "Betik Düzenleyici"}, {"フィンランド語", "Skriptieditori"}, {"ハンガリー語", "Szkriptszerkesztő"}, {"ロシア語", "Редактор скриптов"}, {"イタリア語", "Script Editor"}, {"スペイン語（ラテンアメリカ）", "Editor de Scripts"}, {"ギリシャ語", "Επεξεργασία σκριπτ"}, {"カタロニア語", "Editor de Scripts"}, {"フランス語（カナダ）", "Éditeur de script"}, {"中国語（台湾）", "工序指令編寫程式"}, {"中国語（香港）", "程式碼編寫程式"}, {"ポーランド語", "Edytor skryptów"}, {"スウェーデン語", "Skriptredigerare"}, {"ノルウェー語", "Prosedyreredigering"}, {"アラビア語", "محرر البرامج النصية"}, {"英語", "Script Editor"}, {"デンマーク語", "Instruksværktøj"}, {"ヒンディー語", "स्क्रिप्ट संपादक"}, {"タイ語", "ตัวแก้ไขสคริปต์"}, {"中国語（中国本土）", "脚本编辑器"}, {"英語（イギリス）", "Script Editor"}, {"マレー語", "Editor Skrip"}, {"チェコ語", "Editor skriptů"}, {"スロバキア語", "Script Editor"}, {"英語（オーストラリア）", "Script Editor"}, {"スロベニア語", "Skriptni urejevalnik"}, {"ドイツ語", "Skripteditor"}, {"ベトナム語", "Trình soạn thảo tập lệnh"}, {"ポルトガル語（ブラジル）", "Editor de Scripts"}, {"スペイン語", "Editor de Scripts"}, {"ウクライナ語", "Редактор скриптів"}, {"ルーマニア語", "Editor scripturi"}, {"フランス語", "Éditeur de script"}, {"クロアチア語", "Urednik skripte"}, {"ポルトガル語（ポルトガル）", "Editor de Scripts"}, {"日本語", "スクリプトエディタ"}}

on getAppInfoPlistValueInEveryLocalizedLangs(targAppBundleID, targKey, aLocale)
　　script spd
　　　　property urlList : {}
　　end script
　　
　　–macOS 13以降がターゲット
　　set v1 to system attribute "sys1" –> 10, 11, 12, 13, 14, 15….
　　if v1 < 13 then error "This Script require macOS 13 or later"
　　
　　–指定アプリのバンドル内のResourceから「InfoPlist.loctable」で終わるファイル名のパスを抽出
　　tell application "Finder"
　　　　set defPath to application file id targAppBundleID
　　end tell
　　
　　set defPath to (POSIX path of (defPath as alias)) & "Contents/Resources" –Cocoa流のPOSIX path
　　set fList to getFilesIn(defPath) of me
　　
　　set anArray to NSArray’s arrayWithArray:fList
　　set aPred to NSPredicate’s predicateWithFormat:"SELF ENDSWITH ’InfoPlist.loctable’"
　　set locRes to (anArray’s filteredArrayUsingPredicate:aPred) as list
　　
　　set resList to {}
　　
　　
　　–.loctableファイルでループ（1つだけだが）
　　repeat with i in locRes
　　　　set j to contents of i
　　　　set (urlList of spd) to (my readPlistAt:(j))
　　　　set langKeys to ((urlList of spd)’s allKeys()) as list
　　　　
　　　　–Language Codeでループ
　　　　repeat with ii in langKeys
　　　　　　set jj to contents of ii
　　　　　　set aLangDat to ((urlList of spd)’s valueForKey:jj)
　　　　　　
　　　　　　—plist（=loctable)のlabelでループ
　　　　　　set allLangKeys to (aLangDat’s allKeys()) as list
　　　　　　repeat with iii in allLangKeys
　　　　　　　　set jjj to contents of iii
　　　　　　　　set aVal to (aLangDat’s valueForKey:(jjj))
　　　　　　　　
　　　　　　　　if jjj = targKey then
　　　　　　　　　　set locLangName to getLangNameWithLocale(jj, aLocale) of me
　　　　　　　　　　set the end of resList to {locLangName, aVal as string}
　　　　　　　　　　exit repeat
　　　　　　　　end if
　　　　　　end repeat
　　　　end repeat
　　end repeat
　　
　　return resList
end getAppInfoPlistValueInEveryLocalizedLangs

–Read Plist
on readPlistAt:thePath
　　set thePath to current application’s NSString’s stringWithString:thePath
　　set thePath to thePath’s stringByExpandingTildeInPath()
　　set theDict to current application’s NSDictionary’s dictionaryWithContentsOfFile:thePath
　　return theDict
end readPlistAt:

–指定フォルダ内のファイルのフルパス一覧を返す
on getFilesIn(posixPath)
　　script spd
　　　　property allItems : {}
　　end script
　　
　　set allItems of spd to {}
　　
　　— make URL
　　set theNSURL to current application’s |NSURL|’s fileURLWithPath:posixPath
　　
　　— make file manager
　　set theNSFileManager to current application’s NSFileManager’s new()
　　
　　— get URL enumerator
　　set theNSFileEnumerator to theNSFileManager’s enumeratorAtURL:theNSURL includingPropertiesForKeys:{current application’s NSURLIsDirectoryKey, current application’s NSURLIsPackageKey} options:((current application’s NSDirectoryEnumerationSkipsPackageDescendants) + (current application’s NSDirectoryEnumerationSkipsHiddenFiles as integer)) errorHandler:(missing value)
　　
　　— get all items from enumerator
　　set (allItems of spd) to theNSFileEnumerator’s allObjects()
　　set theFolders to {} — to store folders
　　
　　— loop through
　　repeat with i from 1 to count of (allItems of spd)
　　　　— is it a directory?
　　　　set {theResult, isDirectory} to ((item i of (allItems of spd))’s getResourceValue:(reference) forKey:(current application’s NSURLIsDirectoryKey) |error|:(missing value))
　　　　if isDirectory as boolean = false then
　　　　　　set {theResult, isPackage} to ((item i of (allItems of spd))’s getResourceValue:(reference) forKey:(current application’s NSURLIsPackageKey) |error|:(missing value))
　　　　　　
　　　　　　— is it not a package?
　　　　　　if not isPackage as boolean then
　　　　　　　　set end of theFolders to (item i of (allItems of spd))’s |path|() as string –«class furl»
　　　　　　end if
　　　　end if
　　end repeat
　　
　　return theFolders
end getFilesIn

on getLangNameWithLocale(langCode, aLocale)
　　set aLangName to (aLocale’s displayNameForKey:(current application’s NSLocaleIdentifier) value:langCode) as string
　　return aLangName
end getLangNameWithLocale