中文转换成拼音函数

最新推荐文章于 2018-07-23 22:03:14 发布

weixin_33766805

最新推荐文章于 2018-07-23 22:03:14 发布

阅读量248

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/qiyuan/archive/2006/08/22/483366.html

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    '中文转换成拼音函数
    Public Function GetChinesePYCode(ByVal SourceStr As String) As String
        Dim Serial_S As String
        Dim Serial_T As String
        Dim TempS As String
        Dim J As Integer

        Dim I As Integer
        Dim HelpChar As String
        Dim GetHelpCode As String
        Serial_S = "啊芭擦搭蛾发噶哈击喀垃妈拿哦啪期然撒塌挖昔压匝座"
        Serial_T = "abcdefghjklmnopqrstwxyz"

For I = 1 To Len(SourceStr)
HelpChar = Mid(SourceStr, I, 1)

            If Asc(HelpChar) >= Asc(Left(Serial_S, 1)) And Asc(HelpChar) <= Asc(Right(Serial_S, 1)) Then
                '-------------------------------
                If Asc(HelpChar) = Asc(Right(Serial_S, 1)) Then
                    GetChinesePYCode = GetHelpCode & Right(Serial_T, 1)
                Else
                    For J = 2 To Len(Serial_S)
                        TempS = Mid(Serial_S, J, 1)
                        If Asc(HelpChar) < Asc(TempS) Then
                            GetChinesePYCode = GetChinesePYCode & Mid(Serial_T, J - 1, 1)
                            Exit For
                        End If

Next J
End If

                '-------------------------------
            Else
                GetChinesePYCode = GetChinesePYCode & HelpChar
                GetHelpCode = GetHelpCode & "?"
            End If

Next I

End Function

转载于:https://www.cnblogs.com/qiyuan/archive/2006/08/22/483366.html