获取字符中中文首字字符

时间:2021-05-18

复制代码 代码如下:
<%
'获取字符中中文首字字符
'返回:A-Z;123;###
PublicFunctionGetSpellChar(str)
Dimtmp
GetSpellChar="@"
tmp=65536+Asc(str)
If(tmp>=45217Andtmp<=45252)Or(tmp=65601)Or(tmp=65633)Or(tmp=37083)Then
GetSpellChar="A1"
ElseIf(tmp>=45253Andtmp<=45760)Or(tmp=65602)Or(tmp=65634)Or(tmp=39658)Then
GetSpellChar="B1"
ElseIf(tmp>=45761Andtmp<=46317)Or(tmp=65603)Or(tmp=65635)Or(tmp=33405)Then
GetSpellChar="C1"
ElseIf(tmp>=46318Andtmp<=46930)Or(tmp=61884)Or(tmp=63468)Or(tmp=65604)Or(tmp>=36820
Andtmp<=38524)Or(tmp=65636)Then
GetSpellChar="D1"
ElseIf(tmp>=46931Andtmp<=47009)Or(tmp>=46827Andtmp<=46842)Or(tmp=65605)Or(tmp=65637)
Or(tmp=61513)Then'468274683346842
GetSpellChar="E1"
ElseIf(tmp>=47010Andtmp<=47296)Or(tmp=65606)Or(tmp=65638)Or(tmp=61320)Or(tmp=63568)Or
(tmp=36281)Then
GetSpellChar="F1"
ElseIf(tmp>=47297Andtmp<=47613)Or(tmp=65607)Or(tmp=65639)Or(tmp=35949)Or(tmp=36089)Or
(tmp=36694)Or(tmp=34808)Then
GetSpellChar="G1"
ElseIf(tmp>=47614Andtmp<=48118)Or(tmp=59112)Or(tmp=40296)Or(tmp=65608)Or(tmp=65640)
Then
GetSpellChar="H1"
ElseIf(tmp=65641)Or(tmp=65609)Or(tmp=65641)Then
GetSpellChar="I1"
ElseIf(tmp>=48119Andtmp<=49061Andtmp<>48739)Or(tmp>=62430Andtmp<=62430)Or(tmp=65610)
Or(tmp=65642)Or(tmp=39048)Then
GetSpellChar="J1"
ElseIf(tmp>=49062Andtmp<=49323)Or(tmp=65611)Or(tmp=65643)Then
GetSpellChar="K1"
ElseIf(tmp>=49324Andtmp<=49895)Or(tmp>=58838Andtmp<=58838)Or(tmp=65612)Or(tmp=65644)
Or(tmp=62418)Or(tmp=48739)Then
GetSpellChar="L1"
ElseIf(tmp>=49896Andtmp<=50370)Or(tmp=63432)Or(tmp=65613)Or(tmp=65645)Then
GetSpellChar="M1"
ElseIf(tmp>=50371Andtmp<=50613)Or(tmp=65614)Or(tmp=65646)Then
GetSpellChar="N1"
ElseIf(tmp>=50614Andtmp<=50621)Or(tmp=65615)Or(tmp=65615)Or(tmp=65647)Then
GetSpellChar="O1"
ElseIf(tmp>=50622Andtmp<=50905)Or(tmp=65616)Or(tmp=65648)Then
GetSpellChar="P1"
ElseIf(tmp>=50906Andtmp<=51386)Or(tmp>=62659Andtmp<=63172)Or(tmp=63464)Or(tmp=63226)
Or(tmp=65617)Or(tmp=65649)Then
GetSpellChar="Q1"
ElseIf(tmp>=51387Andtmp<=51445)Or(tmp=65618)Or(tmp=65650)Then
GetSpellChar="R1"
ElseIf(tmp>=51446Andtmp<=52217)Or(tmp=65619)Or(tmp=65651)Or(tmp=34009)Then
GetSpellChar="S1"
ElseIf(tmp>=52218Andtmp<=52697)Or(tmp=65620)Or(tmp=65652)Then
GetSpellChar="T1"
ElseIf(tmp=65621)Or(tmp=65653)Then
GetSpellChar="U1"
ElseIf(tmp=65622)Or(tmp=65654)Then
GetSpellChar="V1"
ElseIf(tmp>=52698Andtmp<=52979)Or(tmp=65623)Or(tmp=65655)Then
GetSpellChar="W1"
ElseIf(tmp>=52980Andtmp<=53688)Or(tmp=63182)Or(tmp=65624)Or(tmp=65656)Then
GetSpellChar="X1"
ElseIf(tmp>=53689Andtmp<=54480)Or(tmp=65625)Or(tmp=65657)Then
GetSpellChar="Y1"
ElseIf(tmp>=54481Andtmp<=62383Andtmp<>59112Andtmp<>58838Andtmp<>57566)Or(tmp=65626)Or
(tmp=65658)Or(tmp=38395)Or(tmp=39783)Then
GetSpellChar="Z1"
EndIf
If(tmp>=65601Andtmp<=65658)ThenGetSpellChar=UCase(Left(Trim(str),1))'字母
If(tmp>=65584Andtmp<=65593)ThenGetSpellChar="123"'数字
'Response.Write(tmp)
EndFunction
response.writeGetSpellChar("脚")
response.writeGetSpellChar("本")
response.writeGetSpellChar("之")
%>

声明:本页内容来源网络,仅供用户参考;我单位不保证亦不表示资料全面及准确无误,也不保证亦不表示这些资料为最新信息,如因任何原因,本网内容或者用户因倚赖本网内容造成任何损失或损害,我单位将不会负任何法律责任。如涉及版权问题,请提交至online#300.cn邮箱联系删除。

相关文章