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 2 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

Hi all. Could anyone tell me the difference between an Action and a Function in QTP. Thanks in advance and Merry Christmas.

3 Answers   IBM,


explain virtual object? in detailed? pls any one explain me?

4 Answers   Cap Gemini,


can objects recogonised without repository?

10 Answers   AZTEC,


How can I map test requirement to Test Set (multiple test cases)? Under test lab, I have multiple test cases. I would like to map 1 requirement to all test cases under that test set (in test lab)? Currently, I think QC only allow mapping 1 test requirement to 1 test case. Instead I would like to map 1 test requirement to multiple test cases under one test lab.

4 Answers   CarrizalSoft Technologies, DST Global Solutions,


Is any limitation to xml checkpoints?

0 Answers  


How to Test the mainframe application?

0 Answers   Unisys,


hello all i need some good sites or blogs which give info abt vb script with examples n real time scenarios.just like tutorials as i m new to qtp n vbscripting. its urgenttt

2 Answers  


If you have two monitors one is of 19inch and the 2nd one is of 24inch,if you want to write same QTP script in both the two monitors is there any changes required in the script?

0 Answers   Infosys,


in qtp how i can retrive from a browser how many links are there.means total no of links used in a browser

4 Answers   Verizon,


Hi, Can we open a test in qtp10 which is saved in qtp 9.2?

0 Answers  


Hi let me ask one questin 1.How to use outputof the one function input to the another function pls give the script for above 2.what is the purpose of action parameter , how to create it

2 Answers  


How to carry out bit map check points in QTP

0 Answers   kenexa,


Categories