InStr(Haystack, Needle [, CaseSensitive?, StartingPos]): возвращает позицию первого вхождения строки Needle в строку Haystack. В отличие от команды StringGetPos, позиция 1 является первым символом, так как 0 - синоним "false" и является интуитивным индикатором "не найдено". Если параметр CaseSensitive опущен или ложен, поиск не чувствителен к регистру; иначе, регистр должен точно совпадать. Если параметр StartingPos опущен, то по умолчанию он равен 1 (начало строки Haystack). Иначе, задайте 2, чтобы начать со второго символа строки Haystack, 3 - с третьего, и т.д. Если параметр StartingPos больше, чем количество символов Haystack, возвращается 0. Если StartingPos равен 0, поиск проводится в обратном порядке (справа налево), с тем, чтобы найти соответствие, находящееся правее остальных. Вне зависимости от значения параметра StartingPos, возвращаемая позиция всегда соотносится с первым символом Haystack. Например, позиция строки "abc" в строке "123abc789" всегда 4. Похожие команды: IfInString и StringGetPos.

В данном случае начальная позиция "-1", т.е. поиск должен идти справа налево, начиная с предпоследнего символа.

serzh82saratov пишет:

Оно манипулирует 1w. А как указать к примеру 2w по имени?

Неа. LastSep := InStr(List, "|", true, -1) получает позицию разделителя между 3w и 4w. Далее часть строки правее этого разделителя помещается в начало, а часть левее и сам разделитель в конец.

Теперь совсем туго. Непонятно "кто и как его просит" получать позицию разделителя именно между 3w и 4w.

Оно манипулирует 1w. А как указать к примеру 2w по имени?

Неа. LastSep := InStr(List, "|", true, -1) получает позицию разделителя между 3w и 4w. Далее часть строки правее этого разделителя помещается в начало, а часть левее и сам разделитель в конец.

Если только на одну позицию, то вообще не вижу проблемы:

List := "1w|2w|3w|4w|"
1::
LastSep := InStr(List, "|", true, -1)
List := SubStr(List, LastSep+1, StrLen(List)-LastSep) SubStr(List, 1, LastSep)
msgbox % List
return
Esc::ExitApp

В принципе по аналогии можно и для любого сдвига сделать, вариант с mod предполагал, что парсить строку не придётся.

Красиво. И всё красивое как всегда мне непонятно(
Оно манипулирует 1w. А как указать к примеру 2w по имени?

Если для конкретного случая

А ну это конечно просто пример был
Не настолько конкретно.

2::  ; Вниз
If Var = 1|2|3|4|
   Var = 2|1|3|4|
If Var = 2|1|3|4|
   Var = 2|3|1|4|

и так далее.
Если универсальный, я бы использовал RegEx, но Вы уже применили его.

List := "1w|2w|3w|4w|"
1::
LastSep := InStr(List, "|", true, -1)
List := SubStr(List, LastSep+1, StrLen(List)-LastSep) SubStr(List, 1, LastSep)
msgbox % List
return
Esc::ExitApp

В принципе по аналогии можно и для любого сдвига сделать, вариант с mod предполагал, что парсить строку не придётся.

Ибо не факт что универсальный - я смогу оптимизировать под данный случай(
Или тот что для данного конкретного случая - оптимизировать потом под что то другое(

Раз уж приходится выбирать, подскажите универсальный)

Вообще поясните, что за "Вниз" - вниз на одну позицию или в низ списка?

вниз на одну позицию.

Хочется "сообразить" две кнопки Вверх и Вниз. Например если выбрана 1 и один раз нажать кнопку Вниз, то на выходе хочется иметь:
Var = 2|1|3|4|
а если нажать кнопку Вниз (при изначальном значении Var), то хочется иметь:
Var = 2|3|4|1|

Не понимаю. Может, во втором случае нажимается кнопка Вверх? Вообще поясните, что за "Вниз" - вниз на одну позицию или в низ списка?

Да, именно Вверх, извиняюсь за ошибку, поправил.

Хочется "сообразить" две кнопки Вверх и Вниз. Например если выбрана 1 и один раз нажать кнопку Вниз, то на выходе хочется иметь:
Var = 2|1|3|4|
а если нажать кнопку Вниз (при изначальном значении Var), то хочется иметь:
Var = 2|3|4|1|

Не понимаю. Может, во втором случае нажимается кнопка Вверх? Вообще поясните, что за "Вниз" - вниз на одну позицию или в низ списка?

Var = 1w|2w|3w|4w|
Select = 2w

1::  ; Вниз
Loop, Parse, Var, |
{
if A_LoopField = %Select%
{
Next := (A_Index+1)
Loop, Parse, Var, |
if A_Index = %Next%
{
Next = %A_LoopField%
break
}
}
}
if Next =
{
StringReplace, Var, Var, %Select%|
Var = %Select%|%Var%
MsgBox %Var%
Return
} Else
Var := RegExReplace(Var, "" Select "\|" Next "\|", "" Next "|" Select "|")
MsgBox %Var%
Return

2::  ; Вверх
Loop, Parse, Var, |
{
if A_LoopField = %Select%
{
Next := (A_Index-1)
Loop, Parse, Var, |
if A_Index = %Next%
{
Next = %A_LoopField%
break
}
}
}
if Next = 0
{
StringReplace, Var, Var, %Select%|
Var = %Var%%Select%|
MsgBox %Var%
Return
} Else
Var := RegExReplace(Var, "" Next "\|" Select "\|", "" Select "|" Next "|")
MsgBox %Var%
Return

если у кого то будет идея, хотелось бы увидеть более "симпатяшное" решение.