[解决多音字]汉字转拼音的完美解决方案[12.11.29更新]

bxmy

有我当年风采！ 狂顶， 顶的不是这个功能，顶的是你这个人，是你解决问题的方法与能力！

fanjun526

谢过楼主，这个我找了好多，正是我想要学习的东西，在我编写数据库索引很有帮助。

seraph17

lz厉害，学习

可乐加蜜

是不是只有在楼主那个压缩包理的那两个excel文档里才能实现这个功能啊？

yanwxwh

学习了

tinus

加了点东东:标点符号，字母，英文保持不变

Public Function HzToPy(Hz As String, Optional Sep As String = "", Optional ShowNotation As Boolean = True, Optional ShowInitialOnly As Boolean, Optional ShowOnlyOneChar As Boolean = True) As String
'modify by Tinus for punctuation and english on Oct.19,2008

    Dim hp As HZ2PY, str As String, i, HzStr As String
    HzStr = Hz ''
    str = ""
    Set hp = New HZ2PY          '创建类
    If Sep <> "" Then
        hp.Seperator = Sep
        hp.UseSeperator = True
    End If
    hp.InitialOnly = ShowInitialOnly
    hp.OnlyOneChar = ShowOnlyOneChar
   For i = 1 To Len(Hz) ''
      HzStr = Mid(Hz, i, 1)
     ' MsgBox (Asc(HzStr))
     ' MsgBox (Asc("~"))
    If Asc(HzStr) < 0 And Asc(HzStr) > -21000 Then '目前还不确定是否完全包括
      HzStr = hp.GetPinYin(HzStr) ''
      If Not ShowNotation Then HzStr = hp.AdjustPhoneticNotation(HzToPy, pnNoNotation)
      HzStr = " " & HzStr & " "
    End If
    str = str & HzStr
   Next i
   Set hp = Nothing            '释放
  HzToPy = Replace(Trim(str), "  ", " ") ''
End Function

guosong

感谢发布，想下来学习一下，不知有没有权限

afei0032

奏是！鹅也不懂，可看楼主弄的挺麻烦，不容易啊！人家的孩子也是孩子啊！

shx21cn

shifengwanmei

谅谅之友

我也来顶一下，
楼主造福大众啊，