 |
AutoHotkey Community
Let's help each other out
|
| View previous topic :: View next topic |
| Author |
Message |
AHKnow*
Guest
|
 Posted: Fri Dec 30, 2005 2:10 am Post subject: |
 |
|
This is great.
I'm confused on how you can get this script to work for pronouncing Asian languages like Japanese or Chinese.
Anybody know how to do this? |
|
| Back to top |
|
 |
st
Guest
|
| Posted: Tue Apr 18, 2006 2:23 am Post subject: i'm a newbie |
|
|
how to activate it? just copa(=copy+paste) it to script (.ini)?
all i want is the feature below, which i think is more useful,
say the selection in the current window. |
|
| Back to top |
|
|
ST
Guest
|
| Posted: Wed Apr 19, 2006 10:01 am Post subject: ok |
|
|
| st wrote: | how to activate it? just copa(=copy+paste) it to script (.ini)?
all i want is the feature below, which i think is more useful,
say the selection in the current window. |
here's mine. the pity is i don't know how to stop it. or, to window the text, which is more complicate.
| Code: | #F1::
Send, ^c
TXT = %clipboard%
StringReplace, TXT, TXT, ", ', All
StringReplace, TXT, TXT, `r`n, ., All
StringReplace, TXT, TXT, `n, ., All
TEMPFILE = %TEMP%\TALK.vbs
IfExist, %TEMPFILE%
FileDelete, %TEMPFILE%
FileAppend, Dim Talk`nSet Talk = WScript.CreateObject("SAPI.SpVoice")`nTalk.Speak "%TXT%", %TEMPFILE%
RunWait, %TEMPFILE%
FileDelete, %TEMPFILE%
Return |
|
|
| Back to top |
|
|
Roussi Nikolov
Guest
|
| Posted: Wed Apr 19, 2006 11:21 am Post subject: Real Text To Speech, not Line To Speech |
|
|
For a real Text To Speech, not only "Line To Speech"
; `nTalk.Speak "%TXT%" ; -->
`nTalk.Speak "%LINE1%"`nTalk.Speak "%LINE2%"`nTalk.Speak "%LINE3%" ; etc. |
|
| Back to top |
|
|
ST
Guest
|
| Posted: Thu Apr 20, 2006 9:04 am Post subject: Re: To stop it! |
|
|
| Roussi Nikolov wrote: | | Code: | F1::
Process, Exist, wscript.exe
If (%ErrorLevel% = %wsPID%)
{
Process, Close, %wsPID%
FileDelete, %Temp%\talktemp.vbs
}
Else
{
Clipboard =
Send, ^{sc02E} ; ^c
ClipWait, 1
StringReplace, Clipboard, Clipboard, ", ”, A
FileDelete, %Temp%\talktemp.vbs
FileAppend, Dim Talk`r`nSet Talk = WScript.CreateObject("SAPI.SpVoice"), %Temp%\talktemp.vbs
Loop, Parse, Clipboard, `n, `r
{
FileAppend, `r`nTalk.Speak "%A_LoopField%", %Temp%\talktemp.vbs
}
Run, wscript.exe %Temp%\talktemp.vbs,,, wsPID
}
Return |
|
it can't B better.  |
|
| Back to top |
|
|
Guest
|
| Posted: Thu May 11, 2006 5:20 pm Post subject: |
|
|
I am a newbie to this process and have only written one script - but I am missing something here. I try to run this scrpt and get the error:
Script: C:\Docume~1\ADMIN~1\LOCALS~1\Temp\TALK.vbs
Line: 3
Char: 1
Error: 0x80120088
Code: 80120088
Source: (null)
Am I missing something on my Windows XP Pro system? |
|
| Back to top |
|
|
ST
Guest
|
| Posted: Thu Jun 08, 2006 3:32 am Post subject: think it's because of the things U want 2 B read |
|
|
| my advice is to try TTS softwares to speak the things you want to be read. can they work? are you trying to speak something strange? |
|
| Back to top |
|
|
MsgBox
Joined: 17 Nov 2005
Posts: 179
Location: Leicester, UK
|
| Posted: Thu Jun 08, 2006 3:49 pm Post subject: |
|
|
| Quote: | I am a newbie to this process and have only written one script - but I am missing something here. I try to run this scrpt and get the error:
Script: C:\Docume~1\ADMIN~1\LOCALS~1\Temp\TALK.vbs
Line: 3
Char: 1
Error: 0x80120088
Code: 80120088
Source: (null) |
I get something similar
| Quote: | ---------------------------
Windows Script Host
---------------------------
Script: C:\DOCUME~1\SlimlinE\LOCALS~1\Temp\TALK.vbs
Line: 3
Char: 1
Error: 0x8004503A
Code: 8004503A
Source: (null)
---------------------------
OK
--------------------------- |
when runnung this
| Code: | Gui, Show, w300 h100, Text to Talk
Gui, Add, Text, x5 y5 w30 h20, Text:
Gui, Add, Edit, vTXT x40 y5 w245 R4,Type text in here, And Press TALK.
Gui, Add, Button, w60 h20, TALK
return
GuiClose:
ExitApp
ButtonTALK:
Gui, Submit, NoHide
TEMPFILE = %TEMP%\TALK.vbs
IfExist, %TEMPFILE%
FileDelete, %TEMPFILE%
FileAppend, Dim Talk`nSet Talk = WScript.CreateObject("SAPI.SpVoice")`nTalk.Speak "%TXT%", %TEMPFILE%
RunWait, %TEMPFILE%
FileDelete, %TEMPFILE%
Return |
I have AT&T Audrey installed. This one does work
| Code: | ;NumPadIns when pressed, reads out loud any selected text from any application.
NumpadIns:: ;Read any selected Text
Process, Exist, wscript.exe
If (%ErrorLevel% = %wsPID%)
{
Process, Close, %wsPID%
FileDelete, %Temp%\talktemp.vbs
}
Else
{
ClipSaved := ClipboardAll
Clipboard =
Send, ^{sc02E} ; ^c
ClipWait, 1
StringReplace, Clipboard, Clipboard, ", ”, A
FileDelete, %Temp%\talktemp.vbs
FileAppend,
(
Dim Talk
Set Talk = WScript.CreateObject("SAPI.SpVoice")
Set Talk.voice = Talk.GetVoices("Name=Audrey16", "Language=809").Item(0)
), %Temp%\talktemp.vbs
Loop, Parse, Clipboard, `n, `r
{
FileAppend, `r`nTalk.Speak "%A_LoopField%", %Temp%\talktemp.vbs
}
Clipboard := ClipSaved
ClipSaved =
Run, wscript.exe %Temp%\talktemp.vbs,,, wsPID
}
Return |
Don't know why though!
I've tried changing this line
| Code: | | Set Talk.voice = Talk.GetVoices("Name=Audrey16", "Language=809").Item(0) |
with the MS Sam info in the registry, but to no avail.
Does anyone know how, (if it's even possible) to pause/resume once the speaking starts? I assume that if you can, then maybe it will be to add commands when creating the talktemp.vbs?? Guessing!! |
|
| Back to top |
|
|
Zoandar
Joined: 08 Jun 2006
Posts: 91
Location: Northern Ohio - USA
|
| Posted: Wed Jun 28, 2006 2:11 am Post subject: |
|
|
Just to clarify here,
If I run this script having not yet purchased the Audrey voice from AT&T, (which I haven't) and I do not get any voice at all, (which I didn't) is that the reason?
I am VERY interested in TTS, but I did not want to spend over $100 US to :
1-Buy a TTS program (about $40)
2-Buy the first 2 Mike and Crystal ATT voices ( apparently a requirement, with no option out) (another $40)
3-Finally, buy the Audrey voice (which I really like). ($39)
If I just buy the Audrey voice file ( reasonably affordable to me ) can I get it to work with this script so I wouldn't have to buy the other two things? That would be COOL!
Assuming this to be true, how hard would it be to modify the script so that you could optionally have Audrey's reading of the selected text be saved into a WAV file? ATT has a demo engine linked to their research site, in which you can have any of several voices read aloud up to 300 characters you type in. It will also let you save the output to a WAV file. This is the only affordable (to me) means I have had of using Audrey's voice, up until I discovered this post.
_________________
Zoandar - new user - still learning. |
|
| Back to top |
|
|
Clash
Joined: 27 Jun 2006
Posts: 182
|
| Posted: Fri Jul 07, 2006 12:47 am Post subject: |
|
|
me too: 'Windows script host access is disabled on this machine. contact...'
_________________
  |
|
| Back to top |
|
|
Zoandar
Joined: 08 Jun 2006
Posts: 91
Location: Northern Ohio - USA
|
| Posted: Fri Jul 07, 2006 1:29 am Post subject: |
|
|
What?
_________________
Zoandar - new user - still learning. |
|
| Back to top |
|
|
Clash
Joined: 27 Jun 2006
Posts: 182
|
| Posted: Sat Dec 30, 2006 11:06 am Post subject: |
|
|
| 7 months later.. |
|
| Back to top |
|
|
n-l-i-d
Guest
|
|
| Back to top |
|
|
n-l-i-d
Guest
|
| Posted: Sat Dec 30, 2006 4:16 pm Post subject: |
|
|
| Code: | textToSay =
(LTrim Join`s
<voice required="name=Microsoft Sam">
<volume level="100">
<rate speed="3">
<pitch absmiddle="-5">
<emph><pron sym="aw 1 t ow - h ao 1 t - k iy 2">AutoHotkey</pron></emph>
is
<emph>great!</emph>
</pitch>
</rate>
</volume>
</voice>
)
; assumes say.exe in script directory
RunWait, say.exe %textToSay%,, Hide |
|
|
| Back to top |
|
|
fatalanth
Joined: 30 Aug 2007
Posts: 14
|
| Posted: Wed Sep 12, 2007 8:35 pm Post subject: |
|
|
| is there a way to modify this to record into a audio file? |
|
| Back to top |
|
|
|
|
You can post new topics in this forum
You can reply to topics in this forum
|
Powered by phpBB © 2001, 2005 phpBB Group
|
FAQ
Search
Memberlist
Register
Profile
Log in to check your private messages
Log in
