len0rd/rockbox
1
0
Fork 1
mirror of https://github.com/Rockbox/rockbox.git synced 2025-10-14 10:37:38 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

Simplify and better integrate the SAPI5 voice list output code (less duplication), and add list output for SAPI4.

Browse source 
git-svn-id: svn://svn.rockbox.org/rockbox/trunk@16269 a1c6a512-1295-4272-9138-f99709370657
This commit is contained in:
Jens Arnold 2008-02-10 13:38:05 +00:00
parent 62e6f35c4c
commit bec914e724
1 changed files with 26 additions and 37 deletions
Download patch file Download diff file Expand all files Collapse all files

63
tools/sapi_voice.vbs
View file

@ -38,12 +38,11 @@ Dim sLanguage, sVoice, sSpeed
Dim oSpVoice, oSpFS ' SAPI5 voice and filestream Dim oSpVoice, oSpFS ' SAPI5 voice and filestream
Dim oTTS, nMode ' SAPI4 TTS object, mode selector Dim oTTS, nMode ' SAPI4 TTS object, mode selector
Dim oVoice ' for traversing the list of voices
Dim nLangID, sSelectString Dim nLangID, sSelectString
Dim aLine, aData ' used in command reading Dim aLine, aData ' used in command reading
Dim counter, ende, list
On Error Resume Next On Error Resume Next
Set oShell = CreateObject("WScript.Shell") Set oShell = CreateObject("WScript.Shell")
@ -57,41 +56,6 @@ sLanguage = oArgs.Item("language")
sVoice = oArgs.Item("voice") sVoice = oArgs.Item("voice")
sSpeed = oArgs.Item("speed") sSpeed = oArgs.Item("speed")
' display a list of voices for the selected language
if bList Then
'Create SAPI5 object
Set oSpVoice = CreateObject("SAPI.SpVoice")
If Err.Number <> 0 Then
WScript.StdErr.WriteLine "Error - could not get SpVoice object." _
& " SAPI 5 not installed?"
WScript.Quit 1
End If
list = ""
' Select matching voice
For Each nLangID in LangIDs(sLanguage)
sSelectString = "Language=" & Hex(nLangID)
counter =0
ende =0
While ende <= 0
Err.Clear
Set oSpVoice.Voice = oSpVoice.GetVoices(sSelectString).Item(counter)
If Err.Number = 0 Then
list = list & oSpVoice.Voice.GetDescription & ","
Else
ende = 1
Err.Clear
End if
counter = counter + 1
Wend
Next
WScript.StdErr.WriteLine list
WScript.Quit 0
End If
If bSAPI4 Then If bSAPI4 Then
' Create SAPI4 ActiveVoice object ' Create SAPI4 ActiveVoice object
@ -107,6 +71,19 @@ If bSAPI4 Then
End If End If
oTTS.Initialized = 1 oTTS.Initialized = 1
If bList Then
' Just list available voices for the selected language
For Each nLangID in LangIDs(sLanguage)
For nMode = 1 To oTTS.CountEngines
If oTTS.LanguageID(nMode) = nLangID Then
WScript.StdErr.Write oTTS.ModeName(nMode) & ","
End If
Next
Next
WScript.StdErr.WriteLine
WScript.Quit 0
End If
' Select matching voice ' Select matching voice
For Each nLangID in LangIDs(sLanguage) For Each nLangID in LangIDs(sLanguage)
sSelectString = "LanguageID=" & nLangID sSelectString = "LanguageID=" & nLangID
@ -140,6 +117,18 @@ Else ' SAPI5
& " SAPI 5 not installed?" & " SAPI 5 not installed?"
WScript.Quit 1 WScript.Quit 1
End If End If
If bList Then
' Just list available voices for the selected language
For Each nLangID in LangIDs(sLanguage)
sSelectString = "Language=" & Hex(nLangID)
For Each oVoice in oSpVoice.GetVoices(sSelectString)
WScript.StdErr.Write oVoice.GetDescription & ","
Next
Next
WScript.StdErr.WriteLine
WScript.Quit 0
End If
' Select matching voice ' Select matching voice
For Each nLangID in LangIDs(sLanguage) For Each nLangID in LangIDs(sLanguage)