Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: SMcNeill on January 25, 2022, 05:04:08 pm

Title: Powershell Text To Speech
Post by: SMcNeill on January 25, 2022, 05:04:08 pm
Code: QB64: [Select]
  1. _Title "Steve's Powershell Speech Script"
  2.  
  3.  
  4. SaP "Hello World. This is a normal speed demo of David's voice", "David", 0
  6. SaP "Hello again.  This is a normal speed demo of Ziva's voice.", "Ziva", 0
  8. SaP "And now I'm speaking as David, but I'm speaking veeery slow.", "David", -10
  10. SaP "And now I'm a very hyper Ziva!", "Ziva", 5
  12. SaP "And now I'm done with my demo!", "", 0
  13.  
  14. Sub SaP (text$, who$, speed)
  15.     Print text$
  16.     If UCase$(who$) = "ZIVA" Then Speaker = 1
  17.     speak text$, Speaker, speed
  19.  
  20. Sub speak (text As String, Speaker As Integer, Speed)
  21.     Dim message As String
  22.     message = text
  23.     'some symbols and such can't be used with Powershell like this, as they're command symbols
  24.     'we need to strip them out of our text.  (Like apostrophes!)
  25.     remove$ = "'" + Chr$(34) 'add to remove$ here, if more symbols need to be removed as future testing showcases problems
  26.     For j = 1 To Len(remove$)
  27.         Do
  28.             i = InStr(message, Mid$(remove$, j, 1))
  29.             If i Then message = Left$(message, i - 1) + Mid$(message, i + 1)
  30.         Loop Until i = 0
  31.     Next
  32.     out$ = "Powershell -Command " + Chr$(34)
  33.     out$ = out$ + "Add-Type -AssemblyName System.Speech; "
  34.     out$ = out$ + "$Speech = New-Object System.Speech.Synthesis.SpeechSynthesizer; "
  35.     If Speaker = 0 Then out$ = out$ + "$Speech.SelectVoice('Microsoft David Desktop'); "
  36.     If Speaker = 1 Then out$ = out$ + "$Speech.SelectVoice('Microsoft Zira Desktop'); "
  37.     If Speed Then out$ = out$ + "$Speech.Rate =" + Str$(Speed) + "; "
  38.     out$ = out$ + "$Speech.Speak('" + message + "');" + Chr$(34)
  39.     Shell _Hide out$
  41.  

I've shared a few examples of this before in the past, but the project I was working on today was one which I thought could benefit from some decent Text-to-Speech capabilities, so I wrote up this little routine to give me a little more command over the output.

Choose from the voice you like -- male or female.  Set a speed for how fast they talk (valid range is -10 for slowest to 10 for fastest).  Send it some text and let it do it's thing.  It's that simple!

There's also a lazy man's SaP sub included for those who want to Speak And Print both at the same time. :P

Enjoy!
Title: Re: Powershell Text To Speech
Post by: bplus on January 25, 2022, 09:40:14 pm
Cool! I didn't know they could do different voices.
Title: Re: Powershell Text To Speech
Post by: SMcNeill on January 25, 2022, 10:06:04 pm
Quote from: bplus on January 25, 2022, 09:40:14 pm
Cool! I didn't know they could do different voices.

There's a lot you can do with them if you want.  There's volume options, pause, resume, stop...  There's a whole language you can use with it, much like html.  You just need to decide exactly what you want it to do for you.  Basically, if you turn on Narrator with Windows, you can reproduce those effects with powershell commands.  Read up on the windows speech synthesizer sometime if you're interested in expanding functionality.
Title: Re: Powershell Text To Speech
Post by: johnno56 on January 26, 2022, 04:58:11 am
As I do not use Windows, could someone please post a sample? Thank you.
Title: Re: Powershell Text To Speech
Post by: SMcNeill on January 26, 2022, 05:58:46 am
Quote from: johnno56 on January 26, 2022, 04:58:11 am
As I do not use Windows, could someone please post a sample? Thank you.

Post a sample of my PC speaking the text on the screen?  How do you suggest I do that?  Video capture the moment?  Be assured, if you never use Windows and Powershell, you can skip this demo as it has absolutely *zero* relation to you and your programming.  😘
Title: Re: Powershell Text To Speech
Post by: johnno56 on January 26, 2022, 08:27:09 am
Steve,

I have little to no care about Windows, Powershell or the Demo. None of them relate to my needs. What I *am* interested in is, TTS and its *quality* of voice. Just to hear a few words is all that I would like. If the Demo is not capable of producing a sample audio file, then so be it, ignore my request and we will just move on... ;)
Title: Re: Powershell Text To Speech
Post by: SMcNeill on January 26, 2022, 10:04:32 am
Quote from: johnno56 on January 26, 2022, 08:27:09 am
Steve,

