Hi ,
Previous solution provides the ommitted A string but not the count of
A in original string.
Chinna, Can you try the following solution.
Dim str2,str1,counter1
counter1=0
str1 = "ABABABABA"
len1 = len(str1)
For i=0 to len1-1
str2 = mid(str1,(i+1),1)
If strcomp(str2, "A")=0 Then
counter1 = counter1+1
else
counter1 = counter1
End If
Next
msgbox counter1
Thanks,
Shantanu
On Jun 26, 7:26 am, S R I D H A R <[email protected]> wrote:
> Hi Chinna
>
> Dim strMystring
> Dim strUBound
> Dim strCounter
> Dim strFinalString
> Dim strOnemoreString
>
> strMystring="ABABABA"
> strFinalString=""
>
> strMystring=Split(strMystring,"A")
> strUBound=UBound(strMystring)
>
> ----------Print the separated letters by using "For" loop------------
>
> For strCounter=0 To strUBound
> strOnemoreString= strMystring(strCounter)
> strFinalString= strFinalString*&*strOnemoreString
> Next
>
> Repoerter.ReporterEvent micPass,"The required
> string:","------"&strFinalString
>
> Hoping that u hv got a resolution
>
> Thanks
> DivyaSridhar
>
> On Fri, Jun 25, 2010 at 7:18 PM, chinna <[email protected]> wrote:
>
> > --
> > Thanks & Regards,
> > Chinna,
> > Mob:9739656841
>
> > --
> > You received this message because you are subscribed to the Google
> > "QTP - HP Quick Test Professional - Automated Software Testing"
> > group.
> > To post to this group, send email to [email protected]
> > To unsubscribe from this group, send email to
> > [email protected]<mercuryqtp%[email protected]>
> > For more options, visit this group at
> >http://groups.google.com/group/MercuryQTP?hl=en
--
You received this message because you are subscribed to the Google
"QTP - HP Quick Test Professional - Automated Software Testing"
group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/MercuryQTP?hl=en
