QuickTest Professional :Random Name Generator

pcl2004_27

Description

      How to generate random names at run time?


Solution

      This code will generate how much ever random names you need.

Steps :

#1
Attach the RandomPicker.vbs to your test first.

#2
Add this code to your test :

' ***********************
Dim nCnt

nCnt = Inputbox("Enter the number of Names needed")

RandomPicker(nCnt)

arrName = split(rName,",")

For i = 1 to nCnt - 1

Msgbox arrName(i)

Next

' ***********************


#3
Try running the test.



This code will generate the random names that you give as input in the InputBox.
Note : You can also add some validation to restrict the number of value in InputBox.


vbs code:


Dim  rName, rInt

Public Sub RandomPicker(rCnt)

        rName = "SANJAY"

        For rInt = 1 To rCnt

                ' Picking up seconds of current time                                                                                                                                                                                                                                  
                aVal = time
                arrVal = split(aVal,":")
                aVal = arrVal(2)
                aVal = left(aVal,2)
                 
                ' Picking up date of current date                                                                                                                                                                                                                                  
                bVal = date
                arrVal = split(bVal,"/")
                bVal = arrVal(0)
               
                ' Manuplating it to Generate Random Number
                cVal = aVal + bVal
                dVal = aVal * bVal
                zVal = cVal * dVal
                fVal = left(zVal,2)
                gVal = right(zVal,2)
                fVal = fVal + rInt
                 gVal = gVal + rInt
                                          
                If rInt Mod 2 = 0 Then
                         
                         ' Set of Different combination of words stored in an array
                         One = array("AZK","AJJ","AZD","AZC","AZB","QNW","QNX","AZV","AZU","AZT","AZS","QNN","QNO","QNP","QNQ","AZN","AZM","AZR","AZQ","QNI","QNJ","QNK","KPG","KPH","KPI","KPJ","KPM","KPN","KPO","KPU","KPV","KPW","KPX","KPY","KPZ","OLA","OLB","OLC","OLD","OLX","OLY","OLZ","QNA","QNB","QNC","QND","QNE","QNF","QNG","QNH","AZL","QNY","AZY","AZX","AZW","QNR","QNS","AZH","AZG","AZF","AZE","AZP","AZO","QNL","QNM","KPA","KPT","OLE","OLF","OLG","OLH","OLI","OLJ","OLK","OLL","OLM","OLN","OLO","KPB","KPC","KPD","KPE","KPF","KPP","KPQ","KPR","KPS","AZA","AZZ","QNT","QNU","QNV","OLR","OLS","OLT","OLU","OLV","OLW","KPK","KPL","QNZ","AZI","OLP","OLQ")
                         iVal = One(fVal)
                         
                         Two = array("KPB","KPC","KPD","KPE","KPF","KPP","KPQ","KPR","KPS","AZA","AZZ","QNT","QNU","QNV","OLR","OLS","OLT","OLU","OLV","OLW","KPK","KPL","QNZ","AZI","OLP","OLQ","AZY","AZX","AZW","QNR","QNS","AZH","AZG","AZF","AZE","AZP","AZO","QNL","QNM","KPA","KPT","OLE","OLF","OLG","OLH","OLI","OLJ","OLK","OLL","OLM","OLN","OLO","KPM","KPN","KPO","KPU","KPV","KPW","KPX","KPY","KPZ","OLA","OLB","OLC","OLD","OLX","OLY","OLZ","QNA","QNB","QNC","QND","QNE","QNF","QNG","QNH","AZL","QNY","AZK","AJJ","AZD","AZC","AZB","QNW","QNX","AZV","AZU","AZT","AZS","QNN","QNO","QNP","QNQ","AZN","AZM","AZR","AZQ","QNI","QNJ","QNK","KPG","KPH","KPI","KPJ")
                         jVal = Two(gVal)
                         
                Else
                         
                         Three = array("AZY","AZX","AZW","QNR","QNS","AZH","AZG","AZF","AZE","AZP","AZO","QNL","QNM","KPA","KPT","OLE","OLF","OLG","OLH","OLI","OLJ","OLK","OLL","OLM","OLN","OLO","AZK","AJJ","AZD","AZC","AZB","QNW","QNX","AZV","AZU","AZT","AZS","QNN","QNO","QNP","QNQ","AZN","AZM","AZR","AZQ","QNI","QNJ","QNK","KPG","KPH","KPI","KPJ","KPM","KPN","KPO","KPU","KPV","KPW","KPX","KPY","KPZ","OLA","OLB","OLC","OLD","OLX","OLY","OLZ","QNA","QNB","QNC","QND","QNE","QNF","QNG","QNH","AZL","QNY","KPB","KPC","KPD","KPE","KPF","KPP","KPQ","KPR","KPS","AZA","AZZ","QNT","QNU","QNV","OLR","OLS","OLT","OLU","OLV","OLW","KPK","KPL","QNZ","AZI","OLP","OLQ")
                         iVal = Three(fVal)
                         
                         Four = array("KPM","KPN","KPO","KPU","KPV","KPW","KPX","KPY","KPZ","OLA","OLB","OLC","OLD","OLX","OLY","OLZ","QNA","QNB","QNC","QND","QNE","QNF","QNG","QNH","AZL","QNY","AZY","AZX","AZW","QNR","QNS","AZH","AZG","AZF","AZE","AZP","AZO","QNL","QNM","KPA","KPT","OLE","OLF","OLG","OLH","OLI","OLJ","OLK","OLL","OLM","OLN","OLO","KPB","KPC","KPD","KPE","KPF","KPP","KPQ","KPR","KPS","AZA","AZZ","QNT","QNU","QNV","OLR","OLS","OLT","OLU","OLV","OLW","KPK","KPL","QNZ","AZI","OLP","OLQ","AZK","AJJ","AZD","AZC","AZB","QNW","QNX","AZV","AZU","AZT","AZS","QNN","QNO","QNP","QNQ","AZN","AZM","AZR","AZQ","QNI","QNJ","QNK","KPG","KPH","KPI","KPJ")
                         jVal = Four(gVal)
                         
                End If
                          
                kVal = iVal & jVal
                         
                If rName="SANJAY" Then
                         
                         rName = kVal
                       
                Else
                         
                         rName = rName + "," + kVal
                               
                End If
                         
                         
        Next                         
       
End Sub