EnhancedやPremiumなどの高音質TTS音声を取得

macOS上のTTS Voiceから高音質のものだけを抽出するAppleScriptです。

macOS上のTTS環境が変化しており、「VoiceIdentifierが『premium』で終了しているもの」といったルールでは抽出できなくなりました。

そこで、実際にTTS Voiceを調査してmacOS 15時代の実態に合っている抽出を行なってみました（コロコロ変わるので次のOSで変わっているかも？）。

IDに「premium」が含まれるもののほか、「enhanced」が含まれているものが高音質音声であるもようです。

なお、実行結果はTTS Voiceのインストール状況に応じて変わる可能性が高く、実行環境ごとに異なるものとなるはずです。

AppleScript名：EnhancedやPremiumなどの高音質音声を取得.scptd

— Created 2018-02-15 by Takaaki Naganoya
— Modified 2024-10-13 by Takaaki Naganoya
— 2018-2024 Piyomaru Software
use AppleScript version "2.8"
use scripting additions
use framework "Foundation"

property NSColor : a reference to current application’s NSColor
property NSArray : a reference to current application’s NSArray
property NSSortDescriptor : a reference to current application’s NSSortDescriptor

set vList to getTTSPremiumVoiceName() of me
–> {"Allison（拡張）", "Ava（拡張）", "Chantal（拡張）", "Daniel（拡張）", "Evan（拡張）", "Joelle（拡張）", "Kate（拡張）", "Kyoko（拡張）", "Moira（拡張）", "Nathan（拡張）", "Noelle（拡張）", "Otoya（拡張）", "Samantha（拡張）", "Susan（拡張）", "Tom（拡張）", "Zoe（拡張）", "Amélie（プレミアム）", "Ava（プレミアム）", "Jamie（プレミアム）", "Zoe（プレミアム）"}

set vIDList to getTTSPremiumVoiceID() of me
–> {"com.apple.voice.enhanced.en-US.Allison", "com.apple.voice.enhanced.en-US.Ava", "com.apple.voice.enhanced.fr-CA.Chantal", "com.apple.voice.enhanced.en-GB.Daniel", "com.apple.voice.enhanced.en-US.Evan", "com.apple.voice.enhanced.en-US.Joelle", "com.apple.voice.enhanced.en-GB.Kate", "com.apple.voice.enhanced.ja-JP.Kyoko", "com.apple.voice.enhanced.en-IE.Moira", "com.apple.voice.enhanced.en-US.Nathan", "com.apple.voice.enhanced.en-US.Noelle", "com.apple.voice.enhanced.ja-JP.Otoya", "com.apple.voice.enhanced.en-US.Samantha", "com.apple.voice.enhanced.en-US.Susan", "com.apple.voice.enhanced.en-US.Tom", "com.apple.voice.enhanced.en-US.Zoe", "com.apple.voice.premium.fr-CA.Amelie", "com.apple.voice.premium.en-US.Ava", "com.apple.voice.premium.en-GB.Malcolm", "com.apple.voice.premium.en-US.Zoe"}

on getTTSPremiumVoiceName()
　　set outArray to current application’s NSMutableArray’s new()
　　
　　–Make Installed Voice List
　　set aList to current application’s NSSpeechSynthesizer’s availableVoices()
　　set bList to aList as list
　　
　　repeat with i in bList
　　　　set j to contents of i
　　　　set aDIc to (current application’s NSSpeechSynthesizer’s attributesForVoice:j)
　　　　(outArray’s addObject:aDIc)
　　end repeat
　　
　　set aPredicate to current application’s NSPredicate’s predicateWithFormat_("VoiceIdentifier contains[cd] %@ ", "enhanced")
　　set afilteredArray to outArray’s filteredArrayUsingPredicate:aPredicate
　　set aResList to (afilteredArray’s valueForKey:"VoiceName") as list
　　
　　set bPredicate to current application’s NSPredicate’s predicateWithFormat_("VoiceIdentifier contains[cd] %@ ", "premium")
　　set afilteredArray to outArray’s filteredArrayUsingPredicate:bPredicate
　　set bResList to (afilteredArray’s valueForKey:"VoiceName") as list
　　
　　
　　return (aResList & bResList)
end getTTSPremiumVoiceName

on getTTSPremiumVoiceID()
　　set outArray to current application’s NSMutableArray’s new()
　　
　　–Make Installed Voice List
　　set aList to current application’s NSSpeechSynthesizer’s availableVoices()
　　set bList to aList as list
　　
　　repeat with i in bList
　　　　set j to contents of i
　　　　set aDIc to (current application’s NSSpeechSynthesizer’s attributesForVoice:j)
　　　　(outArray’s addObject:aDIc)
　　end repeat
　　
　　
　　set aPredicate to current application’s NSPredicate’s predicateWithFormat_("VoiceIdentifier contains[cd] %@ ", "enhanced")
　　set afilteredArray to outArray’s filteredArrayUsingPredicate:aPredicate
　　set aResList to (afilteredArray’s valueForKey:"VoiceIdentifier") as list
　　
　　set bPredicate to current application’s NSPredicate’s predicateWithFormat_("VoiceIdentifier contains[cd] %@ ", "premium")
　　set afilteredArray to outArray’s filteredArrayUsingPredicate:bPredicate
　　set bResList to (afilteredArray’s valueForKey:"VoiceIdentifier") as list
　　
　　
　　return (aResList & bResList)
end getTTSPremiumVoiceID

Number	Japanese	English
1	一（いち）	one
10	十（じゅう）	ten
100	百（ひゃく）	hundred
1000	千（せん）	thousand
10000	万（まん）	10 thousand
100000	十万（じゅうまん）	100 thousand
1000000	百万（ひゃくまん）	million
10000000	千万（せんまん）	10 million
100000000	億（おく）	100million
1000000000000	兆（ちょう）	villion
1000000000000000	京（けい）	thousand villion
100000000000000000	100京（ひゃっけい）	trillion
10^24	丈（じょ）
10^28	穣（じょう）
10^52	恒河沙（ごうがしゃ）
10^56	阿僧祇（あそうぎ）
10^60	那由他（なゆた）
10^64	不可思議（ふかしぎ）
10^68	無量大数（むりょうたいすう）