网络编程 
首页 > 网络编程 > 浏览文章

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

(编辑:jimmy 日期: 2024/11/5 浏览:3 次 )
取得中文句子头一个字的大写拼音字母
<%
'******************************
'函数: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实现计算两个时间内的工作日的函数
下一篇:asp 生成任意英文+数字位数长度的随机码函数
一句话新闻
一文看懂荣耀MagicBook Pro 16
荣耀猎人回归!七大亮点看懂不只是轻薄本,更是游戏本的MagicBook Pro 16.
人们对于笔记本电脑有一个固有印象:要么轻薄但性能一般,要么性能强劲但笨重臃肿。然而,今年荣耀新推出的MagicBook Pro 16刷新了人们的认知——发布会上,荣耀宣布猎人游戏本正式回归,称其继承了荣耀 HUNTER 基因,并自信地为其打出“轻薄本,更是游戏本”的口号。
众所周知,寻求轻薄本的用户普遍更看重便携性、外观造型、静谧性和打字办公等用机体验,而寻求游戏本的用户则普遍更看重硬件配置、性能释放等硬核指标。把两个看似难以相干的产品融合到一起,我们不禁对它产生了强烈的好奇:作为代表荣耀猎人游戏本的跨界新物种,它究竟做了哪些平衡以兼顾不同人群的各类需求呢?
友情链接:杰晶网络 DDR爱好者之家 南强小屋 黑松山资源网 白云城资源网 SiteMap