汉字拼音的一个解决方法(初具使用价值)

最新推荐文章于 2022-04-06 13:36:26 发布

xjbclz

最新推荐文章于 2022-04-06 13:36:26 发布

阅读量445

点赞数

分类专栏： C/C++

C/C++ 专栏收录该内容

134 篇文章 5 订阅 ¥9.90 ¥99.00

订阅专栏

超级会员免费看

该博客分享了一个VB.NET实现的汉字拼音转换程序，包括汉字拼音库和主要代码，能够处理单个汉字和多音字的拼音转换。程序包含拼音输入码、声调和拼音表达，并能根据拼音码或拼音进行汉字查找。

摘要由CSDN通过智能技术生成

Author：水如烟
这个版本已有使用价值。如果要求不高，基本满足需要。一并贴出来，也对比一下。

这个版本的汉字库已纳入程序资源里头,大小为324K。

主要代码如下：

Namespace Businness.PinYin
    Public Class SpellInformation
        Private gTone As String
        Private gSpellInput As String
        Private gSpellExpress As String

        ''' <summary>
        ''' 声调
        ''' </summary>
        Public Property Tone() As String
            Get
                Return gTone
            End Get
            Set(ByVal value As String)
                gTone = value.Trim
            End Set
        End Property

        ''' <summary>
        ''' 拼音输入码
        ''' </summary>
        Public Property SpellInput() As String
            Get
                Return gSpellInput
            End Get
            Set(ByVal value As String)
                gSpellInput = value.Trim
            End Set
        End Property

        ''' <summary>
        ''' 拼音
        ''' </summary>
        Public Property SpellExpress() As String
            Get
                Return gSpellExpress
            End Get
            Set(ByVal value As String)
                gSpellExpress = value.Trim
            End Set
        End Property

Sub New()
End Sub

        ''' <param name="tone">声调</param>
        ''' <param name="spellinput">拼音输入码</param>
        ''' <param name="spellexpress">拼音</param>
        Sub New(ByVal tone As String, ByVal spellinput As String, ByVal spellexpress As String)
            Me.Tone = tone
            Me.SpellInput = spellinput
            Me.SpellExpress = spellexpress
        End Sub

        ''' <param name="spellexpress">拼音</param>
        Public Overrides Function Equals(ByVal spellexpress As Object) As Boolean
            Return Me.SpellExpress.Equals(spellexpress)
        End Function

        Public Overrides Function ToString() As String
            Return String.Format("拼音码 {0,-6} 声调 {1} 拼音 {2}", Me.SpellInput, Me.Tone, Me.SpellExpress)
        End Function
    End Class

End NamespaceNamespace Businness.PinYin
Public Class Word
Private gValue As String

        ''' <param name="word">单个汉字</param>
        Sub New(ByVal word As String)
            Me.gValue = word
        End Sub

        ''' <summary>
        ''' 汉字
        ''' </summary>
        Public ReadOnly Property Value() As String
            Get
                Return gValue
            End Get
        End Property

        Public ReadOnly Property Code() As String
            Get
                Return Common.Code(gValue)
            End Get
        End Property

Private gSpellList As New Dictionary(Of String, SpellInformation)

        ''' <summary>
        ''' 拼音集
        ''' </summary>
        Public ReadOnly Property Spells() As SpellInformation()
            Get
                Dim tmp(gSpellList.Count - 1) As SpellInformation
                gSpellList.Values.CopyTo(tmp, 0)
                Return tmp
            End Get
        End Property

        ''' <summary>
        ''' 是否多音字
        ''' </summary>
        Public ReadOnly Property IsMutiSpell() As Boolean
            Get
                Return gSpellList.Count > 1
            End Get
        End Property

Public Sub AddSpell(ByVal spell As SpellInformation)
If String.IsNullOrEmpty(spell.SpellExpress) Then Exit Sub

If Me.gSpellList.ContainsKey(spell.SpellExpress) Then Exit Sub

Me.gSpellList.Add(spell.SpellExpress, spell)
End Sub

Public Sub AddSpell(ByVal tone As String, ByVal spellinput As String, ByVal spellexpress As String)
Dim tmp As New SpellInformation(tone, spellinput, spellexpress)

AddSpell(tmp)
End Sub

        Public ReadOnly Property DefaultSpell() As SpellInformation
            Get
                If Me.gSpellList.Count = 0 Then Return Nothing
                Return Me.Spells(0)
            End Get
        End Property

        Public ReadOnly Property DefaultSpellExpress() As String
            Get
                If DefaultSpell Is Nothing Then Return Nothing
                Return Me.DefaultSpell.SpellExpress
            End Get
        End Property

        Public ReadOnly Property DefaultSpellInput() As String
            Get
                If DefaultSpell Is Nothing Then Return Nothing
                Return Me.DefaultSpell.SpellInput
            End Get
        End Property

        Public ReadOnly Property DefaultTone() As String
            Get
                If DefaultSpell Is Nothing Then Return Nothing
                Return Me.DefaultSpell.Tone
            End Get
        End Property

        Public ReadOnly Property AllSpellExpress() As String
            Get
                If Me.gSpellList.Count = 0 Then Return Nothing

If Not Me.IsMutiSpell Then Return Me.DefaultSpellExpress

                Dim tmp(gSpellList.Count - 1) As String
                For i As Integer = 0 To gSpellList.Count - 1
                    tmp(i) = Me.Spells(i).SpellExpress
                Next

                Return String.Join(" ", tmp)
            End Get
        End Property

        Public ReadOnly Property AllSpellInput() As String
            Get
                If Me.gSpellList.Count = 0 Then Return Nothing

If Not Me.IsMutiSpell Then Return Me.DefaultSpellInput

                Dim tmp(gSpellList.Count - 1) As String
                For i As Integer = 0 To gSpellList.Count - 1
                    tmp(i) = Me.Spells(i).SpellInput
                Next

                Return String.Join(" ", tmp)
            End Get
        End Property

        Public ReadOnly Property AllTone() As String
            Get
                If Me.gSpellList.Count = 0 Then Return Nothing

If Not Me.IsMutiSpell Then Return Me.DefaultTone

                Dim tmp(gSpellList.Count - 1) As String
                For i As Integer = 0 To gSpellList.Count - 1
                    tmp(i) = Me.Spells(i).Tone
                Next

                Return String.Join(" ", tmp)
            End Get
        End Property

        Public Overrides Function ToString() As String
            Dim mBuilder As New System.Text.StringBuilder
            For Each spell As SpellInformation In Me.Spells
                mBuilder.AppendLine(String.Concat(Me.Value, " ", spell.ToString))
            Next
            Return mBuilder.ToString
        End Function
    End Class

End Namespace
Imports System.IO
Imports System.Text.Regulars

Namespace Businness.PinYin
Public Class PYService
Private gDataSet As dsPinYin

        ''' <summary>
        ''' 汉字表
        ''' </summary>
        Public ReadOnly Property PinYinTable() As dsPinYin.PinYinDataTable
            Get
                Return gDataSet.PinYin
            End Get
        End Property

        ''' <summary>
        ''' 单个汉字信息
        ''' </summary>
        ''' <param name="word">单个汉字</param>
        Public Function GetWord(ByVal word As String) As Word
            Dim mRow As dsPinYin.PinYinRow = Me.gDataSet.PinYin.FindBy代码(GetCode(word))

