vb编程问题 高高手进

来源:百度知道 编辑:UC知道 时间:2024/06/18 21:34:17
想编一个可以读TXT的程序 就是把TXT以语音形式播放出来
能行吗? 如果可以教一下

Dim read
Private Sub Command1_Click()
Set read = CreateObject("SAPI.SpVoice")
read.Speak ("hi")
End Sub

把 read.speak ("嗨") 括号里的嗨 该成英文呢就可以了

别的语言没试过,好像就能读英文
不过是合成的

那你把TXT里的汉字都用你的发音录制下来。然后编写程序比较麻烦了,用判断,把TXT里所有不同的汉字都进行判断,进行调用,你可以先试试几个字那种的。也可以进行词组的判断,那样的话文字少了还比较好弄,遇到多音字就更麻烦了。我试着写一个字的代码。
if a="我" then
shell("d:\我.mp3")
else a="你"
shell("d:\你.mp3")
end if
『这个语句可能有问题』^0^
但是能说明问题就行
应该明白我的意思了吧!

目前英文可以读,中文还没有办法,除非自己做一个库出来调用,呵呵。

- -! 主要是语音合成的问题。