Facebook

Course Name Start Date Time Duration Registration Link
No Training Programs Scheduled ClickHere to Contact
Please mail To sudhakar@qtpsudhakar.com to Register for any training

Thursday, May 17, 2012

VB Script Samples

In lot of places I have used print statement. This will work only in QTP. If you want to execute these samples using .vbs, just replace print with msgbox.

Please send your Suggestions and Doubts to my yahoo group http://in.groups.yahoo.com/group/qtpsudhakar
_______________________________________
'####################################################
'####################################################
'1    Print Hello World
Print "Hello World"
'####################################################
'####################################################
'2    Find whether given number is a odd number
Dim oNumber

oNumber=4
If oNumber mod 2 <>0 Then
    Print "The Number "& oNumber &" is an Odd Number"
else
    Print "The Number "& oNumber &" is not an Odd Number"
End If
'####################################################
'####################################################
'3    Print odd numbers between given range of numbers

Dim RangeStart
Dim RangeEnd
Dim iCounter
RangeStart=10
RangeEnd=20

For iCounter=RangeStart to RangeEnd

    If iCounter mod 2 <>0 Then
        Print  oNumber
    End If

Next

'####################################################
'####################################################
'4    Find the factorial of a given number
Dim oNumber
Dim iCounter
Dim fValue

oNumber=6
fValue=1

For iCounter=oNumber to 1 step-1
    fValue=fValue*iCounter
Next
print  fValue

'####################################################
'####################################################
'5    Find the factors of a given number
Dim oNumber
Dim iCounter

oNumber=10

For iCounter=1 to oNumber/2
    If oNumber mod iCounter=0 Then
        print iCounter
    End If
Next
print oNumber
'####################################################
'####################################################
'6    Print prime numbers between given range of numbers

Dim RangeStart
Dim RangeEnd
Dim iCounter
RangeStart=1
RangeEnd=30

For iCounter=RangeStart to RangeEnd

    For iCount=2 to round(iCounter/2)
            If iCounter mod iCount=0 Then
                Exit for
            End If
    Next
    
    If iCount=round(iCounter/2)+1 or iCounter=1 Then
            print iCounter
    End If
Next

'####################################################
'####################################################
'7    Swap 2 numbers with out a temporary variable

Dim oNum1
Dim oNum2

oNum1=1055
oNum2=155

oNum1=oNum1-oNum2
oNum2=oNum1+oNum2
oNum1=oNum2-oNum1
print oNum1
print oNum2
'####################################################
'####################################################
'8    Write a program to Perform specified Arithmetic Operation on two given numbers
Dim oNum1
Dim oNum2
Dim oValue

oNum1=10
oNum2=20

OperationtoPerform="div"

Select Case lcase(OperationtoPerform)

                Case "add"
                                oValue=oNum1+oNum2
                Case "sub"
                                oValue=oNum1-oNum2
                Case "mul"
                                oValue=oNum1*oNum2
                Case "div"
                                oValue=oNum1/ oNum2
End Select
print oValue
'####################################################
'####################################################
'9    Find the length of a given string
Dim oStr
Dim oLength
oStr="sudhakar"
oLength=len(oStr)
print oLength
'####################################################
'####################################################
'10    Reverse given string
Dim oStr
Dim oLength
Dim oChar
Dim iCounter

oStr="sudhakar"
oLength=len(oStr)

For iCounter=oLength to 1 step-1
        oChar=oChar&mid(oStr,iCounter,1)
Next
print oChar
'####################################################
'####################################################
'11    Find how many alpha characters present in a string.
Dim oStr
Dim oLength
Dim oChar
Dim iCounter

oStr="su1h2kar"
oLength=len(oStr)

oAlphacounter=0

For iCounter=1 to oLength

    If not isnumeric (mid(oStr,iCounter,1)) then
        oAlphacounter=oAlphacounter+1 
    End if
    
Next
print oAlphacounter

'####################################################
'####################################################
'12    Find occurrences of a specific character in a string

Dim oStr
Dim oArray
Dim ochr
oStr="sudhakar"
ochr="a"

oArray=split(oStr,ochr)
print ubound(oArray)
'####################################################
'####################################################
'13    Replace space with tab in between the words of a string.

Dim oStr
Dim fStr

oStr="Quick Test Professional"

fStr=replace(oStr," ",vbtab)
print fStr

'####################################################
'####################################################
'14    Write a program to return ASCII value of a given character

Dim ochr
Dim aVal

ochr="A"

aVal=asc(ochr)
print aVal

'####################################################
'####################################################
'15    Write a program to return character corresponding to the given ASCII value

