str_1= "THis is a test" count = 0 str_1 = LCase(str_1) & "@"
str_len = InStr(str_1,"@") 'MsgBox str_len For i = 1 To str_len If InStr(i, str_1, "t") > 0 Then str_pos = InStr(i, str_1, "t") count = count +1 i = str_pos End If Next MsgBox "String Count:"&count > "COUNT:" Regards, Gautham Maroli On Mon, Aug 25, 2014 at 6:26 PM, Malluri Ramesh <[email protected]> wrote: > VBScript to find the number of times a particular character is repeated in > a given string. without using len, mid, right, left > > -- > -- > 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 > > --- > You received this message because you are subscribed to the Google Groups > "QTP - HP Quick Test Professional - Automated Software Testing" group. > To unsubscribe from this group and stop receiving emails from it, send an > email to [email protected]. > For more options, visit https://groups.google.com/d/optout. > -- -- 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 --- You received this message because you are subscribed to the Google Groups "QTP - HP Quick Test Professional - Automated Software Testing" group. To unsubscribe from this group and stop receiving emails from it, send an email to [email protected]. For more options, visit https://groups.google.com/d/optout.
