生成随机的字母数字字符串

Question

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

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

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

我已经尝试过vb.net随机类，但是我无法做到自己想要的。我想在每次执行代码时获取字母数字代码。我如何在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