汉字拼音首字母转换（支持多音字、简繁体、特殊数字字母）

liucqa · 发表于 2013-9-10 12:17

本帖最后由 liucqa 于 2013-9-10 12:43 编辑

http://weibo.com/imewlconverter

https://github.com/studyzy/imewlconverter
https://code.google.com/p/imewlconverter/

词库转换

23008个字简繁对照拼音

简繁对照拼音.rar (118.07 KB, 下载次数: 142)

liucqa · 发表于 2013-9-10 12:47

山中老人发表于 2013-9-10 12:16
另外，我检测了一下缓存命中率，长度为100 时命中高达80% 以上。
感觉VBA 用for语句，效率不如case语句。 ...

不能用For和Case

最简单的算法是做个65000的大数组，把所有的unicode的字对应的拼音收进来，然后得到文本的unicode就可以直接作为数组下标得到对应的拼音。

Dim b() as Byte
str="中国"
b=str
b数组就是str字符串的unicode

具体参考http://club.excelhome.net/thread-998747-1-1.html

其实汉字有23000就够了

山中老人 · 发表于 2013-9-10 13:35

^_^. 发表于 2013-9-10 11:54
完整汉字表还要找吗？直接用QQ拼音导出就行了。txt文件

请教导出方法。
我装了QQ拼音，没找到！

山中老人 · 发表于 2013-9-10 19:25

liucqa 发表于 2013-9-10 12:17
http://weibo.com/imewlconverter

https://github.com/studyzy/imewlconverter

请问老师：简繁对照拼音.rar 后两列的数字是什么意思？

山中老人 · 发表于 2013-9-10 20:12

本帖最后由山中老人于 2013-9-10 20:15 编辑

liucqa 发表于 2013-9-10 12:47
不能用For和Case

最简单的算法是做个65000的大数组，把所有的unicode的字对应的拼音收进来，然后得到文 ...

这要多大内存，开销也太大了吧?
有什么更好得办法呢？

高度保密 · 发表于 2013-9-10 21:03

重庆、西藏不识别

山中老人 · 发表于 2013-9-11 16:18

本帖最后由山中老人于 2013-9-11 18:21 编辑

liucqa 发表于 2013-9-10 12:47
不能用For和Case

最简单的算法是做个65000的大数组，把所有的unicode的字对应的拼音收进来，然后得到文 ...

Dim b() as Byte
str="ABC"
b=str

数组是双倍的，请问如何解决？？希望一个字母存一个Byte。谢谢！！

拼音转换.rar (385.79 KB, 下载次数: 28)

山中老人 · 发表于 2013-9-11 16:35

本帖最后由山中老人于 2013-9-11 18:21 编辑

高度保密发表于 2013-9-10 21:03
重庆、西藏不识别

谢谢！
已解决！

liucqa · 发表于 2013-9-11 19:10

山中老人发表于 2013-9-11 16:18
Dim b() as Byte
str="ABC"
b=str

字母可以搞成一个字节，转成ansi就行，但是你没法把汉字也搞成一个字节。

从兼容性角度出发，必须要学会处理Unicode字节数组。

搞文字编码的，这些是基本知识，必须会的

老谭酸菜 · 发表于 2013-9-12 18:16

只能转换出拼音首字母？！

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

[原创] 汉字拼音首字母转换（支持多音字、简繁体、特殊数字字母）

点评

[原创] 汉字 拼音 首字母 转换 （支持多音字、简繁体、特殊数字字母）

点评

[原创] 汉字拼音首字母转换（支持多音字、简繁体、特殊数字字母）