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
_______________________________________
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 '#################################################### '####################################################
hi Sudhakar,really amazing, this helps a lot for the very beginners to understand deep conceptual
ReplyDeleteDear 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
ReplyDeleteReally a good site that we can Find more about QTP and VB scripts
ReplyDeleteHey Sudhakar, Thank You Very much for this ...
ReplyDeleteHi, Sudharkar ,Thanks You verymuch fro this ...really its very good site for grab the knowledge on QTP and Vbscript........thanks alot.ThanksChaitanyakumar.C
ReplyDeleteThe 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
ReplyDeleteHi,
ReplyDeleteI 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...
hi this is very helpful to me,
ReplyDeletethanks,
Maya
thank u sudhakar it's amazing
ReplyDeletereally amazing and it will help to get a job in qtp, definitely god will bless u.
ReplyDeleteHey sudhakar,its really good stuff!!!! Please keep up the good work and also add some more examples too ...
ReplyDeletereally helpfull stuff...thank you Mr. Sudhakar.
ReplyDeleteVery Helpful
ReplyDeleteIts really good. Great work..!
ReplyDeleteThankyou so much for helping QTP begineers....
ReplyDeleteSir, This is a good site for learning about VISUAL BASIC.
ReplyDeletegIVE MORE EXAMPLES ABOUT VBSCRIPTING IN THIS SITE.........pls
sir,
ReplyDeletetHIS is really good. add more vbscripting examples relating to fso and excel objects and types of string functions
Really everything u explained in one code.. Thanks a lot
ReplyDeleteThanks a lot. This is very useful. Great work.
ReplyDeleteThanks a lot sudhakar garu.nice blog.
ReplyDeleteGood one dude.
ReplyDeleteAwesome Sudhakar..I have become a fan of this webpage now..Please include some more examples too.
ReplyDeleteGreat
ReplyDeleteSimple examples but more useful...
ReplyDeleteAwesome
ReplyDeletesuperb
ReplyDeleteHello Sudhakar,
ReplyDeleteNice Post...........
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.
ReplyDeleteThanks
Balaji Gunji
It's really amazing talent from Mr. Sudhakar. This will definitely workout in getting job for sure.
ReplyDeleteI hats off to Mr.Sudhakar for posting nice............
Thanks
Balaji.
Thanks a lot Sudhakar..its really a very good work..
ReplyDeletesudhakar you rocked!!!!
ReplyDeleteU rocked!!!!
ReplyDeleteExcellent blog for newcomers who wants to learn QhakarTP. Thank you sud
ReplyDeleteGood Work
ReplyDeleteGreate sudhakar we never found this type of examples
ReplyDeleteThanks. It was very helpful
ReplyDeleteHI.It is very very helpful.
ReplyDeleteThanks...
Its very helpful, thanks
ReplyDeleteThanks...a ton.....really very useful and helpful.
ReplyDeletevery good examples for QTP beginners
ReplyDeleteits very useful,great wok
ReplyDeleteThanks!
its Very useful
ReplyDeleteGreat work,Thanks!
it is very useful
ReplyDeleteThank u Sudhakar "It is Very Helpful for going to Interviews and Learning Subject concepts"
ReplyDeleteGreat work Sudhakar. Very much helpful :)
ReplyDeleteHi sudhakar ,
ReplyDeleteIts very nice
Works for freshers well
ReplyDeleteSimply 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.
ReplyDeleteWell 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.