I hope this does what you need:
Str="This is a Testing process"
Dim char_arr()
lenStr=len(str)
ReDim char_arr(lenstr - 1)
for i = 0 to lenstr - 1
var = mid(str, i+1, 1)
char_arr(i) = var
next
s = ""
for j = 0 to uBound(char_arr)
s = s & char_arr(j) & vbcrlf
next
msgbox s
Parke
On Mon, Nov 28, 2011 at 1:24 PM, uma mahesh <[email protected]> wrote:
> as per the requirement all the character need to come individually. so
> this is the loop we can use for this.
>
> if i does not remove the space we will get blank characters also.
>
> --
> 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
>
--
Parke
Cell: 770-842-0121
--
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
