文本转语音易语言源码

.版本 2
.支持库 EThread
.支持库 spec

.程序集 窗口程序集_启动窗口

.子程序 文字转语音, 字节集
.参数 文本, 文本型
.局部变量 字节集, 字节集

字节集 ＝ 网页_访问_对象 (“http://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, , )
.如果真结束

@非常魅力