[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[原创代码] 文本 转换合成语音

本帖最后由 ivor 于 2018-2-19 16:57 编辑

利用百度API,把文本拖放到脚本上面转换成合成语音audio.mp3。
  1. """
  2. 如果已安装pip,执行pip install baidu-aip即可。
  3. 如果已安装setuptools,执行python setup.py install即可。
  4. """
  5. import re
  6. from os import system
  7. from aip import AipSpeech
  8. from sys import argv
  9. def baiduAudio(inputStr):
  10.     """
  11.     你的 APPID AK SK
  12.     APP_ID只用于演示,不保证稳定性
  13.     """
  14.     APP_ID = '10837454'
  15.     API_KEY = 'mPHGma7u4j5N5VpxsIexBlr7'
  16.     SECRET_KEY = 'ZDclPeFqhXlaZTjcqusF6pCgWBZ5cPGL'
  17.     client = AipSpeech(APP_ID, API_KEY, SECRET_KEY)
  18.     """
  19.     per String 发音人选择, 0为女声,1为男声,3为情感合成-度逍遥,4为情感合成-度丫丫,默认为普通女
  20.     """
  21.     result  = client.synthesis(inputStr, 'zh', 1, {
  22.         'spd': 5,
  23.         'pit': 5,
  24.         'vol': 5,
  25.         'per': 3,
  26.         }
  27.     )
  28.     if not isinstance(result, dict):
  29.         return result
  30. with open("audio.mp3","wb") as file:
  31.     if (len(argv) > 1):
  32.         with open(argv[1],"r") as textfile:
  33.             for line in textfile:
  34.                 for i in re.split(r'[,,。.]',line):
  35.                     if re.match(r'.*(\S+).*',i):
  36.                         print("str: %s" % i)
  37.                         file.write(baiduAudio(i))
  38.                     
复制代码
#&cls&@powershell "Invoke-Expression ([Io.File]::ReadAllText('%~0',[Text.Encoding]::UTF8))" &pause&exit

你不要把API key 之类这些东西发出来。
1

评分人数

    • ivor: 不碍事的,200000次/天免费技术 + 1
去学去写去用才有进步。安装python3代码存为xx.py 双击运行或右键用IDLE打开按F5运行

TOP

我估计文档里测试用的 key 也能随便用

TOP

本帖最后由 523066680 于 2018-2-20 23:49 编辑

很好,之前想做一个语音报时闹钟,现在可以直接获取音频了。

TOP

来段绕口令,笑死我了
  1. 化肥会挥发
  2. 黑化肥发灰,灰化肥发黑
  3. 黑化肥发灰会挥发;灰化肥挥发会发黑
  4. 黑化肥挥发发灰会花飞;灰化肥挥发发黑会飞花
  5. 黑灰化肥会挥发发灰黑讳为花飞;灰黑化肥会挥发发黑灰为讳飞花
  6. 黑灰化肥灰会挥发发灰黑讳为黑灰花会飞;灰黑化肥会会挥发发黑灰为讳飞花化为灰
  7. 黑化黑灰化肥灰会挥发发灰黑讳为黑灰花会回飞;灰化灰黑化肥会会挥发发黑灰为讳飞花回化为灰
复制代码

TOP

回复 5# 523066680

这个更搞笑
   
《卧春》      
    暗梅幽闻花,   
    卧枝伤恨底,   
    遥闻卧似水,   
    易透达春绿。   
    岸似绿,      
    岸似透绿。
#&cls&@powershell "Invoke-Expression ([Io.File]::ReadAllText('%~0',[Text.Encoding]::UTF8))" &pause&exit

TOP

返回列表