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 | 2 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 |
Hi all. Could anyone tell me the difference between an Action and a Function in QTP. Thanks in advance and Merry Christmas.
explain virtual object? in detailed? pls any one explain me?
can objects recogonised without repository?
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?
How to Test the mainframe application?
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
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?
in qtp how i can retrive from a browser how many links are there.means total no of links used in a browser
Hi, Can we open a test in qtp10 which is saved in qtp 9.2?
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
How to carry out bit map check points in QTP