Random Email & User Name

[vbkurutza]

Hello there, I am very new to the product (QTP 9.2) after using Empirix eTester for the past few years. Anyway, I am running some scripts where I need a unique and random user name (any alpha-num value > 5 chars) and email address. I can't seem to find anything in the help on how to do this. Any ideas??

[niranjan]

There are several ways you can write a function for this...


There are several ways to write function for this....

' If you just want to generate a random string..use this

Code:

FUNCTION GetRandomString(LEN)  
Dim intI, StrS  
Const StartChr ="a", Range = 26  
   Randomize  
   StrS = ""  
   FOR intI = 0 TO LEN-1    
     StrS = StrS + Chr(asc(StartChr) + Rnd() * Range )    
   NEXT  
   GetRandomString = StrS  
END FUNCTION

Now you can use the above function and tweak it according to your objective
Example:for email

Code:

Dim StrE, StrE1, StrE2, StrE3, StrE4, StrEmail
StrE = Call GetRandomString(10)
StrE1 = "@"
StrE2 = Call GetRandomString(5)
StrE3 = "."
StrE4 = Call GetRandomString(5)
StrEmail = StrE&StrE1&StrE2&StrE3&StrE4

[newqtp]

Hi Niranjan

I've made couple of function when i call them using like
'let take an example adding two no

Code:

function getsum(a,b)
sum = a+b
end function
var = call getsum(2,3) ' throw a error here.
msgbox var

it throws error says syntax error same with your function too when you run your above script.
can you plz help where i'm doing wronge.

thanks.

[niranjan]

Hi,

Right, it should throw error.
If you want to get the return value from a function you need to assign it to function name.
Example: In your case, instead of sum = a+ b USE getsum = a + b. It will work!!

[newqtp]

Hi Niranjan ,
Thanks for the reply.But I still have doubt on that. In code you have used the variable.It's also throwing the same error as i'm getting in my.

Code:

FUNCTION GetRandomString(LEN) 'you have defined function here
Dim intI, StrS
Const StartChr ="a", Range = 26
Randomize
StrS = ""
FOR intI = 0 TO LEN-1
StrS = StrS + Chr(asc(StartChr) + Rnd() * Range )
NEXT
GetRandomString = StrS
END FUNCTION

Code:

Dim StrE, StrE1, StrE2, StrE3, StrE4, StrEmail
StrE = Call GetRandomString(10)

'here you are calling by using variable.
I'm getting error in your code too same as i'm getting in mine.

-Thanks.

[niranjan]

Thanks for pointing it out. Its my mistake.

Try this...
StrE = GetRandomString(10)

[vbkurutza]

Sorry guys but this is still not working - any more ideas?

[niranjan]

Whats the Error you are getting...