' 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


The Best Mechanical Keyboards For Programmers: Where To Find Them
When it comes to programming, a good mechanical keyboard can make all the difference. Naturally, you would want one of the best mechanical keyboards for programmers. But with so many