使用VB.net 创建简单的TTS中英文混合语音朗读

分类：VB作者：佚名

最初的想法很简单，只是想弄个小程序可以实现单词朗读功能。我了解到TTS(Text-to-Speech)技术可以做到阅读文本文字，用的语音引擎是微软的Speech SAPI5.1SDK，搜索一下，网络上大把文章谈到这个，还会告诉你下载地址，大小在60M以上。我的运行环境是xpSP2不需要再去下载。打开你的“控制面板”，打开“语音”，是不是看到了2个语音引擎？一个叫"Microsoft Simplified Chinese"，一个叫"MicrosoftSam"，OK，让我们设置"Microsoft Simplified Chinese"为默认值。

一切就绪，我们先在工程里引用saip.dll，这个文件在我的电脑里路径是C:\Program Files\Common Files\Microsoft Shared\Speech\saip.dll (Written by HarryGlory.)

接下来，当然是引用了

Imports SpeechLib

现在开始重头戏了，我们在Form1_Load事件里面写上：

Dim MyVoice As New SpeechLib.SpVoice
 Dim tmpStr As String
tmpStr = " IloveChou！ "
MyVoice.Speak(tmpStr,SpeechVoiceSpeakFlags.SVSFlagsAsync)

按下F5运行，马上出来结果了，有声音了，耶！简单吧？

什么？你听到的是一个一个字母读出来？试试把tmpStr改成中文 "我爱周星星！" 看看，是不是读出中文了？
但是你很执着，想读英文单词，那怎么办？
OK，让我们稍微改一下代码，如下：

Dim MyVoice As New SpeechLib.SpVoice
 Dim tmpStr As String
tmpStr = " IloveChou！ "
MyVoice.Voice = MyVoice.GetVoices([ String ].Empty,[ String ].Empty).Item( 1 )
MyVoice.Speak(tmpStr,SpeechVoiceSpeakFlags.SVSFlagsAsync)

你再按F5运行一下。哇，真的可以耶~！太棒了！
你很聪明，知道了这里Item(0)表示中文朗读，Item(1)表示英文朗读。可是，怎么判断语音引擎呢？顺便设置一下音量啊。呵呵，可以这样做的：

Dim language As String = " MSSimplifiedChineseVoice " ' 此处判断缺省语音引擎.英文为MSSam
MyVoice.Volume = 100 ' 设置音量,0到100
Dim cnVoice,enVoice As Integer
If Strings.Right(MyVoice.GetVoices.Item( 0 ).Id,language.Length) = language Then ' 如果Item(0)是中文
cnVoice = 0
enVoice = 1
Else ' 如果Item(0)是英文
cnVoice = 1
enVoice = 0
End If

似乎有点不对劲哦，如果我不止中文和英文这两个语音引擎怎么办？
呃，好吧，我承认我做的不够完美。你要想知道你都有哪些语音引擎，可以用枚举的办法，通过MyVoice.GetVoices.Count得到语音引擎的数量，再通过MyVoice.GetVoices.Item(i).Id得到每个语音引擎的名称(注意：此处id返回的是注册表里的值，也可以用MyVoice.GetVoices.Item(0).GetDescription得到语音引擎的描述，随便你喜欢哪一种)。只是这已经不在本文讨论范围内了，本文只想说说简单的效果。

你脑筋转得很快，又问：“如果我要中英文混合来读，该怎么办呢？”
这个问题问得好，首先，你必须懂得判断一个字符到底是中文字符，还是英文字符。
这里通过ascii来判断，我们另外写一个函数：
Private FunctionisChinese(ByValasciivAsInteger)AsBoolean
Try
IfLen(Hex$(asciiv))>2Then
isChinese=True
Else
isChinese=False
EndIf
CatchexAsException

EndTry

EndFunction

举个例子，引用这个函数：isChinese(Asc("我"))，对了，这个函数我们只用来判断一个字符，千万不要写多，不能把"我爱周星星！"全部写进去哦。
写完了这个函数，记得返回Form1_load事件里面，我们继续。

