as your reposibility plz give reply after checking
On Sun, Nov 17, 2013 at 7:40 PM, Siva Prasad <[email protected]> wrote: > Hi, > > please check with below code: > > 'Script to find the len of the given string without using the Len(Str) > function > Option Explicit > Dim Str > Str = Inputbox ( "Enter the String with spaces") > Msgbox "The entered string is:" & Str > Call LenOfString(Str) > > Function LenOfString( Byref Str) > Dim cnt , sum , ubund, inx, sStr, Temp , Totlenofstr , > sArry , sMid > cnt = 1 > sum = 0 > sArry = Split( Str , " ") > ubund = Ubound(sArry) > If ubund >= 0Then > For inx = 0 To ubund > Do > sStr = sArry(inx) > sMid = sMid & Mid(sStr , cnt , 1) > cnt = cnt+1 > Loop While (sStr <> sMid) > Temp = cnt - 1 > sum = sum+ Temp > cnt = 1 > sMid = Empty > If inx > ubund Then > Exit For > End If > Next > Totlenofstr = sum+ > ubund > MsgBox "The Length Of string without using the inbuilt function > Len(Str):" & Totlenofstr > End If > End Function > > > > ' To check whether the length of string is correct or wrong use the > Inbuilt function Len > Msgbox " The Length of the given string using Inbuilt function Len(Str) : > " & Len(Str) > > > > On Fri, Nov 15, 2013 at 11:32 PM, shikhar khandare <[email protected] > > wrote: > >> Amit's answer seems to be the most apt one/ >> >> On Saturday, 26 March 2011 14:23:32 UTC+5:30, Suresh Bhandari wrote: >>> >>> Hi, >>> >>> Can anybody tell, how to find length of String *without using InBuild >>> Function*. >>> >>> >>> Thanks, >>> Suresh Bhandari >>> Mob - 9052999540 >>> >> -- >> -- >> 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/groups/opt_out. >> > > -- -- 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/groups/opt_out.
