VB Script - random string

[qtp_user22]

hello,

I need VB Script (function ) for random string

please Help me

[qtp_user22]

I have This :

Code:

Function RandomString
    Dim str
    Const LETTERS = "abcdefghijklmnopqrstuvwxyz0123456789"
    For i = 1 to strLen
        str = str & Mid( LETTERS, RandomNumber( 1, Len( LETTERS ) ), 1 )
    Next
    RandomString = str

DataTable.Value("rndstr", dtGlobalSheet) = str

End Function

but it does not work

[Saket]

hey qtp_user22,

you have missed to put the parameter strLen
use this

Code:

Function RandomString( ByVal strLen )
    Dim str
    Const LETTERS = "abcdefghijklmnopqrstuvwxyz0123456789"
    For i = 1 to strLen
        str = str & Mid( LETTERS, RandomNumber( 1, Len( LETTERS ) ), 1 )
    Next
    RandomString = str

DataTable.Value("rndstr", dtGlobalSheet) = str

End Function

[rajvanan]

Hi,
The simplest way is to use "AUT"& RandomNumber().

There is a random number generator facility provided in QTP itself. And u can very well use it.
U can give the range of numbers , like Between 1 to 10,000 and the number will be generated itself in the given range. Each time its a different number between the given range.

IT can find in the help section in the Qtp help.

Try, and let me know if u are not able to.

[gaveyom]

Hi Friend,

hope this will help for you, try this and let me know if it not works

******************************************************

Code:

MsgBox RandomString
Function RandomString
    Dim str
    Const LETTERS = "abcdefghijklmnopqrstuvwxyz0123456789"
    For i = 1 to len(LETTERS)
        str = str & Mid( LETTERS, RandomNumber( 1, Len( LETTERS ) ), 1 )
    Next
    RandomString = str

    DataTable.Value("rndstr", dtGlobalSheet) = str

End Function

******************************************************


Thanks & Regards,
G@veyom

[roysam404]

Try the below code. It ran successfully for me

Code:

Dim str

Const LETTERS = "abcdefghijklmnopqrstuvwxyz0123456789"
    
    strLen=len(LETTERS)

    For i = 1 to strLen

        str = str & Mid( LETTERS, RandomNumber( 1, Len( LETTERS ) ), 1 )

    Next

    RandomString = str
    msgbox str

Thanks,
Samir