| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 如何生成20位的随机不重复id？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=175027) |
| -- 作者：尘埃落定 -- 发布时间：2022/2/16 18:06:00 -- 如何生成20位的随机不重复id？ 如题。类似于-5677390854813236226或者261889430870773277 |
| -- 作者：hongsejiyi -- 发布时间：2022/2/16 20:11:00 -- Dim s As String Dim c As Integer = str(rand.Next(1,9)) \'产生第一位,防止是 零 For i As Integer = 2 To 20 \'产生第2-20位 c = rand.Next(0,9) \'每一位是一位数 s = s & c \'累加 Next output.Show(s) \'显示结果 ->这里是字符串型 output.Show(clng(s)) \'转换成 Long 型 ->这里就是数值型了 [此贴子已经被作者于2022/2/16 20:12:58编辑过]
|
| -- 作者：hongsejiyi -- 发布时间：2022/2/16 20:15:00 -- 如果产生不重复的20位字符型ID（字母也不所谓，中是20位长度）就比较简单了 dim s as string = rand.Nextstring(20) output.show(s) |
| -- 作者：尘埃落定 -- 发布时间：2022/2/17 0:25:00 -- 多谢 |