'*****************************************************************
' function（公有）
' 作用 ：取得字符的拼音
'*****************************************************************
Public Function GetPyChar(byref Char)
tmp=65536+asc(Char)
if(tmp>=45217 and tmp<=45252) or (tmp=65601) or (tmp=65633) or (tmp=37083) then
GetPyChar= "A"
elseif(tmp>=45253 and tmp<=45760) or (tmp=65602) or (tmp=65634) or (tmp=39658) then
GetPyChar= "B"
elseif(tmp>=45761 and tmp<=46317) or (tmp=65603) or (tmp=65635) or (tmp=33405) then
GetPyChar= "C"
elseif(tmp>=46318 and tmp<=46930) or (tmp>=61884 and tmp<=61884) or (tmp=65604) or (tmp>=36820 and tmp<=38524) or (tmp=65636) then
GetPyChar= "D"
elseif(tmp>=46931 and tmp<=47009) or (tmp=65605) or (tmp=65637) or (tmp=61513) then
GetPyChar= "E"
elseif(tmp>=47010 and tmp<=47296) or (tmp=65606) or (tmp=65638) or (tmp=61320) or (tmp=63568) or (tmp=36281) then
GetPyChar= "F"
elseif(tmp>=47297 and tmp<=47613) or (tmp=65607) or (tmp=65639) or (tmp=35949) or (tmp=36089) or (tmp=36694) or (tmp=34808) then
GetPyChar= "G"
elseif(tmp>=47614 and tmp<=48118) or (tmp>=59112 and tmp<=59112) or (tmp=65608) or (tmp=65640) then
GetPyChar= "H"
elseif(tmp=65641) or (tmp=65609) or (tmp=65641) then
GetPyChar="I"
elseif(tmp>=48119 and tmp<=49061 and tmp<>48739) or (tmp>=62430 and tmp<=62430) or (tmp=65610) or (tmp=65642) or (tmp=39048) then
GetPyChar= "J"
elseif(tmp>=49062 and tmp<=49323) or (tmp=65611) or (tmp=65643) then
GetPyChar= "K"
elseif(tmp>=49324 and tmp<=49895) or (tmp>=58838 and tmp<=58838) or (tmp=65612) or (tmp=65644) or (tmp=62418) or (tmp=48739) then
GetPyChar= "L"
elseif(tmp>=49896 and tmp<=50370) or (tmp=65613) or (tmp=65645) then
GetPyChar= "M"
elseif(tmp>=50371 and tmp<=50613) or (tmp=65614) or (tmp=65646) then
GetPyChar= "N"
elseif(tmp>=50614 and tmp<=50621) or (tmp=65615) or (tmp=65647) then
GetPyChar= "O"
elseif(tmp>=50622 and tmp<=50905) or (tmp=65616) or (tmp=65648) then
GetPyChar= "P"
elseif(tmp>=50906 and tmp<=51386) or (tmp>=62659 and tmp<=63172) or (tmp=65617) or (tmp=65649) then
GetPyChar= "Q"
elseif(tmp>=51387 and tmp<=51445) or (tmp=65618) or (tmp=65650) then
GetPyChar= "R"
elseif(tmp>=51446 and tmp<=52217) or (tmp=65619) or (tmp=65651) or (tmp=34009) then
GetPyChar= "S"
elseif(tmp>=52218 and tmp<=52697) or (tmp=65620) or (tmp=65652) then
GetPyChar= "T"
elseif(tmp=65621) or (tmp=65653) then
GetPyChar="U"
elseif(tmp=65622) or (tmp=65654) then
GetPyChar="V"
elseif(tmp>=52698 and tmp<=52979) or (tmp=65623) or (tmp=65655) then
GetPyChar= "W"
elseif(tmp>=52980 and tmp<=53688) or (tmp=65624) or (tmp=65656) then
GetPyChar= "X"
elseif(tmp>=53689 and tmp<=54480) or (tmp=65625) or (tmp=65657) then
GetPyChar= "Y"
elseif(tmp>=54481 and tmp<=62383 and tmp<>59112 and tmp<>58838) or (tmp=65626) or (tmp=65658) or (tmp=38395) or (tmp=39783) then
GetPyChar= "Z"
elseif(tmp=65584) then
GetPyChar="0-9"
elseif(tmp=65585) then
GetPyChar="0-9"
elseif(tmp=65586) then
GetPyChar="0-9"
elseif(tmp=65587) then
GetPyChar="0-9"
elseif(tmp=65588) then
GetPyChar="0-9"
elseif(tmp=65589) then
GetPyChar="0-9"
elseif(tmp=65590) then
GetPyChar="0-9"
elseif(tmp=65591) then
GetPyChar="0-9"
elseif(tmp=65592) then
GetPyChar="0-9"
elseif(tmp=65593) then
GetPyChar="0-9"
else
GetPyChar="0-9"
end if
end function
