Смена мест в строке на обратный в пачке по 2 символа.

[VitAl2013]

Как красиво сделать функцию (или просто сделать) чтоб получиь такой эффект?
Было 12345678
Стало 78563412
Тоесть менять на обратный с шагом 2.

 

[Yashied]

$s1 = '12345678'
$s2 = ''

For $i = StringLen($s1) - 1 To 1 Step -2
	$s2 &= StringMid($s1, $i, 2)
Next

; Если символов нечетное количество
If Mod(StringLen($s1), 2) Then
	$s2 &= StringLeft($s1, 1)
EndIf

ConsoleWrite($s2 & @CR)

 

[Suppir]

Еще можно сделать рекурсивным регулярным выражением.