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