28,409
社区成员




function GetPy4utf(char)
if char=null or len(trim(char))=0 then exit function
dim strCHSfirstPY
strCHSfirstPY ="
&"CYZYXYQMYQYLTDCYYYZAZZCYMZYDLZFFFMMYCQZWZZMABTBYZTDMNZZGGDFTYPCGQYTTSSFFWFDTZQSSYSTWXJHXYTSXXYLBYQHW"_
.....以上代码字数太多省略.....
&"WKXHZXWZNNZZJZJJQJCCCHYYXBZXZCYZTLLCQXYNJYCYYCYNZZQYYYEWYCZDCJYCCHYJLBTZYYCQWMPWPYMLGKDLDLGKQQBGYCHJ"_
&"XY"
'如果不在汉字范围内,则直接返回内容
if ascw(char)<19968 and ascw(char)>40869 then
GetPy4Utf = char
else
'找对应首字母
GetPy4Utf = Mid(strCHSfirstPY,(ascw(char)-19967),1)
end if
end function
'生成汉字串首字母串
function getPinYin(str)
for i=1 to len(str)
getPinYin=getPinYin & GetPy4Utf(mid(str,i,1))
next
end function