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


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

主题：能否遍历文本并逐句显示朗读
帅哥哟，离线，有人找我吗？
明丰
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：558 积分：4352 威望：0 精华：2 注册：2011/4/18 8:27:00 		能否遍历文本并逐句显示朗读  发帖心情 Post By：2013/8/29 16:50:00 [只看该作者]

点击“CheckBox1”时，提取“表A”当前单元格的值，在“TextBox1”逐句显示并朗读，请问如何设置？
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:朗读.table
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2013/8/29 17:19:00 [只看该作者]

CheckBOx1 在哪里?

 回到顶部
帅哥哟，离线，有人找我吗？
明丰
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：558 积分：4352 威望：0 精华：2 注册：2011/4/18 8:27:00 		  发帖心情 Post By：2013/8/29 17:38:00 [只看该作者]

“CheckBox1”标题“朗读”。

 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2013/8/29 17:52:00 [只看该作者]

.
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:朗读.table
 回到顶部
帅哥哟，离线，有人找我吗？
明丰
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：558 积分：4352 威望：0 精华：2 注册：2011/4/18 8:27:00 		  发帖心情 Post By：2013/8/29 18:07:00 [只看该作者]

我的意思是：

显示“如果是同步朗读，”时→朗读；

显示“那么在朗读过程中，”时→朗读；

……
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 回到顶部
帅哥哟，离线，有人找我吗？
明丰
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：558 积分：4352 威望：0 精华：2 注册：2011/4/18 8:27:00 		  发帖心情 Post By：2013/8/29 20:24:00 [只看该作者]

谢谢。

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05566 秒, 6 次数据查询