I have little to no care about Windows, Powershell or the Demo. None of them relate to my needs. What I *am* interested in is, TTS and its *quality* of voice. Just to hear a few words is all that I would like. If the Demo is not capable of producing a sample audio file, then so be it, ignore my request and we will just move on... ;)

There's an option to SendOutputToFile, but I've never played around with that before.  I'll have to experiment some and see how to specify location and format and such, and if I can get it working, I'll share the output (and code for others) later this evening sometime.  👍
Title: Re: Powershell Text To Speech
Post by: johnno56 on January 26, 2022, 01:03:06 pm
Steve,

If it can be done, that would be great, if not then it is no big deal. After all... just curious... In any event... thank you for trying...

J
Title: Re: Powershell Text To Speech
Post by: SMcNeill on January 26, 2022, 02:22:47 pm
@johnno56 You're going to owe me two sodas AND a cheeseburger for this one!  Getting the syntax JUST right was a complete and utter PITA.  LOL!!

Code: QB64: [Select]
  1. _Title "Steve's Powershell Speech Script"
  2.  
  5. SaP "Hello World, This is a normal speed demo of David's voice", "David", 0
  7. SaP "Hello again.  This is a normal speed demo of Ziva's voice.", "Ziva", 0
  9. SaP "And now I'm speaking as David, but I'm speaking veeery slow.", "David", -10
  11. SaP "And now I'm a very hyper Ziva!", "Ziva", 5
  13. SaP "And now I'm done with my demo!", "", 0
  14.  
  15. Sub SaP (text$, who$, speed)
  16.     Print text$
  17.     If UCase$(who$) = "ZIVA" Then Speaker = 1
  18.     speak text$, Speaker, speed
  20.  
  21. Sub speak (text As String, Speaker As Integer, Speed)
  22.     Dim message As String
  23.     Static n: n = n + 1 'This sets an incremental counter for our output file  (Test1, Test2, Test3, ect)
  24.     message = text
  25.     'some symbols and such can't be used with Powershell like this, as they're command symbols
  26.     'we need to strip them out of our text.  (Like apostrophes!)
  27.     remove$ = "'" + Chr$(34) 'add to remove$ here, if more symbols need to be removed as future testing showcases problems
  28.     For j = 1 To Len(remove$)
  29.         Do
  30.             i = InStr(message, Mid$(remove$, j, 1))
  31.             If i Then message = Left$(message, i - 1) + Mid$(message, i + 1)
  32.         Loop Until i = 0
  33.     Next
  34.     out$ = "Powershell -Command " + Chr$(34)
  35.     out$ = out$ + "Add-Type -AssemblyName System.Speech; "
  36.     out$ = out$ + "$Speech = New-Object System.Speech.Synthesis.SpeechSynthesizer; "
  37.     out$ = out$ + "$Speech.SetOutputToWaveFile({" + Chr$(34) + "D:\Repo\qb64\Test" + _Trim$(Str$(n)) + ".wav" + Chr$(34) + "}); " 'The command to send the output to a file and not the speakers.
  38.     If Speaker = 0 Then out$ = out$ + "$Speech.SelectVoice('Microsoft David Desktop'); "
  39.     If Speaker = 1 Then out$ = out$ + "$Speech.SelectVoice('Microsoft Zira Desktop'); "
  40.     If Speed Then out$ = out$ + "$Speech.Rate =" + Str$(Speed) + "; "
  41.     out$ = out$ + "$Speech.Speak('" + message + "');" + Chr$(34)
  42.     Shell out$
  43.     _Echo out$
  45.  

  [ This attachment cannot be displayed inline in 'Print Page' view ]  
  [ This attachment cannot be displayed inline in 'Print Page' view ]  
  [ This attachment cannot be displayed inline in 'Print Page' view ]  
  [ This attachment cannot be displayed inline in 'Print Page' view ]  
  [ This attachment cannot be displayed inline in 'Print Page' view ]  

As you can see, these are actually some rather nice sounding voices.  I truly wouldn't be ashamed to make use of them for any of my personal projects in the future!  ;)
Title: Re: Powershell Text To Speech
Post by: bplus on January 26, 2022, 03:39:47 pm
OR Run this and just jump to about 2 mins into demo and hear the sound of the Speech:
Title: Re: Powershell Text To Speech
Post by: johnno56 on January 26, 2022, 06:02:12 pm
Steve,

Nicely done. The quality of these voices a way better that Linux's eSpeak and Festival. The female voice is very good. Thank you for taking the time and effort in creating the files. Much appreciated. As they say here in Australia, "Your blood's worth bottling". (bit of cultural home work... lol)

Mmm... Cheeseburger...
Text Only | Text with Attachments