script ResponsiveVoice - Last ned norske talebeskjeder som MP3

[mk1 black limited]

Joda, men jeg har så mange events som bruker dette at det hadde vært litt mer elegant å sende filnavn som et parameter.

[BME]

Jeg brukte bare scriptet første gang. Deretter lagret jeg fila under annet navn, som jeg da kaller fra eventet.

 

Kanskje du kan kjøre script mot tjenesten utenfor hs3 med tekst og filnavn som parameter, som du lagrer lokalt og kaller fra de enkelte eventen?

 

Bonus er at det da fungerer også når tjenesten er nede eller du har mistet internett ?

[mk1 black limited]

Haha, joda, det fungerer jo fint - men det er ikke så dynamisk at det gjør noe.

[Moskus]

OK, da. Prøv dette (helt utestet).

Sub Main(Byval input as Object)
    Dim speakThis as String = hs.ReplaceVariables(input.ToString.Split("#")(0))
    Dim filename as String = input.ToString.Split("#")(1)

    Dim remoteFile as String = "https://code.responsivevoice.org/getvoice.php?t=" & speakThis & "&tl=no&sv=g2&vn=&pitch=0.5&rate=0.5&vol=1"
    Dim localFile as String = hs.GetAppPath & "\" & filename & ".mp3"

    My.Computer.Network.DownloadFile(remoteFile, localFile, "", "", False, 3000, True)
End Sub

Parameter er nå "hva_som_skal_sies#filnavn_uten_filendelse". Dvs. en firkant (#) mellom det som skal sies og filnavnet.

[mk1 black limited]

Takker, skal prøve det.

[mk1 black limited]

Funka, takk (igjen) @Moskus!

[toonwolf]

Denne tråden blir aldri "gammel". Lette etter en litt mer "maskulin" stemme og fant parameter &gender=male

https://code.responsivevoice.org/getvoice.php?t=Jeg%20snakker%20norsk%20og%20er%20mann!&tl=no-NB&gender=male&pitch=0.5

Kom i versjon 1.3.8 https://responsivevoice.org/change-log/ så har nok vært en stund

[GeneralVirus]

Flere som opplever trøbbel med responsivevoice for tiden?

[Moskus]

 

... mulig den har blitt (mis)brukt så mye at den er blitt sperret.  

[Moskus]

Ja, ser ut som de nå krever registrering:

https://code.responsivevoice.org/responsivevoice.js?key=YOUR_UNIQUE_KEY

 

 

... ok, jeg har registrert meg. Det holder å legge til "&key=DIN_NØKKEL" på slutten av URI'en.

[toonwolf]

1 time siden, Moskus skrev:

... ok, jeg har registrert meg. Det holder å legge til "&key=DIN_NØKKEL" på slutten av URI'en.

Takk, funker knall!

[Erling]

HS4 - fungerer dette der?

 

Sub Main(Byval input as Object)
    Dim speakThis as String = hs.ReplaceVariables(input.ToString)

    Dim remoteFile as String = "https://code.responsivevoice.org/getvoice.php?t=" & speakThis & "&tl=no&sv=g2&vn=&pitch=0.5&rate=0.5&vol=1"
    Dim localFile as String = hs.GetAppPath & "\tts.mp3"

    My.Computer.Network.DownloadFile(remoteFile, localFile, "", "", False, 3000, True)
End Sub

 

 

 

 

Loggen lyser rødt med:

 

Running script ResponsiveVoice.vb :Målet forårsaket et unntak under aktivering.

 

Har registrert meg og fått key, men aner ikke hvor den skal inn. 😮

 

Den leser opp "C:\Program Files (x86)\HomeSeer HS3\.tts.mp3"

 

Noen som gidder og si hva jeg roter med nå?

[Moskus]

21 hours ago, Erling said:

HS4 - fungerer dette der?

Fungerer det i HS3 så fungerer det i HS4.

 

21 hours ago, Erling said:

Har registrert meg og fått key, men aner ikke hvor den skal inn. 😮

Se posten over din.

21 hours ago, Erling said:

Den leser opp "C:\Program Files (x86)\HomeSeer HS3\.tts.mp3"

Hvorfor har du et punktum først i filnavnet?

[Erling]

Moskus skrev (10 timer siden):

Hvorfor har du et punktum først i filnavnet?

 

Ø…, si det. Vill gjetting at jeg var borti med pølsefingrene når jeg la det inn.

 

+

 

@Moskus takk nok en gang, pusset brillene - voila det fungerer.

 

+

 

AirplaySpeak plug-innen hjelper ikke. Testet den i går kveld. «Alt» den gjør er og tillate at Homeseer kan «speak» til Airplay-høyttalere uten HS-Touch. Samme stemme som ellers.

 

BLSpeech får jeg ikke testa på 4’ern, lå inn i 3’ern som demo men den gikk ut før jeg rakk å teste. #typisk…

 

Håper dette trikset her fungerer lenge.

 

Takk.