文本转语音易语言源码

.版本 2 .支持库 EThread .支持库 spec .程序集 窗口程序集_启动窗口 .子程序 文字转语音, 字节集 .参数 文本, 文本型 .局部变量 字节集, 字节集 字节集 = 网页_访问_对象 (“//fanyi.baidu.com/gettts?lan=zh&text=” + 文本 + “&spd=5&source=webt”) 返回 (字节集) .子程序 _按钮1_被单击 启动线程 (&子程序1, , ) .子程序 子程序1 .局部变量 文本数组, 文本型, , "0" .局部变量 d, 整数型 .局部变量 字节集, 字节集 通用对话框1.类型 = 1 通用对话框1.过滤器 = “*.mp3|*.mp3” 通用对话框1.默认文件后缀 = “mp3” .如果真 (通用对话框1.打开 ()) 文本数组 = 分割文本 (编辑框1.内容, #换行符, ) 进度条1.最大位置 = 取数组成员数 (文本数组) 进度条1.位置 = 0 .计次循环首 (取数组成员数 (文本数组), d) 字节集 = 字节集 + 文字转语音 (文本数组 [d]) 延迟 (100) 进度条1.位置 = d .计次循环尾 () 写到文件 (通用对话框1.文件名, 字节集) 进度条1.位置 = 取数组成员数 (文本数组) 信息框 (“完成”, 0, , ) .如果真结束
相关文件下载地址
©下载资源版权归作者所有;本站所有资源均来源于网络,仅供学习使用,请支持正版!

文本转语音易语言源码》有0个想法

发表回复

您的邮箱地址不会被公开。 必填项已用 * 标注