Jump to content
Xtreme .Net Talk

Recommended Posts

Posted

' 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

Posted

I' ve got already some code but it's written in vb6.

 

and i didn't 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
               ' 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
   Next

End Function

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...