dim arr(128)
arr(0) = ""
arr(1) = ""
arr(2) = ""
arr(3) = ""
arr(4) = ""
arr(5) = ""
arr(6) = ""
arr(7) = ""
arr(8) = ""
arr(9) = ""
arr(10) = ""
arr(11) = ""
arr(12) = ""
arr(13) = ""
arr(14) = ""
arr(15) = ""
arr(16) = ""
arr(17) = ""
arr(18) = ""
arr(19) = ""
arr(20) = ""
arr(21) = ""
arr(22) = ""
arr(23) = ""
arr(24) = ""
arr(25) = ""
arr(26) = ""
arr(27) = ""
arr(28) = ""
arr(29) = ""
arr(30) = ""
arr(31) = ""
arr(32) = " "
arr(33) = "!"
arr(34) = """"
arr(35) = "#"
arr(36) = "$"
arr(37) = "%"
arr(38) = "&"
arr(39) = "'"
arr(40) = "("
arr(41) = ")"
arr(42) = "*"
arr(43) = "+"
arr(44) = ","
arr(45) = "-"
arr(46) = "."
arr(47) = "/"
arr(48) = "0"
arr(49) = "1"
arr(50) = "2"
arr(51) = "3"
arr(52) = "4"
arr(53) = "5"
arr(54) = "6"
arr(55) = "7"
arr(56) = "8"
arr(57) = "9"
arr(58) = ":"
arr(59) = ";"
arr(60) = "<"
arr(61) = "="
arr(62) = ">"
arr(63) = "?"
arr(64) = "@"
arr(65) = "A"
arr(66) = "B"
arr(67) = "C"
arr(68) = "D"
arr(69) = "E"
arr(70) = "F"
arr(71) = "G"
arr(72) = "H"
arr(73) = "I"
arr(74) = "J"
arr(75) = "K"
arr(76) = "L"
arr(77) = "M"
arr(78) = "N"
arr(79) = "O"
arr(80) = "P"
arr(81) = "Q"
arr(82) = "R"
arr(83) = "S"
arr(84) = "T"
arr(85) = "U"
arr(86) = "V"
arr(87) = "W"
arr(88) = "X"
arr(89) = "Y"
arr(90) = "Z"
arr(91) = "("
arr(92) = "\"
arr(93) = ")"
arr(94) = "^"
arr(95) = "_"
arr(96) = "`"
arr(97) = "a"
arr(98) = "b"
arr(99) = "c"
arr(100) = "d"
arr(101) = "e"
arr(102) = "f"
arr(103) = "g"
arr(104) = "h"
arr(105) = "i"
arr(106) = "j"
arr(107) = "k"
arr(108) = "l"
arr(109) = "m"
arr(110) = "n"
arr(111) = "o"
arr(112) = "p"
arr(113) = "q"
arr(114) = "r"
arr(115) = "s"
arr(116) = "t"
arr(117) = "u"
arr(118) = "v"
arr(119) = "w"
arr(120) = "x"
arr(121) = "y"
arr(122) = "z"
arr(123) = "{"
arr(124) = "|"
arr(125) = "}"
arr(126) = "~"
arr(127) = " "
ssubstr = ""
str = "aaa sss"
length = 0
for i = 31 to 126
if ssubstr = str then
exit for
End if
if ssubstr & arr(i) > str Then
ssubstr = ssubstr & arr(i-1)
length = length + 1
i = 31
End If
Next
wscript.echo "len(" & ssubstr & ")=" & length
On Sat, Mar 26, 2011 at 4:04 PM, Suresh Bhandari <
[email protected]> wrote:
> Hi Venkat Musku,
>
> I think u didn't understand this Question, we don't have to use any Build
> in functions.
>
> Shalabh Dixit - I have already check that link, they have use Build In
> Function.
>
>
> Thanks,
> Suresh Bhandari
> Mob - 9052999540
>
> On Sat, Mar 26, 2011 at 9:06 PM, VENKAT musku <[email protected]> wrote:
>
>> here is the example to find the length of string
>>
>>
>> Dim a
>> a= "welcome"
>> Dim b
>> b= len(a)
>> msgbox b
>>
>> - vm
>>
>>
>> On Sat, Mar 26, 2011 at 11:27 AM, Shalabh Dixit
>> <[email protected]>wrote:
>>
>>> Hi Suresh,
>>>
>>> Try dis link.. u 'll find many sol's here:
>>>
>>>
>>> http://www.vbmonster.com/Uwe/Forum.aspx/vb/15877/Find-string-length-in-VB6-without-the-in-built-Len-function
>>>
>>> On Mar 26, 1:53 pm, Suresh Bhandari <[email protected]>
>>> 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
>>
>>
>>
>>
>> --
>> Thanks,Venkat Musku
>>
>> --
>> 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
> "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
"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
