漢字拼音的一個完整解決方法！[1]

Imports SystemIO
Imports SystemTextRegularExpressions

Namespace BusinnessPinYin
Public Class PYService
Private gDataSet As New dsPinYin

＜summary＞
漢字表
＜/summary＞
Public ReadOnly Property PinYinTable() As dsPinYinPinYinDataTable
Get
Return gDataSetPinYin
End Get
End Property

Private gTxtFile As String = AppDomainCurrentDomainSetupInformationApplicationBase & pinyintxt
Private gxmlFile As String = AppDomainCurrentDomainSetupInformationApplicationBase & pinyinxml

Private gRegex As New Regex((?＜Word＞^[\ue\ufa]+)(?＜PingYin＞*))

＜summary＞
加載漢字庫文件名為pinyinxml在程序當前目錄下
＜/summary＞
Public Sub Load()
If Not IOFileExists(gxmlFile) Then
Throw New Exception(StringFormat(文件{}不存在 gxmlFile))
End If

DataSetInitialize()
gDataSetReadXml(gxmlFile)
End Sub

＜summary＞
從漢字文件中更新文件名為pinyintxt在程序當前目錄下
＜/summary＞
＜remarks＞＜/remarks＞
Public Sub Update()
If Not IOFileExists(gTxtFile) Then
Throw New Exception(StringFormat(文件{}不存在 gTxtFile))
End If

UpdateFromTxt(gTxtFile)
End Sub

＜summary＞
保存漢字庫文件為pingyinxml在程序當前目錄下
＜/summary＞
＜remarks＞＜/remarks＞
Public Sub Save()
gDataSetWriteXml(gxmlFile)
End Sub
Private Sub DataSetInitialize()
在更新或讀入時清除
MegDataSetClear()
MegDataSetAcceptChanges()
End Sub

Private Sub UpdateFromTxt(ByVal file As String)
DataSetInitialize()

Dim mLine As String
Dim mBuilder As New SystemTextStringBuilder
Dim mReader As New IOStreamReader(file SystemTextEncodingDefault)
Do
mLine = mReaderReadLine
Add(mLine)
Loop Until StringIsNullOrEmpty(mLine)

mReaderClose()
mReaderDispose()

MegDataSetPinYinAcceptChanges()
End Sub

Private Sub Add(ByVal line As String)
If line Is Nothing Then Exit Sub

With gRegexMatch(line)

If Success Then

只取單字不取詞組
If Groups(Word)ValueLength = Then
Add(Groups(Word)Value Groups(PingYin)Value)
End If

End If
End With
End Sub

Private Sub Add(ByVal word As String ByVal py As String)
多音的拼音間用單個空枨符隔開

py = pyTrimReplace( )

Dim mCode As String = ChineseCode(word)
Dim mRow As dsPinYinPinYinRow = MegDataSetPinYinFindBy代碼(mCode)
If mRow Is Nothing Then
MegDataSetPinYinAddPinYinRow(word mCode py)
Else
Dim pyArray() As String = pySplit( c)
For Each s As String In pyArray
If Not mRow拼音Contains(s) Then
mRow拼音 = StringConcat(mRow拼音 & s)
End If
Next
End If

End Sub

[]  []  

From:http://tw.wingwit.com/Article/program/net/201311/15437.html