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

aoe1981

香川群子 发表于 2007-3-30 11:14
对汉字的调查结果如下：

韩汉字(韩国造字)            118    0.56%

请教一下：汉字转拼音有没有常规的自带的函数？只求简便，能解决常用字就好，多音字手动解决……我好像在什么地方用过，但也记不清了，好像那次没这么复杂，印象中就用手动方式调整过结果的……
比如：很多时候“颉”应该是xie的，都是ji……

xwdys

神函数~~~~~~~~~~

lfhome

谢谢！非常好，学习了！

wcymiss

ttui 发表于 2012-8-21 21:33
试一下新版微软拼音吧，我在微软拼音输入法 2010环境下转换正确

开眼界了。有几个问题还请楼主不吝赐教：

1、“Call DispCallFunc(IFELanguage, 20, 4, vbLong, 6, vt(0), pArgs(0), ret)”
如何知道GetJMorphResult函数的vtable的offset是20？
据说是用ollydbg，楼主能否发张找到这个“20”的截图？

2、
Private Sub IFELanguage_Open()
    Dim ret As Variant
    Call DispCallFunc(IFELanguage, 4, 4, vbLong, 0, 0, 0, ret)
    Call DispCallFunc(IFELanguage, 12, 4, vbLong, 0, 0, 0, ret)
End Sub

接口打开，对应的IFELanguage的方法应该只有Open吧，为什么这里会两次调用DispCallFunc函数？数字4 和12哪个代表了“Open”方法？另外一个又是代表什么？

wcymiss

ttui 发表于 2007-3-30 10:50
最初版本，请不要使用了。 服了服了，上传附件如此难

楼主，发现 IFELanguage 值（接口指针）可以这样获取：
Dim objMSIME As IUnknown
Set objMSIME = CreateObject("MSIME.China")
IFELanguage = ObjPtr(objMSIME)

另外，在Open和Close里的这两句：
Call DispCallFunc(IFELanguage, 4, 4, vbLong, 0, 0, 0, ret)
Call DispCallFunc(IFELanguage, 8, 4, vbLong, 0, 0, 0, ret)
不写似乎也没影响，我注释掉这两句后查看EXCEL进程，内存没有明显变化。这样看来，12对应的是Open，16对应的是Close。

还有那个偏移8真是耐人寻味，我到现在还没有找到出处。

snoopyball

留个记号，收藏方便以后查询。
楼主，为什么输出的都是小写字母啊？

ttui

wcymiss 发表于 2015-1-30 09:32
楼主，发现 IFELanguage 值（接口指针）可以这样获取：
Dim objMSIME As IUnknown
Set objMSIME = Crea ...

参考下VTable的结构就可以理解了，每个method按照声明的顺序存储在VTbale中，每个指针为4 Bytes长度，Open和Close是最前的两个method，所以偏移是4和8。好久不弄这些，记不太清了，见谅

wcymiss

ttui 发表于 2015-2-1 19:01
参考下VTable的结构就可以理解了，每个method按照声明的顺序存储在VTbale中，每个指针为4 Bytes长度，Ope ...

呃，终于看到楼主回复了，好激动。。。
可是楼主已经“好久不弄这些”了，我心里拔凉拔凉的。。。

唉唉，我再去找资料吧。。dispcallfunc学会了，估计可以扩展vba很多的功能。。

cityking

chinjingo 发表于 2010-10-31 11:27
试了一下，姓“覃”不对。qin

是因为输入法的错误造成的

caxa2008

如果我只取前4位拼音首字母该如何修改？