Answer / ashok kumar

str = "HELLO WORLD"
Set regex = New RegExp
regex.pattern = "L"
regex.Global = True
Set matches = regex.Execute(str)
msgbox matches.count

Answer / nagk24

here one more using loops and inbuilt functions

cnt=0
a="HELLO WORLD"
For i=1 to len(a)
n=mid(a,i,1)
If asc(n)=asc("L")Then
cnt=cnt+1
End If
Next
print cnt

Answer / rajasekar

dim str,strcount,strdis
str="welcome"
strcount=split(str,"l")
strdis=ubound(strcount)
print "count" & strdis

Answer / haneef

Hi..Ashok Kumar thank you yaar....its working.

->Hani<-

Answer / srikanthdas

str = "HELLO WORLD"
str1=Replace(str,"L","")
cnt=len(str)-len(str1)

msgbox "Number of L's in str is:" cnt

How to do Batch run in qtp? provide the steps?

5 Answers  

How to test whether the navigation i.e. from one page to another is working r not using QTP for web based application

1 Answers  

How will you set a unique four digit number in an edit field in QTP?

2 Answers   IBM,

What is the parameterization? Give one example?

0 Answers  

What are the advantages of Object Repository?

0 Answers  

Excepton Handling?

0 Answers   Wipro,

how we connect oracle or sql data server database to qtp

3 Answers   Tanla Solutions,

Can we call a parameter from an action to other action?

4 Answers  

What is creation time property and how does it work?

1 Answers  

How will you enchance the script?

1 Answers  

I used the below code to open QTP through VBscript?But i can unable to Invoke QTP...PLZ help me with the correct code to invoke QTP through VBS with description of the code aswell. Dim qtApp 'As QuickTest.Application 'Declare the Application object variable Dim qtTest 'As QuickTest.Test 'Declare a Test object variable Dim qtResultsOpt 'Declare a Run Results Options object variable Set qtApp = CreateObject("QuickTest.Application") 'Create the Application object qtApp.Launch 'Start QuickTest qtApp.Visible = False 'Make the QuickTest application visible qtApp.Open "C:\form", True 'Open the test in read-only mode 'set run settings for the test Set qtTest = qtApp.Test qtTest.Run 'Run the test 'WScript.StdOut.Write "Status is: " & qtTest.LastRunResults.Status 'Check the results of the test run qtTest.Close 'Close the test qtApp.quit 'Close QuickTest Pro Set qtResultsOpt = Nothing 'Release the Run Results Options object Set qtTest = Nothing 'Release the Test object Set qtApp = Nothing 'Release the Application object

0 Answers   ADITI,

Test script is generated and it is enhanced.It is required to be saved.But the disk space is insufficient.You are not permitted to delete any scripts.How are you going to save?

1 Answers   Accenture, DELL,