- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 能否遍历文本并逐句显示朗读 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=39672)
-- 发布时间：2013/8/29 16:50:00
-- 能否遍历文本并逐句显示朗读
点击“CheckBox1”时，提取“表A”当前单元格的值，在“TextBox1”逐句显示并朗读，请问如何设置？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:朗读.table |
-- 发布时间：2013/8/29 17:19:00
--
CheckBOx1 在哪里?
-- 发布时间：2013/8/29 17:38:00
--
“CheckBox1”标题“朗读”。
-- 发布时间：2013/8/29 17:52:00
--
.
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:朗读.table |
-- 发布时间：2013/8/29 18:07:00
--
我的意思是：
显示“如果是同步朗读，”时→朗读；
显示“那么在朗读过程中，”时→朗读；
……
-- 发布时间：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
-- 发布时间：2013/8/29 20:24:00
--
谢谢。