Return RowConverter(mRow)
End Function

Private Function RowConverter(ByVal row As dsPinYin.PinYinRow) As Word
If row Is Nothing Then Return Nothing

Dim mWord As New Word(row.汉字)

            Dim mSpellExpressArray() As String = row.拼音.Split(" "c)
            Dim mToneArray() As String = row.声调.Split(" "c)
            Dim mSpellInputArray() As String = row.拼音码.Split(" "c)

            For i As Integer = 0 To mSpellExpressArray.Length - 1
                mWord.AddSpell(mToneArray(i), mSpellInputArray(i), mSpellExpressArray(i))
            Next

Return mWord
End Function

        Private Sub RowUpdate(ByVal word As Word)
            Dim mWord As Word = GetWord(word.Value)
            If mWord Is Nothing Then
                Dim tmpRow As dsPinYin.PinYinRow = Me.gDataSet.PinYin.AddPinYinRow(word.Value, word.Code, "", "", "", True)
                mWord = RowConverter(tmpRow)
            End If

            For Each spell As SpellInformation In word.Spells
                mWord.AddSpell(spell)
            Next

            Dim mRow As dsPinYin.PinYinRow = Me.gDataSet.PinYin.FindBy代码(mWord.Code)
            With mRow
                .拼音码 = mWord.AllSpellInput
                .拼音 = mWord.AllSpellExpress
                .声调 = mWord.AllTone
                .单音 = Not mWord.IsMutiSpell
            End With

End Sub

        Public Sub Load()
            UpdateFromTxt()
        End Sub

        '文件存放的格式是:汉字,拼音,音调,拼音码
        Private Sub UpdateFromTxt()
            Me.gDataSet = New dsPinYin