你努力想了想，问：“那我要读一句中英文混合的话，只要用strings.mid语句把这句话一个字符一个字符地读出来，然后判断是中文还是英文字符，最后交给语音去朗读就可以了，对不对？”
我哈哈大笑，说：“你的作法没错，可以实现朗读功能，而且也是准确地区分了语音引擎，可是，逐个字符读的话，一个完整的单词也会让你读成字母啊！而且每个字符切换一次语音引擎，很消耗系统资源的，这样做有什么意义呢？”

最好的办法是，将中英文区分开来，并且用自定义的关键词把它们连接出来，最后通过split语句将它分成数组，这样就OK了。
比如，一句"你真是lucky. I 服了 you."，我们先用关键词"/HarryGlory/"将它们分成
"你真是"/HarryGlory/lucky. I "/HarryGlory/服了"/HarryGlory/ you."
最终通过split语句用数组存储起来，将其分成

a(0)="你真是"
a(1)="lucky. I "
a(2)="服了"
a(3)="you."

明白了吗？中英文是间隔地出来的，这是关键！这样我们可以很方便地根据数组的序号，设置当其为偶数时，用中文语音朗读，奇数时用英文语音朗读了！
这个功能也可以拓展开来，如果你只要判断、读取中文，那就只取序号为偶数的数组就可以了，哈哈，方便吧？

当然，关键词这一步骤显得多余和麻烦了点，你可以自己去试试直接用数组来分开存储的，呵呵，就当是作业吧。

以下代码通过关键词将中英文分开：
Dim strSource As String="你真是lucky.I服了you."
Dim strDestination As String=Mid(strSource,1,1)
Dim i As Integer
Dim strSelect As String=""
Dim splitKey As String = " /HarryGlory/ " ' 这里可以改变临时分割用的关键词，这个关键词一定不能在文章中出现

' 以下for语句功能是把中英文用splitKey分开
For i = 2 To Len (strSource)
strSelect = Mid (strSource,i, 1 )
 If isChinese( Asc (strSelect)) Then ' 如果是中文
If isChinese( Asc (Strings.Right(strDestination, 1 ))) Then ' 如果前一个字符是中文
strDestination = strDestination & Mid (strSource, 1 )
 Else
strDestination = strDestination & splitKey & Mid (strSource, 1 )
 End If
' strDestination=strDestination+Mid(strSource,1)
Else ' 如果不是中文
If isChinese( Asc (Strings.Right(strDestination, 1 ))) Then ' 前一个字符是中文
strDestination = strDestination & splitKey & Mid (strSource, 1 )
 Else
strDestination = strDestination & Mid (strSource, 1 )
 End If
End If
Next i


以下代码是实现数组存储刚才生成的结果

Dim a(),p As String
a = Split (strDestination,splitKey)

以下代码实现逐句朗读

Dim OK As Boolean = True ' OK为true的时候读中文
If isChinese( Asc (a( 0 ))) Then ' 如果第一个字符是中文
OK = True
Else ' 如果第一个字符不是中文
OK = False
End If

' 以下语句是逐句朗读
For Each p In a
 If OK Then
MyVoice.Voice = MyVoice.GetVoices([ String ].Empty,[ String ].Empty).Item(cnVoice )
MyVoice.Speak(p,SpeechVoiceSpeakFlags.SVSFlagsAsync)
OK = False
Else
MyVoice.Voice = MyVoice.GetVoices([ String ].Empty,[ String ].Empty).Item(enVoice )
MyVoice.Speak(p,SpeechVoiceSpeakFlags.SVSFlagsAsync)
OK = True
End If
Next


整个过程就完成了，很简单，是吧？赶紧运行一下啦，哈哈。

还可以进一步开发出更多功能，如放一个文本框输入字符串来朗读，或者拖放文本文件来朗读，或者读xml文件，还有将朗读的结果输出为wav声音文件等等，这个就靠你自己发挥想象力啦！

在使用微软的tts的speak方法时，需要输入一个SpeechVoiceSpeakFlags参数，该类型有多个枚举。由于没有中文，自己翻译与共享之。


SVSFDefault

默认为：读取给定的文本，被SVSFlagsAsync（异步）重写。

