how to calculate no. of repeating characters in a a
string..please give me the code
Answers were Sorted based on User's Feedback
Answer / rajeswari
correct code is
charcount=Len(mystring)-Len(replace(Mystring,"s",""))
this one is correct
Is This Answer Correct ? | 12 Yes | 1 No |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
what is the difference between quality and testing ?
Which Databases supports for QTP?
If an application name changes frequently i.e while recording it has the name, in this case, how do qtp handles?
How to open an application through scripting?
What is the difference Between LowLevel and Normal Recording Modes?
Mention what are the different types of recording modes in qtp? Which will be used when?
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
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 ?
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??
What is the difference between systemUtil and invoke method..?
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?
How you create new action in qtp?