LzmTW.uSystem.uCollections.CommonServices.MoveNext(Of String)(My.Resources.pinyin.Split(CChar(vbCrLf)), AddressOf Action)

Me.gDataSet.AcceptChanges()
End Sub

'文件存放的格式是:汉字,拼音,音调,拼音码
Private Sub Action(ByVal line As String)

Dim mArray As String()
mArray = line.Split(","c)

If mArray.Length <> 4 Then Exit Sub

            Dim mWord As String = mArray(0).Trim
            Dim mSpellExpress As String = mArray(1).Trim
            Dim mTone As String = mArray(2).Trim
            Dim mSpellInput As String = mArray(3).Trim

Dim mWordInformation As New Word(mWord)
mWordInformation.AddSpell(mTone, mSpellInput, mSpellExpress)

RowUpdate(mWordInformation)

End Sub

        ''' <summary>
        ''' 将字符串转为拼音
        ''' </summary>
        ''' <param name="line">字符串</param>
        ''' <param name="isgetfirst">如是多音字,取第一个拼音</param>
        ''' <param name="forInput">是则查拼音码,否则查拼音</param>
        Public Function ToPinyin(ByVal line As String, ByVal isgetfirst As Boolean, ByVal forInput As Boolean) As String
            Dim mBuilder As New Text.StringBuilder

            For Each s As Char In line.ToCharArray
                If Common.IsSingleWord(s) Then
                    mBuilder.Append(GetPinyin(s, isgetfirst, forInput))
                Else
                    mBuilder.Append(s)
                End If
            Next

Return mBuilder.ToString
End Function

Private Function GetPinyin(ByVal word As String, ByVal isgetfirst As Boolean, ByVal forInput As Boolean) As String
Dim mResult As String

Dim mWord As Word = GetWord(word)

            If isgetfirst Or Not mWord.IsMutiSpell Then
                If forInput Then
                    mResult = mWord.DefaultSpellInput
                Else
                    mResult = mWord.DefaultSpellExpress
                End If

Else
If forInput Then

Dim tmpList(-1) As String

                    For Each spell As SpellInformation In mWord.Spells
                        If Array.IndexOf(tmpList, spell.SpellInput) = -1 Then
                            LzmTW.uSystem.uCollections.CommonServices.Append(tmpList, spell.SpellInput)
                        End If
                    Next

                    If tmpList.Length = 1 Then
                        mResult = mWord.DefaultSpellInput
                    Else
                        mResult = String.Format("({0})", String.Join(" ", tmpList))
                    End If
                Else
                    mResult = String.Format("({0})", mWord.AllSpellExpress)
                End If

End If

Return mResult
End Function

        ''' <summary>
        ''' 按拼音查字
        ''' </summary>
        ''' <param name="pinyin">拼音</param>
        Public Function WordArray(ByVal pinyin As String) As String()
            Dim mRows As dsPinYin.PinYinRow() = CType(Me.gDataSet.PinYin.Select(String.Format("拼音码 LIKE '%{0}%'", pinyin)), dsPinYin.PinYinRow())
            Dim mResult(-1) As String
            For i As Integer = 0 To mRows.Length - 1
                If Array.IndexOf(mRows(i).拼音码.Split(" "c), pinyin) <> -1 Then
                    LzmTW.uSystem.uCollections.CommonServices.Append(mResult, mRows(i).汉字)
                End If
            Next
            Return mResult
        End Function

        ''' <summary>
        ''' 按拼音查字
        ''' </summary>
        ''' <param name="pinyin">拼音</param>
        Public Function Words(ByVal pinyin As String) As String
            Return String.Concat(WordArray(pinyin))
        End Function

        Public Function GetCode(ByVal word As String) As String
            Return Common.Code(word)
        End Function

End Class
End Namespace

调用的代码

Public Class Form1
Dim gPinyinService As New LzmTW.Businness.PinYin.PYService

    Private Sub ButtonLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonLoad.Click
        gPinyinService.Load()
        Me.DataGridView1.DataSource = gPinyinService.PinYinTable
    End Sub

    Private Sub ButtonTran_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonTran.Click
        Me.RichTextBox2.Text = gPinyinService.ToPinyin(Me.RichTextBox1.Text, Me.CheckBox1.Checked, Me.CheckBox2.Checked)
    End Sub

    Private Sub ButtonWord_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonWord.Click
        Me.RichTextBox3.Text = gPinyinService.Words(Me.TextBoxPinyin.Text)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.RichTextBox3.Text = gPinyinService.GetWord(Me.TextBox1.Text).ToString
    End Sub
End Class

效果图：