asp中获取汉字拼音的第一个字母
来源:互联网 发布:camtasia studio软件 编辑:程序博客网 时间:2024/04/26 15:42
<scrīpt language="vbs" src="spellcode.vbs"> </scrīpt>
'获取客户简称的拼音缩写
function getpy()
dim str
dim i
str=document.all.txtContactName.value
dim ret
for i=1 to len(str)
ret=ret&getpychar(mid(str,i,1))
next
document.all.txtSpellCode.value=ret
end function
getpychar=char
end if
end function
spellCode.vbs
'获取汉字拼音第一字母
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 <=53688) 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
'获取客户简称的拼音缩写
function getpy()
dim str
dim i
str=document.all.txtContactName.value
dim ret
for i=1 to len(str)
ret=ret&getpychar(mid(str,i,1))
next
document.all.txtSpellCode.value=ret
end function
getpychar=char
end if
end function
spellCode.vbs
'获取汉字拼音第一字母
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 <=53688) 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中获取汉字拼音的第一个字母
- 获取汉字拼音的第一个字母
- 获取中文拼音的第一个字母!!
- 显示汉字的拼音的第一个字母.
- 汉字按拼音的第一个字母排序
- javascript 获得汉字拼音的第一个字母
- C#获得汉字拼音的第一个字母
- 获取汉字第一个拼音 c# asp.net 2.0
- SQL Server中如何把一个任意汉字转换为该汉字拼音第一个字母
- 单个汉字转化为拼音,也可以获取汉字的首个字母
- 自动将汉字转换成拼音第一个字母
- 把汉字转换成拼音第一个字母
- 将汉字转换成拼音第一个字母
- 汉字转拼音,并返回第一个字母
- c#获得汉字的第一个字母,方便用拼音码查数据
- 得到一个汉字的拼音第一个字母,如果是一个英文字母则直接返回大写字母
- ASP.NET中如何获取汉字的拼音
- linux下ftp命令的使用
- 巴菲特笑称荣登全球首富是因为“花得少”
- 华为坠亡员工博客称“心累”
- ODBC SDK + Oracle 开发扩展存储过程(一)
- 如何控制別台電腦中的某一個程式執行或結束
- asp中获取汉字拼音的第一个字母
- 你的灯还亮着吗?
- 关于 ZendFrameworkExample
- 我对设计模式的学习和实践的思考...
- 从$utf8_string截取不大于$len字节的的字符串
- linux下安装simsun字体
- Windows上安装MinGW+MSYS
- 解决网站大流量问题的策略
- 获取CPU序列号的模块(调试过了的)