asp 取得中文句子头一个字的大写拼音字母的函数
2007-08-08 00:00
555 查看
取得中文句子头一个字的大写拼音字母
<%
'******************************
'函数: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
%>
<%
'******************************
'函数: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检测是否为中文字符函数
- asp检测是否为中文字符函数
- asp 取得页数函数
- oracle中将数字金额转换为中文大写函数
- ASP.NET C# 货币转换函数 中文大写金额 英文金额
- JS把数字金额转换成中文大写数字的函数
- SAP阿拉伯数字转中文大写函数
- PHP人民币金额数字转中文大写的函数
- PHP货币转中文大写函数
- asp 取得用户真实IP,对代理地址仍然有效的函数
- SQL Server中文大写金额转化函数
- excel中文转成拼音字母(包括首字母大写)
- JS把数字金额转换成中文大写数字的函数
- asp 函数 自动中文输出星期几
- 货币数字转换成中文大写的函数
- ASP 支持中文的len(),left(),right()的函数代码
- asp.net 按行读取包含中文的文本(txt)文件并取得行数
- Oracle取得中文拼音首字母函数
- <二>SAP ABAP将数字转换为本地语言(中文、英文)大写 - 函数SPELL_AMOUNT