欢迎光临
我们一直在努力

用字典提取汉语的拼音的首字母-ASP教程,ASP应用

建站超值云服务器,限时71元/月

<%

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 function

function getpy(str)

for i=1 to len(str)

getpy=getpy&getpychar(mid(str,i,1))

next

end function

%>

赞(0)
版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com 特别注意:本站所有转载文章言论不代表本站观点! 本站所提供的图片等素材,版权归原作者所有,如需使用,请与原作者联系。未经允许不得转载:IDC资讯中心 » 用字典提取汉语的拼音的首字母-ASP教程,ASP应用
分享到: 更多 (0)

相关推荐

  • 暂无文章