TTS-To-File UDF

[sandman 0]

I've seen a few topics in General Help and Support about saving TTS to file. Well, your problems are solved, thanks to this simple UDF!

The code:

Func _TTSToFile($sText, $sFile)
    Const $SSFMCreateForWrite = 3
    $objVoice = ObjCreate("SAPI.SpVoice")
    $objFile = ObjCreate("SAPI.SpFileStream.1")
    $objFile.Open($sFile, $SSFMCreateForWrite)
    $objVoice.AudioOutputStream = $objFile
    $objVoice.Speak($sText)
    _Talk($sText)
EndFunc

Func _Talk($sText)
  Local $oSpeech = ObjCreate("SAPI.SpVoice")
  $oSpeech.Speak($sText)
  $oSpeech = ""
EndFuncoÝ÷ ØLZ^jëh×6#include <_TTSToFile.au3>
_TTSToFile("This is a test", @DesktopDir & "\test.wav")

AFAIK, this is only compatible with WAVs.

Thanks to the info-giver.. http://www.microsoft.com/technet/scriptcen...s/sapi.mspx#EKH

Edited September 8, 2007 by sandman

[JustinReno 0]

Cool!

[jaenster 0]

lolller!

[Dhilip89 10]

Very nice!

[lod3n 3]

I posted _text2mp3() a year ago, if you'd like to save it as something other than WAV.

http://www.autoitscript.com/forum/index.php?showtopic=33737