小弟想用MSTTS实现中英文混读,小弟的想法是这样的
1.把要读的文本,处理分成中英文分别放在一个数组里
aa(1)=中文
aa(2)=英文
aa(3)=中文
2.做个循环,朗读
for i =1 to ubound(aa)
if aa(i)=中文 then
中文
else
英文
end if
next
可是这样不行,这样的话它首先读完所有的中文在读英文而不是读完中文在读英文.
或者有更好的算法,请大家指点
谢谢
1.把要读的文本,处理分成中英文分别放在一个数组里
aa(1)=中文
aa(2)=英文
aa(3)=中文
2.做个循环,朗读
for i =1 to ubound(aa)
if aa(i)=中文 then
中文
else
英文
end if
next
可是这样不行,这样的话它首先读完所有的中文在读英文而不是读完中文在读英文.
或者有更好的算法,请大家指点
谢谢
StopVoice
if aa(i)=中文 then
中文
else
英文
end if
nextSub StopVoice()'停止
On Error GoTo ErrHandler
Voice.Speak vbNullString, SVSFPurgeBeforeSpeak
If ispaused Then Voice.Resume
SetSpeakingState False, False
Exit Sub
ErrHandler:
End Sub这样是不是可行?估计速度是不理想的.
http://www.smartysoft.cn/smartreadsdk/