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

ttui

mfc我不会，我用delphi
加空格也不难，只要改下程序，转换时一个自一个的转，结果间插入空格，因为word的拼音指南也是一个字一个字转的，ifelanguage没有提供加入分隔符的功能。
至于获得笔画数现在还是不行，因为微软拼音2.0没有实现这个功能，3.0还没看，等有时间再说了
其实本想写成个类的不过考虑到可能有人不会用就写成了函数，写成类可以获取接口后先不释放，效率高些，
有需要的尽管改代码吧，多些关注：）

tspeter

巨能干的楼主啊。不大明白。

speedfx

问一下  汉字转拼音的完美解决方案  的大哥,能不能只显示拼音,不加音调......

ttui

音调是微软拼音自动给加上的。如果返回结果是ao4这样的结果比较方便处理，只要将最后一个字符丢掉就可以了。如果结果是ào这样的，那就需要建立一个转换表，将à之类的字符替换掉。能够实现，就是麻烦些。

刚刚看了下office2007带的微软拼音，由汉字得到笔画的功能依然没有完成，现在用IFELanguage还是没办法得到笔画。
在发发牢骚，japanese的笔画，注音什么的早就有了，ms对简体中文世界还是不够重视啊

ào

ào

ttui

更新了～～

更新情况在一楼

香川群子

QUOTE:

以下是引用ttui在2007-3-30 10:05:02的发言：

汉字转拼音的完美解决方案～
err...至少是比较完美
经测试在office xp,2003,2007通过。

'***************************************************************************
关键字：汉字 注音 拼音 IFELanguage vba DispCallfunc OLE

在废话一下，用windows ime api也可以实现汉字到拼音，但是在WINPY.ime中有个bug，
而且在2000 sp4~xp sp2一直存在，就是必须要将winnt\system32\winpy.mb考到系统盘根目录下才行。
这个bug存在了如此长的时间，估计是MS有意为之，鄙视一下。

2007.04.03更新了一下，真对大家提出的要求加入了拼音间加入分隔符和去掉注音的功能，并改成了类，以方便使用。
请参照“模块1”中的例子，用起来很简单：）
更正了在Function IFELanguage_GetMorphResult中的一个错误，redim时vba数组默认起始搞错了

更新后的文件：
G3HPpttC.rar (205.12 KB, 下载次数: 961)

2007-4-3 13:36 上传

点击文件名下载附件
汉字转拼音的完美解决方案～（4.3更新）～加入实用功能&Bugfix

香川群子

另外，我的文件除了在拼音之间增加了一个空格，同时还能保留原来文字中的其它字符。

（楼主把非汉字都直接去掉了，也好也不好。）

只是，为了防止在转化为民国拼音时把英文字母转化掉，我把英文字母都改成大写了。

还有，我的电脑是日文环境的，所以，使用的宏代码中都没有直接使用汉字，都是用的双字节码。

香川群子

建议楼主的分隔符不要固定，可以作为可选参数直接加在函数里，默认为""空字符即没有分隔。

如输入函数=HzToPy(A3,"-")，则结果为：

改成类了=gǎi-chéng-lèi-le

如输入函数=HzToPy(A4," ")，则结果为：

加入分隔符=jiā rù fēn gé fú

Public Function HzToPy(Hz As String, Optional SC = "") As String
    Dim hp As HZ2PY
    Set hp = New HZ2PY

    'hp.Seperator = "｣ｭ" 这句被改动为如下

hp.Seperator = SC

    hp.UseSeperator = True
    HzToPy = hp.GetPinYin(Hz)
    HzToPy = hp.AdjustPhoneticNotation(HzToPy, pnNoNotation)
    Set hp = Nothing
End Function

[此贴子已经被作者于2007-4-3 13:59:48编辑过]

香川群子

我的文件中，选定文本右侧单元格后按ctrl+s可以自动把文本逐字区分并给出其unicode双字节码的。

香川群子

把楼主的拼音转化为无注音声调符的英文字母的函数，虽然很简单，但挺烦的。

Function EP(HanZiPinYin)
    P = HanZiPinYin
   
    P = Replace(P, ChrW(257), "a")
    P = Replace(P, ChrW(225), "a")
    P = Replace(P, ChrW(462), "a")
    P = Replace(P, ChrW(224), "a")
   
    P = Replace(P, ChrW(275), "e")
    P = Replace(P, ChrW(233), "e")
    P = Replace(P, ChrW(283), "e")
    P = Replace(P, ChrW(232), "e")
   
    P = Replace(P, ChrW(299), "i")
    P = Replace(P, ChrW(237), "i")
    P = Replace(P, ChrW(464), "i")
    P = Replace(P, ChrW(236), "i")
   
    P = Replace(P, ChrW(333), "o")
    P = Replace(P, ChrW(243), "o")
    P = Replace(P, ChrW(466), "o")
    P = Replace(P, ChrW(242), "o")
   
    P = Replace(P, ChrW(363), "u")
    P = Replace(P, ChrW(250), "u")
    P = Replace(P, ChrW(468), "u")
    P = Replace(P, ChrW(249), "u")
   
    P = Replace(P, ChrW(252), "v")
    P = Replace(P, ChrW(470), "v")
    P = Replace(P, ChrW(472), "v")
    P = Replace(P, ChrW(474), "v")
    P = Replace(P, ChrW(476), "v")
   
    EP = P
End Function