vb文本到语音的算法。它不是连续阅读

时间:2014-01-20 10:07:20

标签: razor

任何人都可以在vb.net中增强我的代码吗?

Private Sub btnload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnspeak.Click    
    Dim str As String = Trim(txttext.Text)
    Dim stringfilter As String
    Dim ringpath As String
    Dim words As String()
    Dim wordsingle As String

    If Len(str) = 0 Then
        MsgBox("please enter the text.")
        Exit Sub

    End If

    stringfilter = "*.mp3"
    words = str.Split(New Char() {" "c})

    For Each wordsingle In words
        MsgBox(wordsingle)
        ringpath = "d:\voices\" + wordsingle + ".mp3"
        mpplayer.URL = (ringpath)
    Next

End Sub

1 个答案:

答案 0 :(得分:0)

对于您想要实现的目标,您应该更具体一些。 目前,您的帖子很可能会被标记并关闭,因为它不会与rules确认。