• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    使用vbscript生成36进制自动增长序号的实现代码

    asp生成0~9,a~z的36进制字符串,运行下面示例需要使用IE核心的浏览器,其他非IE核心浏览器不支持vbscript。

    实现代码:

    script language="vbscript">
    function getinitstring(l)'初始化指定长度的0字符串
     l=l-1
     for i=0 to l
      getinitstring="0"getinitstring
     next
    end function
    function getnextchar(chrcode)'获取下一个字符
     if chrcode=57 then'数字和字母标ascii不连贯,需要特殊处理一下
      getnextchar="a"
     else
      getnextchar=chr(chrcode+1)
     end if
    end function
    function getnextno(s,l)'获取下自增1的字符串
     if trim(s)="" then'初始化字符串
      getnextno=getinitstring(l):exit function
     end if
     l=len(s)-1
     dim a():redim a(l)
     for i=0 to l'拆分成数组
      a(i)=mid(s,i+1,1)
     next
     carry=false'进位标志
     for i=l to 0 step -1'从最低位开始遍历
      chrcode=asc(a(i))
      if carry then
       if chrcode>122 then'不是z,自增后退出for循环,否则继续进位
        a(i)=getnextchar(chrcode):exit for'退出循环
       elseif i=0 then
        getnextno="已经达到最大长度,无法继续进位,需要修改长度":exit function
       end if
      end if
      if a(i)="z" then
       carry=true:a(i)="0"
      else
       a(i)=getnextchar(chrcode):exit for'退出循环
      end if
     next
     for i=0 to l'组合返回字符串
      getnextno=getnextnoa(i)
     next
    end function
    s=""
    initlen=6
    s=getnextno(s,initlen)
    msgbox s'000000
    s=getnextno(s,initlen)
    msgbox s'000001
    s="aaazzz"
    s=getnextno(s,initlen)
    msgbox s'aab000
    s="zzzzzz"
    s=getnextno(s,initlen)
    msgbox s'已经达到最大长度,无法继续进位,需要修改长度
    /script>
    
    
    上一篇:VBScript把json字符串解析成json对象的2个方法
    下一篇:vbscript获取文件的创建时间、最后修改时间和最后访问时间的方法
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    使用vbscript生成36进制自动增长序号的实现代码 使用,vbscript,生成,进制,