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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 我想产生不重复的20位数字字符串

共有3212人关注过本帖树形打印复制链接主题：我想产生不重复的20位数字字符串

mytian	小大 1楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：幼狐帖子：118 积分：1029 威望：0 精华：0 注册：2014/9/29 17:17:00	我想产生不重复的20位数字字符串 Post By：2014/11/23 10:05:00 [只看该作者] 用户已经被屏蔽

mytian	小大 2楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：幼狐帖子：118 积分：1029 威望：0 精华：0 注册：2014/9/29 17:17:00	Post By：2014/11/23 10:10:00 [只看该作者] 用户已经被屏蔽

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/11/23 10:10:00 [只看该作者]

你可以用连续的嘛，比如。

00001-99999，一个一个的取啊

mytian	小大 4楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：幼狐帖子：118 积分：1029 威望：0 精华：0 注册：2014/9/29 17:17:00	Post By：2014/11/23 10:12:00 [只看该作者] 用户已经被屏蔽

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/11/23 10:16:00 [只看该作者]

那你就用_Identify啊，肯定是要按顺序取才不会重复啊

mytian	小大 6楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：幼狐帖子：118 积分：1029 威望：0 精华：0 注册：2014/9/29 17:17:00	Post By：2014/11/23 10:43:00 [只看该作者] 用户已经被屏蔽

land089

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

加好友

发短信

等级：一尾狐帖子：451 积分：3045 威望：0 精华：1 注册：2012/7/17 22:08:00

Post By：2014/11/23 10:45:00 [只看该作者]

参考rand，你要20位的不重复值，用rand随机生成的话重复概率很低，

不放心的话生成一个写一个到数据表，数据列需要设置禁止重复！

Dim Val3 As Integer = Rand.Next(200,300)

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/11/23 11:01:00 [只看该作者]

以下是引用mytian在2014-11-23 10:43:00的发言：
有没有高级语言中的产生随机数的种子概念？

随机数种子也不能保证不重复啊。

xiaoqiwei

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

加好友

发短信

等级：三尾狐帖子：668 积分：8561 威望：0 精华：0 注册：2011/5/5 23:55:00

Post By：2014/11/23 17:21:00 [只看该作者]

提供个思路，以下代码可以生成16个不重复的字符：

Dim j As String = ""
For i As Integer = 1 To 16
    Do
        Dim k As String = Rand.NextString(1)
        If j.Contains(k) = False Then
            j = j & k
            Exit Do
        End If
    Loop
Next
Output.show(j)

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

主题：我想产生不重复的20位数字字符串