.版本 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, , )
.如果真结束
易语言语音转文本