想把文字识别变成语音请教

Tc无名

问题如上
我想把任意文字识别成语音，请大神们教教我

言术

来不及的来得及 发表于 2016-10-23 15:52
不知道你需要的是不是这样的

大神，能否分享源码，学习一下

如此美丽。

言术 发表于 2016-10-23 16:10
大神，能否分享源码，学习一下

接口: SAPI.SpVoice
估计楼上是准备收费了  所以详细资料自己还是找吧

pop_tiger

言术 发表于 2016-10-23 16:10
大神，能否分享源码，学习一下

@echo off
echo 《无题》
echo.
echo 李商隐
echo.
echo 相见时难别亦难，东风无力百花残。
echo 春蚕到死丝方尽，蜡炬成灰泪始干。
echo 晓镜但愁云鬓改，夜吟应觉月光寒。
echo 蓬山此去多无路，青鸟殷勤为探看。

mshta vbscript:createobject("sapi.spvoice").speak("李商隐")(window.close)
mshta vbscript:createobject("sapi.spvoice").speak("相见时难别亦难，东风无力百花残。春蚕到死丝方尽，蜡炬成灰泪始干。晓镜但愁云鬓改，夜吟应觉月光寒。蓬山此去多无路，青鸟殷勤为探看。")(window.close)

保存为cmd直接运行。网上找到的。大神如果能转换成TC，记得教一下我。

lyf1314

去看下百度TTS，在线语音合成吧，很简单

sxw005

yuyin.baidu.com/tts
跟tc稍微结合下就可以了。自己研究呀

sxw005

或者你把识别的文字转义下fanyi.baidu.com/#zh/en/%E5%A4%A7%E5%B9%85%E5%BA%A6然后触发百度语音即可翻译。百度应该很稳定吧

3256345

pop_tiger 发表于 2016-10-23 20:46
@echo off
echo 《无题》
echo.

1. 功能 读出()
   
2.     //mshta vbscript:createobject("sapi.spvoice").speak("李商隐")(window.close)
   
3.     //mshta vbscript:createobject("sapi.spvoice").speak("相见时难别亦难，东风无力百花残。春蚕到死丝方尽，蜡炬成灰泪始干。晓镜但愁云鬓改，夜吟应觉月光寒。蓬山此去多无路，青鸟殷勤为探看。")(window.close)
   
4.     变量 头,尾,内容
   
5.     头=文件读指定行("rc:A.txt",0)////    mshta vbscript:createobject("sapi.spvoice").speak("    在脚本资源建立一个A.txt文本第0行写入这段
   
6.     尾=文件读指定行("rc:A.txt",1)////    ")(window.close)  在脚本资源建立一个A.txt文本第1行写入这段
   
7.     内容=编辑框获取文本("内容")  ////  要转换成语音的文字
   
8.     变量 是否成功=文件创建("D:\\播放的内容.bat","读写")////在D盘创建一个名为  播放的内容.bat  的文件 文件编码格式必须是ANSI格式保存,不然电脑识别是乱码
   
9.     文件覆盖内容("D:\\播放的内容.bat",头&内容&尾)////改变播放的内容
   
10.     变量 操=命令("D:\\播放的内容.bat",假)////播放,假表示不弹出窗口模式
    
11. 结束
    
12. 
    
13. 功能 启动_热键()
    
14. 线程开启("读出","")
    
15. 结束
    
16. 
    
17. 功能 播放_点击()
    
18. 读出()
    
19. 结束

复制代码