sorting in  asc order

str="12789567899012"
for intx=1 to len(str)
Redim preserve strarr(intx)
strarr(intx)= Mid(str,intx,1)
next
For intx=Ubound(strarr)-1 to Lbound(strarr) step-1
for jntx=Lbound(strarr) to intx
If strarr(jntx) > strarr(jntx+1) then
temp=strarr(jntx+1)
strarr(jntx+1)=strarr(jntx)
strarr(jntx)=temp
End IF
next
Next

msgbox Join(strarr)


On Wed, Jun 26, 2013 at 11:32 AM, shilpa gupta <[email protected]>wrote:

> Hi friends
>
> I want to arrange below values in ascending and descing orders, pls tell
> me how we can do it in vb scriptting
> 1. 12789567899012
>
> and
> 2. abCBAhga
>
> etc
>
> --
> --
> 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.


Reply via email to