devxlogo

RandomString – Generate a random string using a mask

RandomString – Generate a random string using a mask

' generate a random string'' the mask can contain the following special chars'    ? : any ASCII character (1-127)'    # : a digit'    A : an alphabetic char'    N : an alphanumeric char'    H : an hex char' all other chars are taken literally' Example: a random-generated phone number'   phone = RandomString("(###)-####-####")Function RandomString(ByVal mask As String) As String    Dim i As Integer    Dim acode As Integer    Dim options As String    Dim char As String        ' initialize result with proper lenght    RandomString = mask        For i = 1 To Len(mask)        ' get the character        char = Mid$(mask, i, 1)        Select Case char            Case "?"                char = Chr$(1 + Rnd * 127)                options = ""            Case "#"                options = "0123456789"            Case "A"                options = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"            Case "N"                options = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0" _                    & "123456789"            Case "H"                options = "0123456789ABCDEF"            Case Else                ' don't modify the character                options = ""        End Select            ' select a random char in the option string        If Len(options) Then            ' select a random char            ' note that we add an extra char, in case RND returns 1            char = Mid$(options & Right$(options, 1), 1 + Int(Rnd * Len(options) _                ), 1)        End If                ' insert the character in result string        Mid(RandomString, i, 1) = char    NextEnd Function

devxblackblue

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist