如何將SAPI文本保存爲VBScript中的音頻文件的語音？

Question

我對文字下面VBScript代碼到語音轉換：

Set objVoice = CreateObject("SAPI.SpVoice") 
objVoice.Speak Inputbox("Enter Text") 

我要演講保存到一個音頻文件。我怎樣才能做到這一點？

Answer 1

您可以將SAPI輸出保存到一個.wav文件如下：

1. 創建和使用SpFileStream.Open方法打開一個.wav文件作爲流。

2. 將此文件流指定給SpVoice.AudioStream屬性。

下面是一個例子：

Const SAFT48kHz16BitStereo = 39 
Const SSFMCreateForWrite = 3 ' Creates file even if file exists and so destroys or overwrites the existing file 

Dim oFileStream, oVoice 

Set oFileStream = CreateObject("SAPI.SpFileStream") 
oFileStream.Format.Type = SAFT48kHz16BitStereo 
oFileStream.Open "C:\Work\Sample.wav", SSFMCreateForWrite 

Set oVoice = CreateObject("SAPI.SpVoice") 
Set oVoice.AudioOutputStream = oFileStream 
oVoice.Speak "Hello world" 

oFileStream.Close