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

Question

我想像这样在 vb.net 中生成一个随机代码

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

但我想生成 6 位数字的代码，并且应该是字母数字，如 thie A12RV1所有代码都应该是这样的。

我已经尝试过 vb.net 随机类(class)，但我无法像我想要的那样做。每次执行代码时，我都想获取字母数字代码。我怎样才能在 vb.net 中实现这一点？

Answer 1

尝试这样的事情:

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