how to calculate no. of repeating characters in a a
string..please give me the code
Answer Posted / 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 View All Answers
How you can make an action as re-usable action?
action contains public and private functions but do we resuable that action or not..If it is reusable How..plz tell me the ans
What is the limitation to XML Checkpoints?
Why script error occur in between recording in qtp?
if numbers are always changing write a script for that
Is there any relation between Keyword Driven Framework and Recording modes provided in QTP( whether Recording modes are applied on keyword driven framework or not?)
Will down time for server and content maintenance/upgrades be allowed? how much?
What are the recording modes in qtp?
What are the advantages of parameterization ?
what is the frame work in J-meter?
What is the difference between per-action and shared?
I AM TRYING PORT CODE FROM WINRUNNER TO QTP AND DON'T KNOW TO HOW TO CHECK THE ERRORS. IN WINRUNNER FUNCTION RETURNS EIGHER 0 OR -1 AGAINST WHICH RESULT CAN BE MADE PASS OR FAIL BUT IN QTP I DON'T SEE FUNCTIONS RETURNING ANY VALUE. APPRECIATE IF ANYONE COULD HELP ME CONVERTING FOLLWOING WINRUNNER CODE TO QTP. set_window("Customer Service"); rc = web_obj_get_text("Summary","#2","#4",ssn,""," ",1); if (rc != E_OK) { report_msg("[GetSubscriberSummary] Could Not get subscriber SSN; rc = "&rc); myRC = rc; } else { ssn = StripBlank(ssn); if (DEBUG) report_msg ("[GetSubscriberSummary] SSN: "&ssn); }
What are the different kinds of test steps?
What are the main differences of qtp and win runner?
Can you brief the hurdles you faced during Automation testing?