Random String function

[FATBOYPEE]

Hey guys..

Anyone got a bit of code/solution to getting a unique character string ??

No numerics or control chars allowed & I'm unable to keep track of the chars used in a particular order ?

Bit like rnd but for strings ??

Pee

[Evan]

Let me whip up some code for ya...brb

[Evan]

Public Function GetRanString(ByVal iChars As Integer)
    Dim x As Integer
    Dim intRand As Integer
    Dim strOut As String
    Dim GotRand As Boolean
    Randomize


    For x = 1 To iChars


        Do Until GotRand = True
            intRand = Int((90 - 48 + 1) * Rnd + 48)


            If InStr(1, "ABCDEFGH JK MN PQRSTUVWXYZ 23456789", Chr(intRand), 1) Then
                GotRand = True
            End If
        Loop
        strOut = strOut & Chr(intRand)
        GotRand = False
    Next
    GetPassword = strOut
End Function

[jim mcnamara]

function rndstr(iLen as integer ) as string
Dim i,str
Dim t as string
t="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
str=""
for i=1 to iLen
   str = str & mid(t, Rnd*26 +1,1)
next
rndstr = str
end functionm

usage

myrandomstring = rndstr(10) ' gives 10 chars back

[Evan]

Was that what you wanted?

[JaredM]

My sequential spamming has been interupted!

I like the quote, and LOL thing too. Whaha clever, that's like a free post too!

[MartinLiss]

I moved this thread to Chit Chat.

Please stop posting garbage in the General Vb forum just to up your counts. I don't want to have to take take more serious action then this warning.

[MidgetsBro]

Originally posted by MartinLiss
I moved this thread to Chit Chat.

Please stop posting garbage in the General Vb forum just to up your counts. I don't want to have to take take more serious action then this warning.

Told you guys!!!