vb.net – 生成随机字母数字字符串

发布时间：2020-12-17 07:15:25 所属栏目：百科来源：网络整理

导读：我试图像这样在vb.net中生成随机代码 Dim r As New Random Response.Write(r.Next()) 但我想生成6位数的代码,并且应该像A12RV1那样是字母数字,所有代码应该是这样的. 我已经尝试过vb.net随机类,但我无法像我想的那样做.我希望每次执行代码时都能获得字母数字

我试图像这样在vb.net中生成随机代码

Dim r As New Random
        Response.Write(r.Next())

但我想生成6位数的代码,并且应该像A12RV1那样是字母数字,所有代码应该是这样的.

我已经尝试过vb.net随机类,但我无法像我想的那样做.我希望每次执行代码时都能获得字母数字代码.我怎样才能在vb.net中实现这一目标？

解决方法

尝试这样的事情：

Public Function GetRandomString(ByVal iLength As Integer) As String
    Dim sResult As String = ""
    Dim rdm As New Random()

    For i As Integer = 1 To iLength
        sResult &= ChrW(rdm.Next(32,126))
    Next

    Return sResult
End Function

或者您可以使用定义有效字符的常用随机字符串：

Public Function GenerateRandomString(ByRef iLength As Integer) As String
    Dim rdm As New Random()
    Dim allowChrs() As Char = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLOMNOPQRSTUVWXYZ0123456789".ToCharArray()
    Dim sResult As String = ""

    For i As Integer = 0 To iLength - 1
        sResult += allowChrs(rdm.Next(0,allowChrs.Length))
    Next

    Return sResult
End Function

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!