如何生成20位的随机不重复id？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何生成20位的随机不重复id？

共有3863人关注过本帖树形打印复制链接主题：如何生成20位的随机不重复id？

hongsejiyi

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：338 积分：5262 威望：0 精华：0 注册：2019/1/1 15:53:00

Post By：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

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：338 积分：5262 威望：0 精华：0 注册：2019/1/1 15:53:00

Post By：2022/2/16 20:15:00 [显示全部帖子]

如果产生不重复的20位字符型ID（字母也不所谓，中是20位长度）就比较简单了

dim s as string = rand.Nextstring(20)

output.show(s)

下一主题 >> << 上一主题

主题：如何生成20位的随机不重复id？