[分享]好东西大家分享

jack.zhou

一段找出汉字首字母的代码，放到模快中

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

Function getpy(str) For i = 1 To Len(str) getpy = getpy & getpychar(Mid(str, i, 1)) Next End Function

Sub jack() d = "只查我的" MsgBox getpy(d) End Sub

lj1226189

我找首字字母是用字库然后用函数查找引用弄得文件很大！

能否做一个附件传上来！

静候佳音！

jack.zhou

放到模块中，运行“SUB JACK”就可以了

ovxyz

请问jack.zhou 兄如果要查整个汉字的拼音怎么办？ 因为要排序的话，碰到姓的前一个拼音相同怎么办？ 如：马 与 木 甚至 麻 到底谁在先呢？

Laolangsex

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

palycoding

好长的代码阿.

sncoco123

好东西！先收藏！谢谢

guzhen9315

'===========================================================
Function getpychar(char)
tmp = 65536 + Asc(char)
If (tmp >= 45217 And tmp <= 45252) Then getpychar = "A" Else _
If (tmp >= 45253 And tmp <= 45760) Then getpychar = "B" Else _
If (tmp >= 45761 And tmp <= 46317) Then getpychar = "C" Else _
If (tmp >= 46318 And tmp <= 46825) Then getpychar = "D" Else _
If (tmp >= 46826 And tmp <= 47009) Then getpychar = "E" Else _
If (tmp >= 47010 And tmp <= 47296) Then getpychar = "F" Else _
If (tmp >= 47297 And tmp <= 47613) Then getpychar = "G" Else _
If (tmp >= 47614 And tmp <= 48118) Then getpychar = "H" Else _
If (tmp >= 48119 And tmp <= 49061) Then getpychar = "J" Else _
If (tmp >= 49062 And tmp <= 49323) Then getpychar = "K" Else _
If (tmp >= 49324 And tmp <= 49895) Then getpychar = "L" Else _
If (tmp >= 49896 And tmp <= 50370) Then getpychar = "M" Else _
If (tmp >= 50371 And tmp <= 50613) Then getpychar = "N" Else _
If (tmp >= 50614 And tmp <= 50621) Then getpychar = "O" Else _
If (tmp >= 50622 And tmp <= 50905) Then getpychar = "P" Else _
If (tmp >= 50906 And tmp <= 51386) Then getpychar = "Q" Else _
If (tmp >= 51387 And tmp <= 51445) Then getpychar = "R" Else _
If (tmp >= 51446 And tmp <= 52217) Then getpychar = "S" Else _
If (tmp >= 52218 And tmp <= 52697) Then getpychar = "T" Else _
If (tmp >= 52698 And tmp <= 52979) Then getpychar = "W" Else _
If (tmp >= 52980 And tmp <= 53640) Then getpychar = "X" Else _
If (tmp >= 53689 And tmp <= 54480) Then getpychar = "Y" Else _
If (tmp >= 54481 And tmp <= 62289) Then getpychar = "Z" Else getpychar = char  '如果不是中文，则不处理 End If
End Function
'--------------------------------------------
Function getpy(str)
For i = 1 To Len(str)
getpy = getpy & getpychar(Mid(str, i, 1))
Next
End Function
'--------------------------------------------
Sub jack()
d = "只查我的拼音字头"
MsgBox d
MsgBox d & Chr(10) & getpy(d)
End Sub
'===========================================================

[ 本帖最后由 guzhen9315 于 2009-1-31 00:03 编辑 ]

linpansheng

学习一下这段代码，真的很长啊。
谢谢楼上整理的

gz_wu

不明白这个是作什么用的，是将汉字前加上第一个汉字的拼音首字母吗？