在播放期间的请求不会被清空，被SVSFPurgeBeforeSpeak重写。

只有当指定的文本以“<”开头才会使用XML方式解析，被SVSFIsXML和SVSFIsNotXML重写。

不保留全局XML状态变化（此处翻译有压力）。。。，被SVSFPersistXML重写。

标点符号不扩展为单词，被SVSFNLPSpeakPunc重写。

（旁白：通过default大概了解了此枚举类型的大概）

SVSFlagsAsync

播报调用为异步，所以播报请求一发送，就马上回应。

SVSFPurgeBeforeSpeak

在播报期间，不接受其他的播报请求。


SVSFIsXML

文本以XML形式解析。


SVSFIsNotXML

文本不以XML形式解析。


SVSFPersistXML

不会翻译


SVSFNLPSpeakPunc

把标点符号也读出来。


其他类型就不翻译了。

～～～

个人实操：

在前台的js用async:true,保证了网页顺利加载。

在后台的CS用

SpeechVoiceSpeakFlagsspFlags=SpeechVoiceSpeakFlags.SVSFDefault;

SpVoicevoice=newSpVoice();

voice.Speak(strContent,spFlags);

保证了在网页端点击任何东西都不会停止播报——在播放期间的请求不会被清空。



版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。

相关推荐

