diff options
| -rwxr-xr-x | tools/sapi_voice.vbs | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/tools/sapi_voice.vbs b/tools/sapi_voice.vbs index cdccef6..7d52329 100755 --- a/tools/sapi_voice.vbs +++ b/tools/sapi_voice.vbs @@ -34,7 +34,7 @@ Const SPSF_48kHz16BitMono = 38 Dim oShell, oArgs, oEnv
Dim bVerbose, bSAPI4
-Dim sLanguage, sVoice
+Dim sLanguage, sVoice, sSpeed
Dim oSpVoice, oSpFS ' SAPI5 voice and filestream
Dim oTTS, nMode ' SAPI4 TTS object, mode selector
@@ -53,6 +53,7 @@ Set oArgs = WScript.Arguments.Named bSAPI4 = oArgs.Exists("sapi4")
sLanguage = oArgs.Item("language")
sVoice = oArgs.Item("voice")
+sRate = oArgs.Item("speed")
If bSAPI4 Then
' Create SAPI4 ActiveVoice object
@@ -92,6 +93,9 @@ If bSAPI4 Then WScript.Quit 1
End If
oTTS.Select nMode
+
+ ' Speed selection
+ If sRate <> "" Then oSpVoice.Speed = sSpeed
Else ' SAPI5
' Create SAPI5 object
Set oSpVoice = CreateObject("SAPI.SpVoice")
@@ -123,6 +127,9 @@ Else ' SAPI5 WScript.Quit 1
End If
+ ' Speed selection
+ If sRate <> "" Then oSpVoice.Rate = sSpeed
+
' Filestream object for output
Set oSpFS = CreateObject("SAPI.SpFileStream")
oSpFS.Format.Type = AudioFormat(oSpVoice.Voice.GetAttribute("Vendor"))
|