蝙蝠岛资源网 Design By www.hbtsch.com
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=getnextno&a(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>
蝙蝠岛资源网 Design By www.hbtsch.com
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
蝙蝠岛资源网 Design By www.hbtsch.com
暂无使用vbscript生成36进制自动增长序号的实现代码的评论...
更新日志
2024年06月14日
2024年06月14日
- 黄婉婷《达坂城姑娘 DSD》[WAV+CUE][472M]
- 萤火突击怎么卡无人局 匹配人数设置方法
- 萤火突击怎么邀请好友组队 好友组队方法介绍
- 萤火突击怎么快速升级仓库 仓库升级方法介绍
- 【发烧唱片】《马兰士顶级音响测试唱片》[FLAC+CUE]
- 【轻音乐】曼托凡尼乐团《作品精选辑》2006[FLAC+CUE]
- 俞丽拿沈榕-梁祝(珍藏版)小提琴协奏曲《梁山伯与祝英台》创作50周年纪念[2CD]》[WAV+CUE]
- 开心少女组.1986-开心油戏(2016环球经典礼赞版)【环球】【WAV+CUE】
- 苏慧伦.2007-左撇子旋转门【环球】【WAV+CUE】
- 木马Muma.2003-YellowStar【摩登天空】【WAV+CUE】
- 萤火突击最厉害的枪是什么 最强枪械排行榜一览
- 萤火突击怎么快速升级仓库 仓库升级方法介绍
- 萤火突击快速获取作业箱方法 怎么获取作业箱
- RenatoAnselmi《IslandofDreams》1998[WAV]
- 老虎鱼DavidRoth-MeetYouWhereYouAre-HiRes-Files24bit88.2kHz