Generate random string visual basic?

Question

I don't understand how to add numbers to the random string, and instead of it showing a string of like 3 sometimes, I want it to always show a string of 5 and I have no clue how to do that.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim rndnumber As Random
    Dim number As Integer
    rndnumber = New Random
    number = rndnumber.Next(1, 80000)
    TextBox1.Text = number.ToString
End Sub

Try this: TextBox1.Text = number.ToString().PadLeft(5, '0'). You can also use PadRight depending on whichever you want — codingbiz
– codingbiz, Commented Feb 6, 2013 at 7:59

Vuk Vasić · Accepted Answer · 2013-02-06 07:30:39Z

4

You could use this function to create random strings:

Public Function GenerateRandomString(ByRef len As Integer, ByRef upper As Boolean) As String
    Dim rand As New Random()
    Dim allowableChars() As Char = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLOMNOPQRSTUVWXYZ0123456789".ToCharArray()
    Dim final As String = String.Empty
    For i As Integer = 0 To len - 1
        final += allowableChars(rand.Next(allowableChars.Length - 1))
    Next

    Return IIf(upper, final.ToUpper(), final)
End Function

You can call this function like this:

GenerateRandomString(5, False)

First parameter is number of characters and second is if you want upper case characters or not (True or False).

answered Feb 6, 2013 at 7:30

Vuk Vasić

1,41610 silver badges27 bronze badges

Sign up to request clarification or add additional context in comments.

3 Comments

user2045852 Over a year ago

I tried this but nothing came out of the generate box. I added the function then I went and called the function on the on click generate and tested it but it didn't work.

Vuk Vasić Over a year ago

I tested the code in Visual Studio (Visual Basic.Net) it works you could try like this: Dim text As String text = GenerateRandomString(5, False) Console.WriteLine(text) If you want the numbers in random you could change this line: Dim allowableChars() As Char = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLOMNOPQRSTUVWXYZ0123456789".ToCharArray() to "12313827481274971289418947128471748912741894781" it works.

Sdlion Over a year ago

Random.Next(maxValue As Integer) shouldn't return an Integer less than maxValue? Then allowableChars.Length should be enough and correct, since rand.Next() will always skip the last member of allowableChars otherwise

Antonio · Accepted Answer · 2013-02-06 08:30:44Z

1

This generates a random string number of length 5:

final = rdm.Next(0, 100000).ToString("00000")

And this function generates a random string of everything of any length:

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

answered Feb 6, 2013 at 8:30

Antonio

9,89215 gold badges63 silver badges91 bronze badges

Comments

Moises Mtz · Accepted Answer · 2016-07-13 18:03:32Z

0

Do you need it to be a string of numbers?, because if not, you could use System.IO.Path.GetRandomFileName. This function gives you a random uppercase string of any length, with a default of eight characters

Public Function GetRandomString(Optional ByVal iLength As Integer = 8) As String
    Dim sPath, SResult As String

    sPath = ""
    Do
        sPath = sPath + System.IO.Path.GetRandomFileName.Replace(".", "")
    Loop Until sPath.Length > iLength
    SResult = sPath.Substring(0, iLength)
    Return SResult.ToUpper
End Function

answered Jul 13, 2016 at 18:03

Moises Mtz

1

Collectives™ on Stack Overflow

Generate random string visual basic?

3 Answers 3

3 Comments

Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

3 Answers 3

3 Comments

Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related