Answer / rayudu

suppose you have a string like

"God is Great"


A="God is Great"
Cnt=split(A,"G")
msgbox Ubound(Cnt)


will display 2

Answer / rajeswari

correct code is

charcount=Len(mystring)-Len(replace(Mystring,"s",""))

this one is correct

Answer / vijay kumar chourasiya

Dim Str, ChkDup,i,Cnt
Str="aaabc"
For i = 1 to Len(Str) step 1
ChkDup=mid(Str,i,1)
Cnt = split(Str,ChkDup,-1)
result= Ubound(Cnt)
result1=result1&result
Next

MsgBox result1

Answer / arunkumar vikram r k

Hi Amol, a small change in your script and the repeated characters can be printed or counted

Option Explicit
Dim getChar,strLen,ascChar(),CharCount,i,RepChar,getRes
getChar="VBSsccrript"
strLen=Len(getChar)
ReDim ascChar(strLen)

For i=1 to strLen
ascChar(i)=Mid(getChar,i,1)

Next
For i=1 to strLen
getRes=Split(getChar,ascChar(i),-1,1)
If ubound(getRes)=2 Then
RepChar=RepChar&" "&ascChar(i)
End If
Next
msgbox RepChar

Answer / sudhanshu

Dim Str, ChkDup,i,Cnt
Str = Inputbox("Enter the String Name")
For i = 1 to Len(Str) step 1
ChkDup=mid(Str,i,1)
Cnt = split(Str,ChkDup,-1) 
msgbox Ubound(Cnt)
Next

Answer / lakshmi

Hi Rajeswari,

could u please tell us the total no.of repeating charcters
in a given string. it is not specific to one character.

For ex i have a string like "abcdabcefghefg".

so here the total no.of repeating char's are 6.

so for this sring output should be 6.

Answer / kajal

Function RepeatCharCountInString
RepStr = "Automation Using Test Complete"
Msgbox(RepStr)
RepStr = Replace(RepStr," ","")
RepStr = LCase(RepStr)
RepStr1 = RepStr
For i=1 to Len(RepStr)
RepStrChar = mid(RepStr1,i,1)
Count=0
For j=1 to Len(RepStr1)
Char = mid(RepStr1,j,1)
If(Char=RepStrChar) Then
Count = Count +1
End If
Next
If (Count = 0) Then
Exit For
End If
Msgbox(RepStrChar &" Count is " & Count)
RepStr1 = Replace(RepStr1,RepStrChar,"")
RepStr1 = RepStrChar+ RepStr1
Next
End Function

Answer / vinod

str = "abdabcefghefg"
J=0
K=1
z=""

For i=1 to len(str)
x= mid(str,i,1)
If InStr (1, z,x,1) Then
Else
z=z&x
'msgbox z
End If
Next

For i=1 to len(z)
x= mid(z,i,1)
y = split (str,x)
If Ubound (y)>1 Then
varCount=varCount+1
End If
Next
msgbox varCount

Answer / amol ghule

Option Explicit
Dim getChar,strLen,ascChar(),CharCount,i,UniqChar,getRes
getChar="VBSsccrript"
strLen=Len(getChar)
ReDim ascChar(strLen)

For i=0 to strLen-1
ascChar(i)=Mid(getChar,i+1,1)

Next
For i=0 to strLen-1
getRes=Split(getChar,ascChar(i),-1,1)
If ubound(getRes)=1 Then
UniqChar=UniqChar&" "&ascChar(i)
End If
Next
msgbox UniqChar

Answer / amol ghule

' A shorter version of code

Option Explicit
Dim getChar,strLen,ascChar(),CharCount,i,UniqChar,getRes
getChar="TestmyKnowledge1221"
strLen=Len(getChar)
ReDim ascChar(strLen)

For i=0 to strLen-1
ascChar(i)=Mid(getChar,i+1,1)
getRes=Split(getChar,ascChar(i),-1,1)
If ubound(getRes)=1 Then
UniqChar=UniqChar&" "&ascChar(i)
End If

Next
msgbox UniqChar

How to connect to data base?

2 Answers  

How QTP identify the system time that's changes every seconds?

0 Answers  

I m trying to automate one vb desktop application in that there is vblist vbcombobox many other vb tools are there ,when i m trying to find some unique property to identify the object (take example of vbcombobox ) I cannot find any unique property, all the combobox belong to same nativeclass same name no ids are available ,only the distinct property is there x and y coordinates so i m using some code like this "vbbutton "nativeclass:=ThunderRT6CommandButton","x:=304","y :=443").exist(2)" but i dont find them reliable .Can anyone suggest me some other way to identify those objects with some unique property or is there any way to register our own property .I m using descriptive programming to write the code .Thanks in advance

6 Answers   Cimcon,

Explain how you can find length of array in qtp?

0 Answers  

hi in QTP 8.2 in the edit box has text like "raju want married" . i want to check "want" is their in the text or not ?

16 Answers   Syntel,

anyone can explain about "Hybrid framework" in QTP

5 Answers  

how to capture tool tip in QTP and which check point is needed

2 Answers   Syntel,

What are the Test design techniques you uses in ur project?

0 Answers   Accenture,

How to extract the data in the below scenario and dump it in the excel? Link1 Link2 Link3 Link4 numberlink1 text text text numberlink2 text text text numberlink3 text text text numberlink4 text text text So, Here is my question? -- It is a matrix but is not a web table(QTP does not recognize it as a web table) -- Link1, link2 and link3 are links under which text is available -- numberlink1 to numberlink4 are again LINKS -- All the others displayed are text only I want to extract the data in the above scenario and dump it into an excel in the same scenario as it is displayed above. Kindly help.. Thank you

0 Answers  

How to supress warnings from the "Test results page"?

6 Answers   BirlaSoft,

any body can you help me what is the script to automate an comand promt

0 Answers  

How should I click on the right click menu objects When I trying to add the object properties to the OR.It is showing only Window(Window).Not all the objects of the window. Also while recording I found No script. How to solve this>.

0 Answers