December 1, 2005 - WinTask - StrReverse

'

' StrReverse - Reverse a string

'

' Author: Joe Strazzere
'

Function StrReverse$(StrReverse1$)
    Local i
    Local work$
    i=Len(StrReverse1$)
    work$=""
    While i > 0
        work$=work$+Mid$(StrReverse1$,i,1)
        i=i-1
    Wend
    StrReverse$=work$
EndFunction

msgbox(StrReverse$("123"))