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

山中老人

       不是简单通过汉字字符编码计算，带有9000多个字符对应码表。转换准确快速，支持简繁体、多音字、特殊数字字母转换。{:soso_e104:}

       新手直接把需要转换的文字复制到【测试】表中，就可以的到结果。{:soso_e102:}
       码表已经优化排序后，固化到VBA代码中，需要的直接复制ＶＢＡ模块就可以调用函数了！！





补充内容 (2015-6-24 11:25):
32楼 最新更新 数组模块

liucqa

http://club.excelhome.net/thread-1469090-1-1.html

山中老人

我没找到，完整汉字表。
我试用过数组方式（甚至加入了缓存结构），在VBA环境、现在这么大的码表，使用代码固化方式，速度最快。
关键是加载数组消耗了大量的时间。如果要优化排序，写回对照表，时间更是太坑爹了。

liucqa

山中老人 发表于 2013-9-10 10:33
我没找到，完整汉字表。
我试用过数组方式（甚至加入了缓存结构），在VBA环境、现在这么大的码表，使用代码 ...

数组改成全局初始化，不占用时间

山中老人

liucqa 发表于 2013-9-10 11:18
数组改成全局初始化，不占用时间

我使用的是静态变量数组，只加载一次。

附件加入了缓存数组，效果不明显。 拼音转换2.rar (326.76 KB, 下载次数: 154)

2013-9-10 11:30 上传

点击文件名下载附件

山中老人

因为，我已经将VBA中的码表顺序优化过了（按使用频率优化），所以加入缓存后时间反而还多耗了一点。
加上，通过字符编码规律，进行了码表压缩。我已经没有能力继续优化了。

请高手提出更好的办法！ 谢谢！{:soso_e100:}

liucqa

山中老人 发表于 2013-9-10 11:27
我使用的是静态变量数组，只加载一次。

附件加入了缓存数组，效果不明显。

字分散的话缓存意义不大，你应该改一下算法，这么多case，速度不可能快的，应该从unicode码直接取首字母，不能用判断检索之类的语句。

^_^.

完整汉字表还要找吗？直接用QQ拼音导出就行了。txt文件

山中老人

liucqa 发表于 2013-9-10 11:51
字分散的话缓存意义不大，你应该改一下算法，这么多case，速度不可能快的，应该从unicode码直接取首字母， ...

我是用的ASC()函数转换为int数据，然后建表的。

Case 48 To 57, 65 To 90: py = p '数字、大写字母
Case 97 To 122: py = Chr(i - 32) '小写字母
Case -20319 To -20284: py = "A"
Case -20063 To -19970, -19807 To -19789, -20283 To -20239, -19787 To -19776, -20237 To -20226: py = "B"
Case -19551 To -19498, -19775 To -19714, -19278 To -19219, -19295 To -19280, -19496 To -19473, -19471 To -19458, -31863 To -31852, -5946 To -5944: py = "C"
Case -18987 To -18954, -19039 To -18989, -18783 To -18768, -19218 To -19202, -18765 To -18727, -18725 To -18711, -18952 To -18946, -3597 To -3595: py = "D"
。。。。
我利用了一部分编码规律啊？

不明之处请指教！

山中老人

liucqa 发表于 2013-9-10 11:51
字分散的话缓存意义不大，你应该改一下算法，这么多case，速度不可能快的，应该从unicode码直接取首字母， ...

另外，我检测了一下缓存命中率，长度为100 时命中高达80% 以上。
感觉VBA 用for语句，效率不如case语句。
当然也可能是缓存代码有问题！