Question

How to generate random string in VB.NET

Answer 1

Imports System
 
Public Class program
	Public Shared Function generate_random_string(size As Integer) As String
 		Dim rnd As New Random
		
        Dim characters As String = "0123456789" +
                                   "abcdefghijklmnopqrstuvwxyz" +
                                   "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
 
        Dim rs As New System.Text.StringBuilder
 
        For ct As Integer = 1 To size
            rs.Append(characters(rnd.Next(0, characters.Length)))
        Next

        Return rs.ToString
 
    End Function
 
    Public Shared Sub Main(ByVal args As String())
        Console.WriteLine(generate_random_string(10))
    End Sub
End Class


 
' run:
' 
' cA5xtozQka
'

 

70+ SQL courses for beginners and professionals

Answer 2

Imports System
Imports System.Text
  
Public Class Program
    Public Shared Function generateRandomString(ByVal len As Integer) As String
        Dim charset As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
        Dim rnd As Random = New Random()
        Dim sb As StringBuilder = New StringBuilder(len)
  
        For i As Integer = 0 To len - 1
            sb.Append(charset(rnd.[Next](charset.Length)))
        Next
  
        Return sb.ToString()
    End Function
  
    Public Shared Sub Main()
        Console.Write(generateRandomString(10))
    End Sub
End Class
  
  
  
' run:
'
' oBKtgMAnwF
'

 

70+ SQL courses for beginners and professionals