VB Format函数
Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强制返回为文本 -------------------------------- 数字类型的格式化 --------------------------------     固定格式参数：     General Number 普通数字，如可以用来去掉千位分隔号     format$("100,1
vb6/ASP FORMAT MM/DD/YYYY
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式，竟然没有好的办法， Format 或者FormatDateTime 竟然结果和系统设置的区域语言的日期和时间格式相关。意思是尽管你用诸如 Format(Now, "MM/dd/yyyy")，如果系统的设置格式区域语言的日期和时间格式分隔符是"-",那他还会显示为 MM-dd-yyyy     只有拼凑： <%response.write
VB.net 捕获项目全局异常
在项目中添加如下代码：新建窗口来显示异常信息。 Namespace My ‘全局错误处理，新的解决方案直接添加本ApplicationEvents.vb 到工程即可 ‘添加后还需要一个From用来显示错误。如果到这步还不会则需要先打好基础啦 ‘======================================================== ‘以下事件
实现用VB.Net/(C#)开发K/3 BOS 插件的真正可行方法
转了这一篇文章，原来一直想用C#做k3的插件开发，vb没有C#用的爽呀，这篇文章写与2011年，看来我以前没有认真去找这个方法呀。 https://blog.csdn.net/chzjxgd/article/details/6176325 金蝶K3 BOS的插件官方是用VB6编写的，如果  能用.Net下的语言工具开发BOS插件是一件很愉快的事情，其中缘由不言而喻，而本文则是个人首创，实现在了用V
vb，wps，excel 分裂
Sub 分列() ‘以空格为分隔符，连续空格只算1个。对所选中的单元格进行处理 Dim m As Range, tmpStr As String, s As String Dim x As Integer, y As Integer, subStr As String If MsgBox("确定要分列处理吗？请确定分列的数据会覆盖它后面的单元格！", _
VB文件 hash 查看器
  窗体代码 1 Private Sub Text1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) 2 Dim path As String, hash As String 3 For Each fil
VB.NET MYSQL DataGridView 增删改查INSERT,SELECT,UPDATE,DELETE
  Imports MySql.Data.MySqlClient Public Class Form1 ‘ GLOBAL DECLARATIONS Dim conString As String = "Server=localhost;Database=net2;Uid=root;Pwd=123456;" Dim con As New MySqlConnection
VB.NET 使用ADODB連接資料庫滙出到EXCEL
‘導入命名空間 Imports ADODB Imports Microsoft.Office.Interop   Private Sub A1() Dim Sql As String Dim Cnn As New ADODB.Connection Dim Rs As New ADODB.Recordset Dim S As String   S = "Provider=OraOLEDB.Oracl
vb.net 多线程運用 ping
Imports System.IO Imports System.Threading Imports System.Diagnostics Public Class Form1 Dim A(254) As String    Function ping(ByVal IP As Integer) As String Dim IPAddress As String IPAddress = "10.0.
VB等待进程结束
VB运行EXE程序，并等待其运行结束 参考：https://blog.csdn.net/useway/article/details/5494084 Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long Pr
vb中去掉string数组的一部分
今天碰到一个问题，登陆的时候，如果不需要验证手机号为空，则不去验证手机号 因为登陆的时候所有的验证信息都存放在一个数组里 Dim CheckUserInfo() As String ={UserBirthday, SecEmail, UserMob, UserSex, RealNameFirst, RealName, CheckCardID, CheckCardType, Contactemail
VB如何连接SQL Server数据库
在VB6.0中，数据访问接口有三种： 1、ActiveX数据对象（ADO） 2、远程数据对象（RDO） 3、数据访问对象（DAO） 1.使用ADO（ActiveX Data Objec，ActiveX数据对象）连接SQL Server 1）使用ADO控件连接 使用ADO控件的ConnectionString属性就可以连接SQL Server，该属性包含一个由分号分隔的argument=value语
Visual Basic 6.0VB6.0详细安装过程
注：大家如果没有VB6.0的安装文件，可自行百度一下下载，一般文件大小在200M左右的均为完整版的软件，可以使用。   特别提示：安装此软件的时候最好退出360杀毒软件（包括360安全卫士，电脑管家等，如果电脑上有这些软件的话），因为现如今的360杀毒软件直接会对VB6.0软件误报，这样的话就可能会在安装过程中被误报阻止而导致安装失败，或者是安装后缺乏很多必须的组件（其它的杀毒软件或安全卫士之类的
使用VB6读取数据库资源并发送邮件原创
Private Sub Form_Load() Call conndb End Sub Private Function conndb() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim strCn, sql As String Dim db_host As String Dim db_user As String
POS VB
  PPSM06S70:  Add  moddate  EDITSPRINTJOB:  MAX(TO_CHAR(ETRN.MODDATE, ‘yyyy/mm/dd/HH24:MI AM‘)) ACTUAL_SHIPDATE   4.Test Scenario (1) ：Query SQL Test DN:8016578337 SELECT CTRN.TKCTID TRUCK_ID,        
vb.net 水晶報表CrystalReport 動態設定資料庫來源
  沒有出現CrystalReportViewer時,須安裝CRforVS_13_0. 新增1個數據集,新增1個數據表,添加二列,列名要和資料庫名一樣. 修改目標Framework 修改app.config, <startup >改成<startup useLegacyV2RuntimeActivationPolicy ="true">  CrystalReport1.rpt增加數據庫專家 在表單
VB.net 与线程
Imports System.Threading Imports System Public Class Form1 Dim th1, th2 As Thread Public Sub Method1() Dim i As Integer For i = 1 To 100 If Me.Label1.BackColor =
vb.net Process32First和Module32First
Friend Const PROCESS_ALL_ACCESS = &H1F0FFF = 2035711 Friend Const PROCESS_VM_READ = &H10 Friend Const PROCESS_VM_WRITE = &H20 Friend Const PAGE_READONLY = &H2 Friend Const PAGE_READWRITE = &H4 Friend
vb.net 分割byte数组的方法SplitBytes
以下代码随手写的 并没有大量测试 效率也有待提升 如果需要C#的请自行转换 Function SplitBytes(Data As Byte(), Delimiter As Byte()) As List(Of Byte()) Dim i = 0 Dim List As New List(Of Byte()) Dim bytes As New
VB.NET连接SQL_Server实例
Imports System.Data.SqlClient Public Class Form1 REM Public conn1 As SqlConnection = New SqlConnection("server=.; Integrated Security=False;Initial Catalog= mydatabase1; User ID= sa;password")
pythonJavaScriptjavaHTMLPHPreactjsC#AndroidCSSNode.jssqlrpython-3.xMysqLjQueryc++pandasFlutterangularIOSdjangolinuxswifttypescript路由器JSON路由器设置无线路由器h3c华三华三路由器设置华三路由器电脑软件教程arraysdocker软件图文教程Cvue.jslaravelspring-boot