how to calculate no. of repeating characters in a a
string..please give me the code

Answers were Sorted based on User's Feedback



how to calculate no. of repeating characters in a a string..please give me the code..

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

Is This Answer Correct ?    28 Yes 6 No

how to calculate no. of repeating characters in a a string..please give me the code..

Answer / rajeswari

correct code is

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

this one is correct

Is This Answer Correct ?    12 Yes 1 No

how to calculate no. of repeating characters in a a string..please give me the code..

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

Is This Answer Correct ?    5 Yes 1 No

how to calculate no. of repeating characters in a a string..please give me the code..

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

Is This Answer Correct ?    2 Yes 0 No

how to calculate no. of repeating characters in a a string..please give me the code..

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

Is This Answer Correct ?    4 Yes 3 No

how to calculate no. of repeating characters in a a string..please give me the code..

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.

Is This Answer Correct ?    0 Yes 0 No

how to calculate no. of repeating characters in a a string..please give me the code..

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

Is This Answer Correct ?    0 Yes 0 No

how to calculate no. of repeating characters in a a string..please give me the code..

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

Is This Answer Correct ?    1 Yes 2 No

how to calculate no. of repeating characters in a a string..please give me the code..

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

Is This Answer Correct ?    0 Yes 1 No

how to calculate no. of repeating characters in a a string..please give me the code..

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

Is This Answer Correct ?    0 Yes 1 No

Post New Answer

More QTP Interview Questions

what is the difference between quality and testing ?

2 Answers  


Which Databases supports for QTP?

3 Answers   CTS,


If an application name changes frequently i.e while recording it has the name, in this case, how do qtp handles?

0 Answers  


How to open an application through scripting?

11 Answers  


What is the difference Between LowLevel and Normal Recording Modes?

1 Answers  






Mention what are the different types of recording modes in qtp? Which will be used when?

0 Answers  


In a web application , there is a table of rows and coloums , i want to pickup the 1st row and 3rd coloums name (not data)how can any one explain

5 Answers   Polaris,


How to handle "Java Runtime error" popup window in the web application ? Sometimes the application throws the error repeatedly... Is there any browser setting available to disable the error ?

2 Answers   TCS,


Sometimes my QTP scripts works fine and sometimes its not though I am using same shared Repository and am not doing any changes in it.Even though for descriptive programming also its works fine and sometimes it does not work.my application is pretty stable.Could anyone please answer why am facing these types of issue??

1 Answers  


What is the difference between systemUtil and invoke method..?

5 Answers  


An action has both shared and local OR associated with it and both have the same object in them. In the test which one will be considered?

0 Answers  


How you create new action in qtp?

0 Answers  


Categories