求助字窜颠倒

zhao_ming

一组     32 43 54 65 76 87 8 该组数长度未知
想要结果 23 34 45 56 67 78 8

如果后一次数为单数则不换

12 13 14 15 16 17 18 1

21 31 41 51 61 71 81 1

不确认这组数长组，想要的结果  两个字符拆分 再颠倒
如这组数是13位， 最后一次，就不变

lynfr8

如此？

Dim $a = ''
$text = '32 43 54 65 76 87 8 32 43 54 65 76 87 8 32 43 54 65 76 87 8 32 43 54 65 76 87 8'
$array = StringSplit($text, ' ', 1)
for $i = 1 to UBound($array) - 1
 $a &= StringMid($array[$i], 2, 1)&StringMid($array[$i], 1, 1)&" "
Next
msgbox(0, 0, $a)

zhao_ming

谢谢楼上，给的帮助。请问该组数如果， 没有空格 3243546576878 StringSplit没分隔符 不能拆

afan

或者这样（不管是否有空格间隔都行）

$Str = '32 43 54 65 76 87 8'
Msgbox(0, $Str, StringRegExpReplace($str, '(\d)(\d)', '$2$1'))

zhao_ming

谢谢已得到解决

lpxx

回复 4# afan

给不熟悉正则的同学解释一下AFAN大概的意思：
/d  表示匹配数字
$1和$2等分别表示第几个括号内的。
所以：$2$1就表示把匹配到的结果颠倒过来。
小代码，大智慧。