str="QTP AUTOMATION TESTING" here how many T are there in the str fi

Categories >> Software >> Testing >> Automation Testing >> QTP
Suggest New Category

str="QTP AUTOMATION TESTING"
here how many T are there in the str
finally i want to display the T

Question Posted / karthick

10 Answers
12847 Views
HCL, I also Faced
E-Mail Answers

Answers were Sorted based on User's Feedback

str="QTP AUTOMATION TESTING" here how many T are there in the str finally i want to disp..

Answer / abin

str="QTP AUTOMATION TESTING"
a= ubound(split(str,"T"))
msgbox a

Is This Answer Correct ?

10 Yes

1 No

str="QTP AUTOMATION TESTING" here how many T are there in the str finally i want to disp..

Answer / karthik

i am thinking this will correct ...because he want to count
how many T are there ,for that it's correct..
and finally he want to display the T ,just read the question
once again ...if i wrong let me know...

str="QTP AUTOMATION TESTING"
dim l,m,n,p
l=len(str)
for i=1 to l
m=mid(str,i,1)
if m="T" then
n=n & m
end if
next
p=len(n)
msgbox P
msgbox n

Is This Answer Correct ?

9 Yes

2 No

str="QTP AUTOMATION TESTING" here how many T are there in the str finally i want to disp..

Answer / gabbar

msgbox len(str)-len(REPLACE(str,"T",""))

Is This Answer Correct ?

4 Yes

1 No

str="QTP AUTOMATION TESTING" here how many T are there in the str finally i want to disp..

Answer / ganesh

excellent answer by gabbar..out put 5 came

but question is not over ..finally display T ?

what about T.........

Is This Answer Correct ?

0 Yes

0 No

str="QTP AUTOMATION TESTING" here how many T are there in the str finally i want to disp..

Answer / prashaant kumar

str="QTP AUTOMATION TESTING"
a= split(str,"T")
msgbox ubound(a)
msgbox string(ubound(a),"T")

Is This Answer Correct ?

0 Yes

0 No

str="QTP AUTOMATION TESTING" here how many T are there in the str finally i want to disp..

Answer / lak

Karthik is correct

Is This Answer Correct ?

0 Yes

0 No

str="QTP AUTOMATION TESTING" here how many T are there in the str finally i want to disp..

Answer / pravati

x="qtp automation testingttt"
y=split(x,"t")
for i=0 to ubound(y)
msgbox ubound y(i)
next

Is This Answer Correct ?

0 Yes

0 No

str="QTP AUTOMATION TESTING" here how many T are there in the str finally i want to disp..

Answer / cnu_thatavarthi

Dim strValue,i, blnFlag,incRement

strValue = "QTP AUTOMATION TESTING"
blnFlag = ""
incRement = 0
For i = 1 to Len(strValue)
If Ucase(mid(strValue,i,1)) = "T" Then
incRement = incRement+1
blnFlag = blnFlag &Ucase(mid(strValue,i,1))
End If
Next
Msgbox incRement 'Number of Ts are Displaying 5
Msgbox blnFlag

Is This Answer Correct ?

0 Yes

0 No

str="QTP AUTOMATION TESTING" here how many T are there in the str finally i want to disp..

Answer / manjesh

a="QTP AUTOMATION TESTING"
b=split(a,"T")
c=Ubound(b)
msgbox c

Is This Answer Correct ?

0 Yes

0 No

str="QTP AUTOMATION TESTING" here how many T are there in the str finally i want to disp..

Answer / jay patel

dim str
str = "qtp automation testingttt"
a = split (str,"t")
for each x in a
msgbox x
next
msgbox ubound(a)

Is This Answer Correct ?

2 Yes

5 No

Post New Answer