zoukankan      html  css  js  c++  java
  • vbScript首字拼音查询

    <SCRIPT LANGUAGE=vbscript>
    <!--
    ''''''''''''''''''''''
    '提供者:小白
    '联系方法:
    'E-mail:xiaobai@17560.net
    '欢迎大家测试
    '针对chenjf网友发现的问题
    '小白做了一处修改
    '另外,对刘伟强网友的回复是:本函数目前只能获取..?呵呵
    '如有不正确的地方,请提出来或是帮忙完善
    '谢谢
    ''''''''''''''''''''''''''''''
    function getpychar(char)
    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
    
    function getpy(str)
    for i=1 to len(str)
    getpy=getpy&getpychar(mid(str,i,1))
    next
    end function
    d="只查"
    msgbox getpy(d)
    //-->
    </SCRIPT>
  • 相关阅读:
    【原创】Javascript-获取URL请求参数
    【原创】Javascript-显示系统时间
    【转载】ASP.NET 生成验证码
    【转载】Word2010编号列表&多级列表
    VirtualBox命令更改虚拟硬盘空间
    查看应用程序或服务端口号
    【原创】设置EXCEL2010打开多个独立窗口
    【原创】Word2010 清除样式
    【原创】打开Excel时提示"您尝试打开的文件**.xls的格式与文件扩展名指定的格式不一致"
    【转载】SQL Server XML Path
  • 原文地址:https://www.cnblogs.com/goto/p/2443338.html
Copyright © 2011-2022 走看看