reverse text ?

[golfinhu]

hi guys, I needed a function to reverse a string, I got to do this until it works:

Func _Revert_text($text)
    Local $count = StringLen($text)
    If $count = 0 Then Return
    Local $a = 0
    Local $newstring = ""

    For $i = $count To 1 Step -1
        Local $letter = StringMid($text, $count - $a, 1)
        $newstring = $newstring & $letter
        $a += 1
    Next

    Return $newstring
EndFunc   ;==>_Revert_text

But I think it was poorly done, is there another way to do?

thanks

[Realm]

How about

_StringReverse($text)

Edit: Change the parameter to suit your need

Edited September 21, 2010 by Realm

[golfinhu]

oh, did not know this function!

thanks!

[Realm]

My pleasure, I had the time

[smashly]

Hi,

I know it's already been solved, but the op was so close to reinventing the wheel.

ConsoleWrite(_Revert_text("Reverse this string") & @LF)

Func _Revert_text($text)
    Local $aSS = StringSplit($text, ""), $sTmp
    For $i = $aSS[0] To 1 Step -1
        $sTmp &= $aSS[$i]
    Next
    Return $sTmp
EndFunc   ;==>_Revert_text

[golfinhu]

ty ppl