Dim ochr
Dim aVal

aVal=65

oChr=chr(aVal)
print oChr

'####################################################
'####################################################
'16    Convert string to Upper Case
Dim oStr
Dim uStr

oStr="QuickTest Professional"

uStr=ucase(oStr)
print uStr
'####################################################
'####################################################
'17    Convert string to lower case
Dim oStr
Dim lStr

oStr="QuickTest Professional"
lStr=lcase(oStr)
print lStr

'####################################################
'####################################################
'18    Write a program to Replace a word in a string with another word

Dim oStr
Dim oWord1
Dim oWord2
Dim fStr

oStr="Mercury Quick Test Professional"
oWord1="Mercury"
oWord2="HP"

fStr=replace(oStr,oWord1,oWord2)
print fStr

'####################################################
'####################################################
'19    Check whether the string is a POLYNDROM

Dim oStr

oStr="bob"
fStr=StrReverse(oStr) 
If oStr=fStr Then
    Print "The Given String "&oStr&" is a Palindrome"
    else
    Print "The Given String "&oStr&" is not a Palindrome"
End If
'####################################################
'####################################################
'20    Verify whether given two strings are equal
Dim oStr1
Dim ostr2

oStr1="qtp"
oStr2="qtp"
If  oStr1=oStr2 Then
        Print "The Given Strings are Equal"
        else
        Print "The Given Strings are not Equal"
End If
'####################################################
'####################################################
'21    Print all values from an Array
Dim oArray
Dim oCounter
oArray=array(1,2,3,4,"qtp","Testing")

For oCounter=lbound(oArray) to ubound(oArray)
    print oArray(oCounter)
Next

'####################################################
'####################################################
'22    Sort Array elements
Dim oArray
Dim oCounter1
Dim oCounter2
Dim tmp

oArray=array(8,3,4,2,7,1,6,9,5,0)

For oCounter1=lbound(oArray) to ubound(oArray)

        For oCounter2=lbound(oArray) to ubound(oArray)-1

                    If oArray(oCounter2)>oArray(oCounter2+1) Then
                        tmp=oArray(oCounter2)
                        oArray(oCounter2)=oArray(oCounter2+1)
                        oArray(oCounter2+1)=tmp
                    End If
                      
        Next
    
Next

For oCounter1=lbound(oArray) to ubound(oArray)
    print oArray(oCounter1)
Next
    
'####################################################
'####################################################
'23    Add two 2X2 matrices
Dim oArray1(1,1)
Dim oArray2(1,1)
Dim tArray(1,1)

oArray1(0,0)=8
oArray1(0,1)=9
oArray1(1,0)=5
oArray1(1,1)=-1

oArray2(0,0)=-2
oArray2(0,1)=3
oArray2(1,0)=4
oArray2(1,1)=0

tArray(0,0)=oArray1(0,0)+ oArray2(0,0)
tArray(0,1)=oArray1(0,1)+oArray2(0,1)
tArray(1,0)=oArray1(1,0)+oArray2(1,0)
tArray(1,1)=oArray1(1,1)+oArray2(1,1)
'####################################################
'####################################################

'24    Multiply Two Matrices of size 2X2

Dim oArray1(1,1)
Dim oArray2(1,1)
Dim tArray(1,1)

oArray1(0,0)=8
oArray1(0,1)=9
oArray1(1,0)=5
oArray1(1,1)=-1

oArray2(0,0)=-2
oArray2(0,1)=3
oArray2(1,0)=4
oArray2(1,1)=0

tArray(0,0)=oArray1(0,0)* oArray2(0,0)+ oArray1(0,1)* oArray2(1,0)
tArray(0,1)=oArray1(0,0)* oArray2(0,1)+ oArray1(0,1)* oArray2(1,1)
tArray(1,0)=oArray1(1,0)* oArray2(0,0)+ oArray1(1,1)* oArray2(1,0)
tArray(1,1)=oArray1(1,0)* oArray2(0,1)+ oArray1(1,1)* oArray2(1,1)


'####################################################
'####################################################
'25    Convert a String in to an array

Dim oStr
Dim iCounter
oStr="Quick Test Professional"
StrArray=split(oStr)

For iCounter=0 to ubound(StrArray)
        print StrArray(iCounter)
Next

'####################################################
'####################################################
'26    Convert a String in to an array using ‘i‘ as delimiter

Dim oStr
Dim iCounter
oStr="Quick Test Professional"
StrArray=split(oStr,"i")

For iCounter=0 to ubound(StrArray)
        print StrArray(iCounter)
