Hi...
Can anybody help me to write the vbscript for this
question..!!! Am having a string "HELLO WORLD", i want to
find how many "L"s are there.....?????
--> HANEEF <--
Answer Posted / srikanthdas
str = "HELLO WORLD"
str1=Replace(str,"L","")
cnt=len(str)-len(str1)
msgbox "Number of L's in str is:" cnt
| Is This Answer Correct ? | 0 Yes | 0 No |
Post New Answer View All Answers
How to use parameterization in qtp?
Hi, I am working on microsoft infopath forms..It is standalone form..(not dotnet or web.) . I am not able to indentify any objects in it.. I am currently using active accessibility in the macro for the same but its execution is too slow.. Kindly help in case you have better solution.
what is object and child object.. explain ..if possible give some example for better understanding ..
what are the mandatory properties for a tex boxc (scenario?)
Hi, How Accessibility checkpoint in QTP can be implemented in the test script?
Can we Test Welcome Screens and Process Images with QTP
Explain the features of quick test pro(qtp)?
How to use reporter.report event in qtp ?
What are test settings and global settings?
What is the synchronization point in qtp?
What are the two types of repositories available, explain them?
what are the utilities and drivers
What VBScript operators, functions, and statements do you use in QuickTest Professional?
how we implement share object repository in QTP 9.0 without using quality Centre , Explaine in brief
How can we retrieve the Bug Ids which are open&Reopen in status through QTP scrit?Please find the script which i tried... Dim objBugFactory, objBug Dim BugId Set TDConnection = QCUtil.TDConnection Set objBug = TDConnection.BugFactory If QCUtil.IsConnected then Reporter.ReportEvent 0, "Connected", "Connected to server: " + QCUtil.TDConnection.ServerName + chr (13) +"Project: " + QCUtil.TDConnection.ProjectName + chr (13) + "Domain: " + QCUtil.TDConnection.DomainName Reporter.ReportEvent 0, "Current time on server is","==>" & TDConnection.ServerTime Else Reporter.ReportEvent 1, "Not connected", "Not connected to Quality Center" End If If mybug.Status="Open" Then BugId=mybug.DefectId MsgBox BugId End If 'OR**********************************--------------------- -----********************************** If Bug_Fields("BG_STATUS").Value ="Open" Or "Re Open"Then BugId=Bug_Fields("BG_BUG_ID").Value MsgBox BugId End If