[求助]如何自动识别汉字的拼音缩写

zdlah · 发表于 2004-10-23 02:34

如“中国”，能否用一个函数，自动将它的拼音缩写转换为“ZG”

shangyu · 发表于 2004-10-23 09:46

看vlookup函数的一个例子：

http://club.excelhome.net/viewthread.php?tid=61384

gdliyy · 发表于 2004-10-23 13:24

其实我在想Shangyu兄的最初的汉字和字母列表是怎样得来的？应该是用VBA生成的吧？呵呵~~~

shangyu · 发表于 2004-10-23 15:21

以下是引用gdliyy在2004-10-23 13:24:00的发言： 其实我在想Shangyu兄的最初的汉字和字母列表是怎样得来的？应该是用VBA生成的吧？呵呵~~~

不是，我记得谁有这么一张对照表，2W多行，然后排序、翻字典，用char、code……，我记得弄了一个晚上。

守柔 · 发表于 2004-10-24 05:33

以下是引用zdlah在2004-10-23 2:34:00的发言：

如“中国”，能否用一个函数，自动将它的拼音缩写转换为“ZG”

ySw8UH4N.rar (8.7 KB, 下载次数: 429)

shangyu 版主的函数功夫确实好！拼音简写的函数使用令人耳目一新，精神一振！[em17]

这是一个由Jack.zhou附上的共享拼音代码（见http://club.excelhome.net/viewthread.php?tid=55585)

我以为这个也较具有代表性，并希望能得到更多推广与应用。

遂重新修饰了一个代码，用select case ……end select语句代替了IF ……end if ,使之运算速度更为加快，结构更趋合理。

此文件可另存加载宏，以备随时调动更好。（函数名为getpy())

以下为自定义函数代码供参考：

Function Getpychar(char) Dim Tmp As Long Tmp = 65536 + Asc(char) Select Case Tmp Case 45217 To 45252 Getpychar = "A" Case 45253 To 45760 Getpychar = "B" Case 45761 To 46317 Getpychar = "C" Case 46318 To 46825 Getpychar = "D" Case 46826 To 47009 Getpychar = "E" Case 47010 To 47296 Getpychar = "F" Case 47297 To 47613 Getpychar = "G" Case 47614 To 48118 Getpychar = "H" Case 48119 To 49061 Getpychar = "J" Case 49062 To 49323 Getpychar = "K" Case 49324 To 49895 Getpychar = "L" Case 49896 To 50370 Getpychar = "M" Case 50371 To 50613 Getpychar = "N" Case 50614 To 50621 Getpychar = "O" Case 50622 To 50905 Getpychar = "P" Case 50906 To 51386 Getpychar = "Q" Case 51387 To 51445 Getpychar = "R" Case 51446 To 52217 Getpychar = "S" Case 52218 To 52697 Getpychar = "T" Case 52698 To 52979 Getpychar = "W" Case 52980 To 53640 Getpychar = "X" Case 53689 To 54480 Getpychar = "Y" Case 54481 To 62289 Getpychar = "Z" Case Else '如果不是中文，则不处理 Getpychar = char End Select End Function

'********************************* Function Getpy(str) For i = 1 To Len(str) Getpy = Getpy & Getpychar(Mid(str, i, 1)) Next End Function

当归 · 发表于 2004-10-24 17:52

不知道这个表对于一些多音字如何处理？像会计的“会”

cpali3023 · 发表于 2004-10-26 13:43

守柔版主：

换一种思路做的话，上述代码还可以更少一些。

[此贴子已经被作者于2004-10-26 13:44:19编辑过]

chenjun · 发表于 2004-10-23 12:02

shangyu： 不错嘛，还有这个东东在里面。

d_davis2 · 发表于 2005-6-29 10:40

感谢楼主，不过好象有些字无法识别就出现中文了比如：氢醌霜3%

王王王 · 发表于 2006-10-10 21:20

楼主，能告诉我公式是怎么编的吗？

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