Next

'####################################################
'####################################################
'27    Find number of words in string

Dim oStr
Dim iCounter
oStr="Quick Test Professional"
StrArray=split(oStr," ")
print "Theere are "&ubound(StrArray)+1&" words in the string"

'####################################################
'####################################################
'28    Write a program to reverse the words of a given string.

Dim oStr
Dim iCounter
oStr="Quick Test Professional"
StrArray=split(oStr," ")

For iCounter=0 to ubound(StrArray)
        print strreverse(StrArray(iCounter))
Next

'####################################################
'####################################################
'29    Print the data as a Pascal triangle
'The formulae for pascal triangle is nCr=n!/(n-r)!*r!

Dim PascalTriangleRows
Dim nCr
Dim NumCount
Dim RowCount

PascalTriangleRows = 10
For NumCount = 0 To PascalTriangleRows
    toPrint= Space(PascalTriangleRows - NumCount)
    For RowCount = 0 To NumCount
            If (NumCount = RowCount) Then
                    nCr = 1
            Else
                nCr = Factorial(NumCount) / (Factorial(NumCount - RowCount) * Factorial(RowCount))
            End If
     toPrint=toPrint&nCr&" "
    Next
    print toPrint
Next


Function Factorial(num)
   Dim iCounter
    Factorial = 1
    If num <> 0 Then
        For iCounter = 2 To num
            Factorial = Factorial * iCounter
        Next
    End If
End Function
'####################################################
'####################################################
'30    Join elements of an array as a string

Dim oStr
Dim iCounter
oStr="Quick Test Professional"
StrArray=split(oStr," ")

print join(StrArray," ")

'####################################################
'####################################################
'31    Trim a given string from both sides

Dim oStr

oStr="    QTP    "
print trim(oStr)

'####################################################
'####################################################
'32    Write a program to insert 100values and to delete 50 values from an array

Dim oArray()
Dim iCounter

ReDim oArray(100)

For iCounter=0 to ubound(oArray)
            oArray(iCounter)=iCounter
            'Print total 100 Values
            print(oArray(iCounter))
Next
print "******************************"
print "******************************"
ReDim preserve oArray(50)

For iCounter=0 to ubound(oArray)
    'Print Values after deleting 50 values
            print(oArray(iCounter))
Next
'####################################################
'####################################################
'33    Write a program to force the declaration of variables

Option explicit    ' this keyword will enforce us to declare variables

Dim x
x=10
'Here we get an error because i have not declared y,z
y=20
z=x+y
print z
'####################################################
'####################################################
'34    Write a program to raise an error and print the error number. 

On Error Resume Next
Err.Raise 6   ' Raise an overflow error.
print  ("Error # " & CStr(Err.Number) & " " & Err.Description)

'####################################################
'####################################################
'35    Finding whether a variable is an Array

Dim oArray()

if  isarray(oArray) then
    print "the given variable is an array"
 else
    print "the given variable is not an array"
End if
'####################################################
'####################################################
'36    Write a program to list the Timezone offset from GMT
Dim objWMIService
Dim colTimeZone
Dim objTimeZone

Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colTimeZone = objWMIService.ExecQuery("Select * from Win32_TimeZone")
 
For Each objTimeZone in colTimeZone
    print "Offset: "& objTimeZone.Bias 
Next
'####################################################
'####################################################
'37 Retrieving Time Zone Information for a Computer
Dim objWMIService
Dim colTimeZone
Dim objTimeZone

Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colTimeZone = objWMIService.ExecQuery("Select * from Win32_TimeZone")

For Each objItem in colTimeZone

    print "Bias: " & objItem.Bias
    print "Caption: " & objItem.Caption
    print "Daylight Bias: " & objItem.DaylightBias
    print "Daylight Day: " & objItem.DaylightDay
    print "Daylight Day Of Week: " & objItem.DaylightDayOfWeek
    print "Daylight Hour: " & objItem.DaylightHour
    print "Daylight Millisecond: " & objItem.DaylightMillisecond
    print "Daylight Minute: " & objItem.DaylightMinute
    print "Daylight Month: " & objItem.DaylightMonth
    print "Daylight Name: " & objItem.DaylightName
    print "Daylight Second: " & objItem.DaylightSecond
    print "Daylight Year: " & objItem.DaylightYear
    print "Description: " & objItem.Description
    print "Setting ID: " & objItem.SettingID
    print "Standard Bias: " & objItem.StandardBias
    print "Standard Day: " & objItem.StandardDay
    print "Standard Day Of Week: " & objItem.StandardDayOfWeek
    print "Standard Hour: " & objItem.StandardHour
    print "Standard Millisecond: " & objItem.StandardMillisecond
    print "Standard Minute: " & objItem.StandardMinute
    print "Standard Month: " & objItem.StandardMonth
    print "Standard Name: " & objItem.StandardName
    print "Standard Second: " & objItem.StandardSecond
    print "Standard Year: " & objItem.StandardYear
    
