[Данные, строки] Поменять две подстроки местами

$String = "xxxxxxyyyzzzxxxxxx"
$Matches = StringRegExp($String, "(x*)(y+)(z+)(x*)", 1)
If @error = 0 Then
	MsgBox(0, "", $Matches [0] & $Matches [2] & $Matches [1] & $Matches [3])
EndIf

; НАЧАЛО

 $TEXT="|ABC|123|456|789|ABC|123|"
 $SSTR="789"

 ; Зная подстроку "789" надо поменять ее местами с предыдущим элементом,
 ; отделенным символом "|"
 ; подстрока "456" не известна...

; КОНЕЦ

$TEXT="|ABC|123|456|789|ABC|123|"
$SSTR="789"

$Matches = StringRegExp($TEXT, "(.+)\|(.+?)\|(" & $SSTR & ")\|(.+)", 1)
If @error = 0 Then
	MsgBox (0, "", $Matches[0] & "|" & $Matches[2] & "|" & $Matches[1] & "|" & $Matches[3])
EndIf

$a='|ABC|123|456|789|ABC|123|'
$b='789'
$sPattern='^(.*\|)(.*\|)(' & $b & '\|)(.*)$'
$sRez= StringRegExpReplace($a,$sPattern, '\1\3\2\4')
ConsoleWrite($sRez &@CRLF)

$a='|ABC|123|456|789|ABC|123|'
$b='789'
$sPattern='^(.*\|)(.*\|)(' & $b & '\|)(.*\|)(.*\|)$'
$sRez= StringRegExpReplace($a,$sPattern, '\1\2\4\3\5')
ConsoleWrite($sRez &@CRLF)

$a='|ABC|123|456|789|ABC|XYZ|'
$b='XYZ'
$sPattern='^(.*\|)(.*\|)('& $b &'\|)(.*)?$'
; $sRez= StringRegExpReplace($a,$sPattern, '\1\3\2')
$sRez= StringRegExpReplace($a,$sPattern, '\1\3\2\4')
ConsoleWrite($sRez &@CRLF)

$a='|XYZ|ABC|123|456|789|ABC|'
$b='XYZ'
$sPattern='^(' & $b & '\|)(.*\|)(.*)$'
$sRez= StringRegExpReplace($a,$sPattern, '\2\1\3')
ConsoleWrite($sRez &@CRLF)

$TEXT="|Мороз и солнце день чудесный|Еще ты дремлешь друг прелестный|Вставай красавица проснись|Открой сомкнутый негой взоры|На встречу северной Авроры|Звездою севера вернись|"
$SSTR="На встречу северной Авроры"