|
Лови замечательную функцию: ' 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
Next
End Function
 и юзай ее по всякому
Ответить
|
STEAM | ICQ: 276847102 
hedgehog