Next

'####################################################
'####################################################
'38    Write a program to Convert an expression to a date
Dim StrDate
Dim actualDate 
Dim StrTime
Dim actualTime

StrDate = "October 19, 1962"   ' Define date.
actualDate = CDate(StrDate)   ' Convert to Date data type.
print actualDate
StrTime = "4:35:47 PM"         ' Define time.
actualTime = CDate(StrTime)   ' Convert to Date data type.
print actualTime 

'####################################################
'####################################################
'39 Display current date and Time

print now
'####################################################
'####################################################
'40    Find difference between two dates.

'Date difference in Years
print DateDiff("yyyy","12/31/2002",Date)

'Date difference in Months
print DateDiff("m","12/31/2002",Date)

'Date difference in Days
print DateDiff("d","12/31/2002",Date)

'####################################################
'####################################################
'41    Add time interval to a date

print DateAdd("m", 1, "31-Jan-95")

'####################################################
'####################################################
'42    Print current day of the week

Print day(date)
'####################################################
'####################################################
'43    Find whether current month is a long month
Dim oCurrentMonth
Dim ocurrentYear
Dim oDaysinMonths

oCurrentMonth = Month(date)
ocurrentYear = Year(date)
oDaysinMonths=Day(DateSerial(ocurrentYear, oCurrentMonth + 1, 0))
print oDaysinMonths&" Days in Current Month"
If oDaysinMonths=31 Then
    print "Current Month is a long month"
else
    print "Current Month is not a long month"
End If
'####################################################
'####################################################
'44    Find whether given year is a leap year

'1st Method

'The rules for leap year:
'1. Leap Year is divisible by 4    (This is mandotory Rule)
'2. Leap Year is not divisible by 100 (Optional)
'3. Leap Year divisble by 400 (Optional)

Dim oYear

oYear=1996

If ((oYear Mod 4 = 0) And (oYear Mod 100 <> 0) Or (oYear Mod 400 = 0)) then
    print "Year "&oYear&" is a Leap Year"
else
    print "Year "&oYear&" is not a Leap Year"
End If


'45.    2nd Method
' Checking 29 days for February month in specified year
Dim oYear
Dim tmpDate

oYear=1996
tmpDate = "1/31/" & oYear
DaysinFebMonth = DateAdd("m", 1, tmpDate)

If  day(DaysinFebMonth )=29 then
    print "Year "&oYear&" is a Leap Year"
else
    print "Year "&oYear&" is not a Leap Year"
End If

'####################################################
'####################################################
'46    Format Number to specified decimal places

Dim oNum
Dim DecimaPlacestobeFormat
oNum = 3.14159
DecimaPlacestobeFormat=2
print Round(oNum , DecimaPlacestobeFormat) 

'####################################################
'####################################################
'47    Write a program to Generate a Random Numbers
'This script will generate random numbers between 10 and 20
Dim rStartRange
Dim rEndRange

rStartRange=10
rEndRange=20

For iCounter=1 to 10
    print Int((rEndRange - rStartRange + 1) * Rnd + rStartRange)
Next
'####################################################
'####################################################
'48    Write a program to show difference between Fix and Int 

'Both Int and Fix remove the fractional part of number and return the resulting integer value.
'The difference between Int and Fix is that if number is negative, Int returns the first negative integer less than or equal to number,
'whereas Fix returns the first negative integer greater than or equal to number. 
'For example, Int converts -8.4 to -9, and Fix converts -8.4 to -8.

print Int(99.8)    ' Returns 99.
print Fix(99.2)    ' Returns 99.
print Int(-99.8)   ' Returns -100.
print Fix(-99.8)   ' Returns -99.
print Int(-99.2)   ' Returns -100.
print Fix(-99.2)   ' Returns -99.

'####################################################
'####################################################
'49    Write a program to  find subtype of a variable

Dim oVar
Dim oDatatypes
oVar="QTP"
oVartype=Typename(oVar)
print oVartype

'####################################################
'####################################################
'50    Write a program to print the decimal part of a given number
Dim oNum
oNum=3.123
oDecNum=oNum- int(oNum)
print oDecNum
'####################################################
'####################################################

