Foxtable(狐表)用户栏目专家坐堂 → 能否遍历文本并逐句显示朗读


  共有5888人关注过本帖树形打印复制链接

主题:能否遍历文本并逐句显示朗读

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2013/8/29 19:23:00 [显示全部帖子]

以下是引用明丰在2013-8-29 18:07:00的发言:

我的意思是:

显示“如果是同步朗读,”时→朗读;

显示“那么在朗读过程中,”时→朗读;

……


如下的代码便可实现,测试有效。

Dim d As String = CurrentTable.value
d = d.Replace(",",",|")
d = d.Replace(",",",|")
d = d.Replace(":",":|")
d = d.Replace(":",":|")
d = d.Replace("。","。|")
Dim Multi As String = d
Dim Values() As String
Values = Multi.split("|")
Dim sp As New DotNetSpeech.SpVoice()
sp.Voice = sp.GetVoices(String.Empty,String.Empty).Item(0)
for each val as string in values
    e.Form.controls("TextBox1").text = val
    application.doevents
    sp.Speak(val, DotNetSpeech.SpeechVoiceSpeakFlags.SVSFDefault)
Next

 回到顶部