蝙蝠岛资源网 Design By www.hbtsch.com
取得中文句子头一个字的大写拼音字母
<%
'******************************
'函数:getpychar(char)
'参数:char,任意中文字符或句子
'作者:阿里西西
'日期:2007/7/15
'描述:取得中文句子头一个字的大写拼音字母
'示例:getpychar("欢迎访问阿里西西")
'******************************
Function getpychar(char)
 Dim tmp
 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
%>
标签:
asp,取得中文句子头一个字的大写拼音字母的函数

蝙蝠岛资源网 Design By www.hbtsch.com
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
蝙蝠岛资源网 Design By www.hbtsch.com

评论“asp 取得中文句子头一个字的大写拼音字母的函数”

暂无asp 取得中文句子头一个字的大写拼音字母的函数的评论...

稳了!魔兽国服回归的3条重磅消息!官宣时间再确认!

昨天有一位朋友在大神群里分享,自己亚服账号被封号之后居然弹出了国服的封号信息对话框。

这里面让他访问的是一个国服的战网网址,com.cn和后面的zh都非常明白地表明这就是国服战网。

而他在复制这个网址并且进行登录之后,确实是网易的网址,也就是我们熟悉的停服之后国服发布的暴雪游戏产品运营到期开放退款的说明。这是一件比较奇怪的事情,因为以前都没有出现这样的情况,现在突然提示跳转到国服战网的网址,是不是说明了简体中文客户端已经开始进行更新了呢?