当前位置：首页 -> 技术开发 -> ASP专区 -> 用字典提取汉语的拼音的首字母

用字典提取汉语的拼音的首字母

时间： 2021-07-31 作者：daque

<%function getpychar(char)tmp=65536+asc(char)if(tmp>=45217 and tmp<=45252) or left(char,1)="a" or left(char,1)="a" then getpychar= "a"if(tmp>=45253 and tmp<=45760) or left(char,1)="b" or left(char,1)="b" then getpychar= "b"if(tmp>=45761 and tmp<=46317) or left(char,1)="c" or left(char,1)="c" then getpychar= "c"if(tmp>=46318 and tmp<=46825) or left(char,1)="d" or left(char,1)="d" then getpychar= "d"if(tmp>=46826 and tmp<=47009) or left(char,1)="e" or left(char,1)="e" then getpychar= "e"if(tmp>=47010 and tmp<=47296) or left(char,1)="f" or left(char,1)="f" then getpychar= "f"if(tmp>=47297 and tmp<=47613) or left(char,1)="g" or left(char,1)="g" then getpychar= "g"if(tmp>=47614 and tmp<=48118) or left(char,1)="h" or left(char,1)="h" then getpychar= "h"if left(char,1)="i" or left(char,1)="i" then getpychar= "i"if(tmp>=48119 and tmp<=49061) or left(char,1)="j" or left(char,1)="j" then getpychar= "j"if(tmp>=49062 and tmp<=49323) or left(char,1)="k" or left(char,1)="k" then getpychar= "k"if(tmp>=49324 and tmp<=49895) or left(char,1)="l" or left(char,1)="l" then getpychar= "l"if(tmp>=49896 and tmp<=50370) or left(char,1)="m" or left(char,1)="m" then getpychar= "m"if(tmp>=50371 and tmp<=50613) or left(char,1)="n" or left(char,1)="n" then getpychar= "n"if(tmp>=50614 and tmp<=50621) or left(char,1)="o" or left(char,1)="o" then getpychar= "o"if(tmp>=50622 and tmp<=50905) or left(char,1)="p" or left(char,1)="p" then getpychar= "p"if(tmp>=50906 and tmp<=51386) or left(char,1)="q" or left(char,1)="q" then getpychar= "q"if(tmp>=51387 and tmp<=51445) or left(char,1)="r" or left(char,1)="r" then getpychar= "r"if(tmp>=51446 and tmp<=52217) or left(char,1)="s" or left(char,1)="s" then getpychar= "s"if(tmp>=52218 and tmp<=52697) or left(char,1)="t" or left(char,1)="t" then getpychar= "t"if left(char,1)="u" or left(char,1)="u" then getpychar= "u"if left(char,1)="v" or left(char,1)="v" then getpychar= "v"if(tmp>=52698 and tmp<=52979) or left(char,1)="w" or left(char,1)="w" then getpychar= "w"if(tmp>=52980 and tmp<=53640) or left(char,1)="x" or left(char,1)="x" then getpychar= "x"if(tmp>=53689 and tmp<=54480) or left(char,1)="y" or left(char,1)="y" then getpychar= "y"if(tmp>=54481 and tmp<=55289) or left(char,1)="z" or left(char,1)="z" then getpychar= "z" end functionfunction getpy(str)for i=1 to len(str)getpy=getpy&getpychar(mid(str,i,1))nextend function%>

用字典提取汉语的拼音的首字母

相关推荐

推荐下载

热门阅览

最新排行