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

zx26ben · 发表于 2008-12-27 14:12

太强大了你们

lexusninny · 发表于 2008-12-27 18:19

高手高手，多谢！

laichung · 发表于 2009-1-5 11:47

謝樓主程式~

加一句, 令 "標點" 或者那些 "不能轉換的字" 直接輸出 (當然最好在函数加一個参数控制)
方便整篇文章轉換

Public Function GetPinYin(HzStr As String) As String
Dim i As Integer
Dim tmpStr As String

GetPinYin = ""
If HzStr <> "" Then
      If pvUseSeperator Or pvInitialOnly Then
         For i = 1 To Len(HzStr)
            tmpStr = IFELanguage_GetMorphResult(Mid(HzStr, i, 1))
            If tmpStr <> "" Then
                  If pvInitialOnly Then
                     GetPinYin = GetPinYin & GetInitial(tmpStr) & pvSeperator
                  Else
                     GetPinYin = GetPinYin & tmpStr & pvSeperator
                  End If
            Else: GetPinYin = GetPinYin & Mid(HzStr, i, 1) '直接輸出未能轉換的字
            End If
         Next
         If Len(GetPinYin) > 0 Then GetPinYin = Left(GetPinYin, Len(GetPinYin) - 1)
      Else
         GetPinYin = IFELanguage_GetMorphResult(HzStr)
      End If
End If
End Function

chentx · 发表于 2009-1-5 12:48

利害利害，需要顶起来，让大家都见识到VBA也能做到其他语言能做到的事，长见识了！！

hewlett99 · 发表于 2009-1-5 14:40

ding ,太佩服楼主了

wangshen · 发表于 2009-2-4 23:15

怎么使用啊？

hhzjxss · 发表于 2009-2-17 12:29

谢谢楼主的好函数，收藏了！

coby001 · 发表于 2009-2-17 12:41

强人啊.不得不服.

987654321 · 发表于 2009-3-1 10:22

高手!!!!!!!!!!!!!!!!!!!!!!!!

cpawei · 发表于 2009-3-5 10:11

太强了但能不能不带音调标识呢？

		自动登录	找回密码
密码			免费注册