[原创][分享]一个取汉字笔画的动态链接库

一直想自己做一个动态链接库，供Office调用。受守柔老师的启发，做了一个DLL文件，可以获取6768个常用汉字的笔划数。说明：1、请把压缩包中的动态链接库getBiHua.DLL保存到D:\下。2、假设你的操作系统是安装在C盘，也可以保存于C:\Windows\System32\（对于win2K是C:\winnt\system32，对于win9x系列是C:\windows\system\），这时，引用DLL的语句应改为：Private Declare Function getBiHua Lib "getBiHua.dll" (ByVal hz As String) As Integer3、此DLL中的笔划数据参考了网络上的资料，适用于GB2312共6768个汉字。从DLL的原理看，win9x应该可以使用，但我只在winXP+Office2003下进行了测试。4、按Alt+F11进VBE环境，在本文档ThisDocument可看到VBA引用代码。5、按本文档首部的按钮，会执行文档中的VBA代码，演示获取汉字笔画。下次有时间，再做个取汉字首拼的DLL g5KyG2O9.rar (55.72 KB)

[此贴子已经被作者于2005-12-19 0:22:56编辑过]

总算搞定了，用纯VBA编这个计算汉字笔划的程序。原理是，根据汉字内码进行换算，直接找到汉字在笔划库中的位置。编这个程序时，遇到了诸多麻烦，而这在delphi中是很容易的。首先是vba汉字的处理方式，vba是把汉字以2个字节为整体看作1个字符，因此要获取汉字的内码就难办了，如何把1个汉字还原为2个字符的字节数据？苦思未获良策，正当要放弃的时候，发现了strconv函数，几经实验，终于用StrConv(string, vbFromUnicode)可以把1个汉字拆解为2个字节，从而可以用ascB函数得到汉字的内码。为什么要得到汉字内码，因为网络上的汉字笔划库是居于GB2312的，在GB2312中，由汉字的内码可以直接找到汉字在GB2312的位置，也就是汉字在笔划库中的位置，因为是直接找到位置不用搜索，因此速度可以非常快。接下来，就是把汉字笔划库存放于数组中，这里再次遇到vba的问题，本想可以用1个数组就把笔划库用array函数装入，却因为vba的代码限制了只能续行25行，另外每行的长度也有限制，只好用4个数组来表达笔划库了。原以为这样就算搞定了，万万没想到，这4个数组放在一个自字义函数中，会导致“过程或函数”太大，拒绝工作。晕死了，只好把一个函数拆为2个函数，哈，够难看了。我在上面那个DLL中，很简单的代码，在vba中却拆得如此零乱，还把数组的代码每一行搞得老长老长的，很不爽啊。代码在贴子里面是不能贴了，因为行的长度超长，贴了很难看，还是附在文档里吧。 F9vjdk1B.rar (19.93 KB)

楼主，下面字的不行呀！！！

齉龘

望回复

谢谢,正在找这个

谢谢楼主的分享,收藏备用!

感謝囉^^谢谢,正在找这个

谢谢分享，真是好东东！