Speaking Text Into A File

FuryCell · November 24, 2006

Just a quickly written scrap that can speak text directly into a wav file using COM. Just want to see if there is any interest. If intrest is high maybe I can add some proper error checking and clean the code up a bit.

_SpeakToWAV("hello",@ScriptDir&"\TEST.wav")

Func _SpeakToWAV($sText,$sFile)
    $ObjVoice=ObjCreate("Sapi.SpVoice")
    $ObjFile=ObjCreate("SAPI.SpFileStream.1")
    $objFile.Open($sFile,3)
    $objVoice.AudioOutputStream = $objFile
    $objVoice.Speak ($sText)
EndFunc

Edited November 24, 2006 by SolidSnake

Pakku · November 24, 2006

Hi,

i like the idee! it may for some of us very useful.

keep it up!

Edited November 16, 2010 by Pakku

FuryCell · November 24, 2006

Hi,
i like the idee! it may for some of us very useful.
keep it up!
Arjan

Thanks for the feedback. I will look into a way to implement error checking.

ConsultingJoe · November 24, 2006

Thanks for the feedback. I will look into a way to implement error checking.

Great job. i wanted to do this before but did know exactly. someone should write up a good UDF like IE.au3

theguy0000 · November 24, 2006

awsome...

the DtTvB · November 25, 2006

Wow, that's a cool script.

Zephir · November 25, 2006

Hey SolidSnake,

i like your func alot. however i would like to know whether there is a possibility to use diffrent languages? i tried german and russian texts .... and it sounded like crap cuz it uses a english dialect. i appreciate your help. greetz,

Zephir

FuryCell · November 25, 2006

@All

Thanks for the replies

@Zephir

Not sure. I always thought it would use the OS's default language. Anyone know how to change languages?

Michel Claveau · November 25, 2006

Hi!

Anyone know how to change languages?

Use:

.voice = .GetVoices("Name","LanguageCode")

Edited November 25, 2006 by Michel Claveau

Zephir · November 25, 2006

ok so far so good.

did some research and found this:

http://www.text-reader.com/trspeaker_Engli...eechengines.htm

here u can download the engines for the different languages.

EDIT: Did what you said. and downloaded the German Engine, read through some things in the official SAPI Help File but still cant find out what languagecode to use for german or russian... ?

Edited November 25, 2006 by Zephir

Westi · December 3, 2006

SAPI5 (like XP)

The default voice is stored in registrykey:

HKCU\Software\Microsoft\Speech\Voices\DefaultTokenId

corresponding to the entries in:

HKLM\SOFTWARE\Microsoft\Speech\Voices\Tokens

To change your favourite language manually execute:

control "%commonprogramfiles%\Microsoft Shared\Speech\sapi.cpl"

Downloadable voices are available only in:

german, french and english

You have to install MS Reader

Improved version:

_SpeakToWAV("Hello this is a test",@ScriptDir&"\TEST.wav")

Func _SpeakToWAV($sText,$sFile)
    $ObjVoice=ObjCreate("Sapi.SpVoice")
    $ObjFile=ObjCreate("SAPI.SpFileStream.1")
    $objFile.Open($sFile,3)
    $objVoice.AudioOutputStream = $objFile
    $objVoice.voice = $objVoice.GetVoices("Language=409").Item(0)
    $objVoice.Speak ($sText)
EndFunc

So you can change 409 only to 407 and 40C

If you want other languages you need commercial 3rd party soft like cepstral

SAPI4