45 comments :

  1. narsimhare​ddy kuruguntlaFebruary 22, 2009 at 6:06 AM

    hi Sudhakar,really amazing, this helps a lot for the very beginners to understand deep conceptual

    ReplyDelete
  2. Dear MR.Sudharkar Really Its awesome Work I Really Appreciate to YOur HatdWork I never Seen Before like this blog in any other TechnologiesReally Gr8 Work JagadeeeshVijayawada

    ReplyDelete
  3. Really a good site that we can Find more about QTP and VB scripts

    ReplyDelete
  4. Hey Sudhakar, Thank You Very much for this ...

    ReplyDelete
  5. Hi, Sudharkar ,Thanks You verymuch fro this ...really its very good site for grab the knowledge on QTP and Vbscript........thanks alot.ThanksChaitanyakumar.C

    ReplyDelete
  6. The kind of work you are doing is really Great. We are really thankful to you. I've a question, how can we know the Final test result pass/fail in qtp? Specially how to export that test result to Excel sheet? If possible give us one document on this. If you have any document on the same, you can mail me at oracleapps003@gmail.com.Thanks in Advance

    ReplyDelete
  7. Hi,

    I am new in QTP..
    This time i am using QTP9...
    I have facing one problem, kindly read my scenario -

    Let suppose we have login window and we want that application should display alert if user doesn't enter the login name in runtime.
    eg -"Please enter login name"
    assume application is displayed expected alert in runtime.

    and i have successfully creates script(in qtp9),
    But i don't know how we can compare our script result with application runtime result..this is the point where i am facing the problem ...because after i will update test status in my testcase..
    please help me...

    ReplyDelete
  8. hi this is very helpful to me,
    thanks,
    Maya

    ReplyDelete
  9. thank u sudhakar it's amazing

    ReplyDelete
  10. really amazing and it will help to get a job in qtp, definitely god will bless u.

    ReplyDelete
  11. Hey sudhakar,its really good stuff!!!! Please keep up the good work and also add some more examples too ...

    ReplyDelete
  12. really helpfull stuff...thank you Mr. Sudhakar.

    ReplyDelete
  13. Its really good. Great work..!

    ReplyDelete
  14. Thankyou so much for helping QTP begineers....

    ReplyDelete
  15. Sir, This is a good site for learning about VISUAL BASIC.
    gIVE MORE EXAMPLES ABOUT VBSCRIPTING IN THIS SITE.........pls

    ReplyDelete
  16. sir,
    tHIS is really good. add more vbscripting examples relating to fso and excel objects and types of string functions

    ReplyDelete
  17. Really everything u explained in one code.. Thanks a lot

    ReplyDelete
  18. Thanks a lot. This is very useful. Great work.

    ReplyDelete
  19. Thanks a lot sudhakar garu.nice blog.

    ReplyDelete
  20. Awesome Sudhakar..I have become a fan of this webpage now..Please include some more examples too.

    ReplyDelete
  21. Simple examples but more useful...

    ReplyDelete
  22. Hello Sudhakar,

    Nice Post...........

    ReplyDelete
  23. It's really amazing talent from Mr.Sudhakar. Definitely we will get job if we follow these kind of posts regularly.I hats off Mr. Sudhakar for helping me.

    Thanks
    Balaji Gunji

    ReplyDelete
  24. It's really amazing talent from Mr. Sudhakar. This will definitely workout in getting job for sure.
    I hats off to Mr.Sudhakar for posting nice............

    Thanks
    Balaji.

    ReplyDelete
  25. Thanks a lot Sudhakar..its really a very good work..

    ReplyDelete
  26. Excellent blog for newcomers who wants to learn QhakarTP. Thank you sud

    ReplyDelete
  27. Greate sudhakar we never found this type of examples

    ReplyDelete
  28. HI.It is very very helpful.
    Thanks...

    ReplyDelete
  29. Thanks...a ton.....really very useful and helpful.

    ReplyDelete
  30. very good examples for QTP beginners

    ReplyDelete
  31. its Very useful

    Great work,Thanks!

    ReplyDelete
  32. Thank u Sudhakar "It is Very Helpful for going to Interviews and Learning Subject concepts"

    ReplyDelete
  33. Great work Sudhakar. Very much helpful :)

    ReplyDelete
  34. Works for freshers well

    ReplyDelete
  35. Simply desire to say your article is as astonishing. The clearness in your post is just great and i could assume you're an expert on this subject.
    Well with your permission allow me to grab your feed to keep
    up to date with forthcoming post. Thanks a million and please
    continue the rewarding work.

    ReplyDelete