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

lijx

很好用，真正高手，解决了我的工作难题。谢谢!

kbw0591

超强水平!

jxb8088

佩服！！！

micro2008

强悍~~~我也想学~

gaoyue123

强

[此贴子已经被作者于2008-7-4 20:05:15编辑过]

numen_excel

终于见到什么才是高手中的高手.

username

留个脚印。

bengdeng

QUOTE:

以下是引用grh999在2007-5-30 16:34:33的发言：

为什么我用=HzToPy($B$19,"",FALSE,TRUE)，结果还是有空格呀？

楼主是强人，牛人，上面的问题好像是因为：

Private Sub Class_Initialize()
    IFELanguage = 0
    InitalArray
    InitialOnly = False
    GenGUID
    If CoCreateInstance(MSIME_GUID, 0, 1, _
                        IFELanguage_GUID, IFELanguage) = 0 Then
        IFELanguage_Open
        pvUseSeperator = False
        pvSeperator = ""   '原来是pvSeperator = " "
    Else
        Err.Raise "OLE error!!"
    End If
End Sub

bengdeng

再修正一个小小的BUG，当Sep的长度>1时，返回值的最后会出现多了一些连接字符，原因为：

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
                End If
            Next
            If Len(GetPinYin) > 0 Then GetPinYin = Left(GetPinYin, Len(GetPinYin) - Len(pvSeperator))  '原来红色的部份为1，这样只去除了最后一个字符！应该为pvSeperator(即Step)的长度！
        Else
            GetPinYin = IFELanguage_GetMorphResult(HzStr)
        End If
    End If
End Function

[此贴子已经被作者于2008-7-23 17:24:56编辑过]

habf2008

楼主强人！可怜我看不到运行结果，一输内容excel就死掉啦、、、