Function rev(str)
Set regEx = new REgExp
regEx.Pattern = "\w+"
regEx.IgnoreCase = True
regEx.Global = true
Set str2 = regEx.Execute(str)
For each str1 in str2
res = str1.value & res
Next
rev = res
End Function
msgbox rev("this is test")
On Mon, Oct 28, 2013 at 4:01 PM, uma mahesh <[email protected]> wrote:
> Please see below code.
>
>
> '''
>
>
> str="character/share/bangalore/chennai/trap"
>
> arr=split(str, "/")
> ActOpt=""
> for i=0 to ubound(arr)
>
> tempstring=arr(i)
> j=""
> strin=""
> for j=1 to len(tempstring)
>
> vartemp=mid(tempstring, j, 1)
> strin=vartemp + strin
> Next
> ActOpt=ActOpt & "/" & strin
> Next
>
> msgbox ActOpt
>
> ''''''
>
>
> Regards
> Uma Mahesh
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> On Mon, Oct 28, 2013 at 3:21 PM, Venkat Kandula <[email protected]
> > wrote:
>
>> Hi Friends,
>>
>> How to print the each word of string in Reverse order using vb scripting.
>>
>> str="character/share/bangalore/chennai/trap"
>>
>> Thanks,
>> Venkat
>>
>> --
>> --
>> 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.
>
--
--
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.
