Friday, June 15, 2012

Reverse String without using any String function


Dim str1,regExpObj,x,result
Dim ArrString
str1="Neeraj"

Set regExpObj = new regexp
regExpObj.pattern="[a-z A-Z]"
regExpObj.global=true
set ArrString=regExpObj.execute(str1)
For each x in ArrString
result = x.value & result
Next
msgbox result

1 comment:

Anonymous said...

Thnx Neeraj

thnx for the help........