random string mask

[wdw]

the mask must 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("(###)-####-####")

Can someone please give me the right code to do this.
I want to use it in a normal textbox.

many thanks to the one who give me the right solution for my problem

greetzzz

 

[Divil]

This sounds like homework to me, and we dont do homework. You should make an attempt at a solution yourself, and if you run in to a specific problem, then we can help.

 

[wdw]

I ve got already some code but its written in vb6.

and i didnt get the right solution by myself so if you can help me?

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
                 dont 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
    Next

End Function