使用文件中的语音的Vb.net文本到语音？答案

【问题标题】：Vb.net text to speech using voice from file?使用文件中的语音的Vb.net文本到语音？
【发布时间】：2016-09-24 00:23:28
【问题描述】：

我制作了一个简单的程序，它使用 sapi 5 来说出用户输入的任何内容，但我想使用保存在程序目录中的声音，这可能吗？我以前见过 c++ 程序这样做，但我不确定如何在 Visual Basic 中实现。

【问题讨论】：

标签： .net vb.net text-to-speech sapi

【解决方案1】：

如果我错了，请纠正我，但您尝试做的似乎是录制您的应用产生的声音，然后作为第 2 步，将其识别回文本。

要解决录音，您需要使用声卡的输入和磁盘上的 wav 文件输出组成一个 Direct Show 过滤器图。作为 VB 开发人员，您应该能够使用 deprecated ManagedDX 或其他类似的包装器来实现此目的。

要在之后处理 TTS，您需要将此文件提供给一些识别 API，例如 Bing Speech API。

这两个主题都值得单独使用谷歌搜索和 stackoverflowing。

【讨论】：

不确定您提供的这个 api 是否有帮助，但看起来很有趣，我稍后会看，我正在尝试从文件加载文本到语音，例如我有一个自定义文本到保存在 C:\voices\ 中的名为 bob.tts 的语音语音我正在寻找一种方法来加载它而不将它作为语音安装在计算机上。

【解决方案2】：

我有一个旧项目，它是用 VB6 编写的，它的演讲时间很长，也许你能从中得到一些东西，我不知道。

Private Declare Function SndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Dim p As String
Dim sound(1 To 59) As String
Dim at As String
Dim minutes As String
Dim over As String

Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim index As Integer

SndPlaySound at, 0

a = Val(Mid$(Time$, 1, 2))
b = Val(Mid$(Time$, 4, 2))

If b = 0 Then
    If a > 0 And a <= 12 Then
        SndPlaySound sound(a), 0
    Else
        SndPlaySound sound(a - 12), 0
    End If
    Exit Sub
End If

SndPlaySound sound(a), 0
SndPlaySound over, 0
SndPlaySound sound(b), 0
SndPlaySound minutes, 0
End Sub

Private Sub Timer1_Timer()
Label1 = Time$
End Sub

Private Sub Form_Load()
Label1 = Time$
p = App.Path + "\Sound\"
Speak
End Sub

Private Sub Speak()
at = p + "at.wav"
over = p + "over.wav"
minutes = p + "minutes.wav"
sound(1) = p + "1.wav"
sound(2) = p + "2.wav"
sound(3) = p + "3.wav"
sound(4) = p + "4.wav"
sound(5) = p + "5.wav"
sound(6) = p + "6.wav"
sound(7) = p + "7.wav"
sound(8) = p + "8.wav"
sound(9) = p + "9.wav"
sound(10) = p + "10.wav"
sound(11) = p + "11.wav"
sound(12) = p + "12.wav"
sound(13) = p + "13.wav"
sound(14) = p + "14.wav"
sound(15) = p + "15.wav"
sound(16) = p + "16.wav"
sound(17) = p + "17.wav"
sound(18) = p + "18.wav"
sound(19) = p + "19.wav"
sound(20) = p + "20.wav"
sound(21) = p + "21.wav"
sound(22) = p + "22.wav"
sound(23) = p + "23.wav"
sound(24) = p + "24.wav"
sound(25) = p + "25.wav"
sound(26) = p + "26.wav"
sound(27) = p + "27.wav"
sound(28) = p + "28.wav"
sound(29) = p + "29.wav"
sound(30) = p + "30.wav"
sound(31) = p + "31.wav"
sound(32) = p + "32.wav"
sound(33) = p + "33.wav"
sound(34) = p + "34.wav"
sound(35) = p + "35.wav"
sound(36) = p + "36.wav"
sound(37) = p + "37.wav"
sound(38) = p + "38.wav"
sound(39) = p + "39.wav"
sound(40) = p + "40.wav"
sound(41) = p + "41.wav"
sound(42) = p + "42.wav"
sound(43) = p + "43.wav"
sound(44) = p + "44.wav"
sound(45) = p + "45.wav"
sound(46) = p + "46.wav"
sound(47) = p + "47.wav"
sound(48) = p + "48.wav"
sound(49) = p + "49.wav"
sound(50) = p + "50.wav"
sound(51) = p + "51.wav"
sound(52) = p + "52.wav"
sound(53) = p + "53.wav"
sound(54) = p + "54.wav"
sound(55) = p + "55.wav"
sound(56) = p + "56.wav"
sound(57) = p + "57.wav"
sound(58) = p + "58.wav"
sound(59) = p + "59.wav"
End Sub

【讨论】：

感谢分享，但我想我已经找到了解决方案，所以我会更新我的帖子。

【解决方案3】：

这不是最好的方法，但它似乎是我能找到的唯一方法，你可以在谷歌上搜索 CircumReality，这是一款由某人创建的游戏，它使用文本到语音的声音，开发人员很好地包含了允许你使用的工具发出声音并安装 .tts 文件。

只需下载 CircumReality 并安装它，然后转到程序目录并从那里打开 MNLP.exe，您应该可以选择从文件中安装 tts 语音。

【讨论】：