+ открыть спойлер
Хотя я уже нашел баг, кому интересно, могут найти и исправить. 
SendInput {Right}{Left}^+{Right}^{Ins}^{Left}{Right %Pos%}заменить на
SendInput {Right}^{Left}^+{Right}^{Ins}{Left}{Right}^{Left}{Right %Pos%}Так работает и в AkelPad и в PLSqlDeveloper
А вообще для полного счастья и универсализма хотелось бы задействовать эти функции на клавиши Ctrl+C и Ctrl+V. Но, чтоб так можно было сделать нужна функция определения находится ли каретка в середине слова CheckInWord например. Может на границе слова(тогда и однобуквенные слова можно было бы менять). Но я бы сделал только внутри слова, чтоб при копировании строк и вставке перед первым символом в первой позиции строки вставка происходила бы без замены. И если не внутри слова - передовались бы дальше Ctrl+C или Ctrl+V. Но в ней есть проблема, которую я сразу не решил: как определить, что при ^{Left} каретка (надо для определения символа слева) не перескочит на предыдущую строку (AkelPad) или не останетcя на текущей (PlSqlDeveloper). Надо в набор символов Stop включить символы конца строки, а я еще не знаю как. Может Irbis поможет.
]]>F12 копирует слово в буфер, более длительное нажатие вставляет из буфера вместо слова в позиции курсора.
В SciTe не работает.
]]>Global Stop
Stop = [\'\"\/\\\?\!\,\.\(\)\<\>\:\;\&%A_Space%].* ; "
F12::
KeyWait, F12, T0.25
if ErrorLevel
{
KeyWait, F12
Paste()
}
Else
Copy()
Return
Copy()
{
Clipboard =
SendInput ^{Ins}
ClipWait, 0.2
if !ErrorLevel
Return
SendInput ^+{Left}^{Ins}
ClipWait, 0.2
Pos := StrLen(Clipboard)
Clipboard =
SendInput {Right}{Left}^+{Right}^{Ins}^{Left}{Right %Pos%}
ClipWait, 0.2
Clipboard := RegExReplace(Clipboard, Stop)
}
paste()
{
Text := Clipboard
Clipboard =
SendInput ^{Left}^+{Right}^{Ins}
ClipWait, 0.2
Pos := StrLen(Clipboard)-StrLen(RegExReplace(Clipboard, Stop))
SendInput +{Left %Pos%}%Text%
Clipboard := Text
}Делал аналогичный скрипт, но не удалось заставить хорошо работать, если курсор стоит вначале слова. Скрипт смотрел,что попало в буфер, и если это был пробел/перенос соответственно реагировал. Работало это долго и ненадежно(задержки попадания в буфер).
Обнаружил, что в Notepad++ в плагине TextFX есть функция Mark Word or Find Reverse.
Повесил на хоткей. Можно макросом объеденить с Copy/Paste.
Как для других редакторов не знаю, но вещь нужная.
Хотя я уже нашел баг, кому интересно, могут найти и исправить.
Stop = [\'\"\/\\\?\!\,\.\<\>\:\;\&%A_Space%].*
F12::
KeyWait, F12, T0.25
if ErrorLevel { ; paste
KeyWait, F12
Text := Clipboard
Clipboard =
SendInput ^{Left}^+{Right}^{Ins}
ClipWait, 0.2
Pos := StrLen(Clipboard)-StrLen(RegExReplace(Clipboard, Stop))
SendInput +{Left %Pos%}%Text%
Clipboard := Text
}
Else { ; copy
Clipboard =
SendInput ^+{Left}^{Ins}
ClipWait, 0.2
Pos := StrLen(Clipboard)
Clipboard =
SendInput {Right}{Left}^+{Right}^{Ins}^{Left}{Right %Pos%}
ClipWait, 0.2
Clipboard := RegExReplace(Clipboard, Stop)
}
Returnпозиция редактирования убегает
Как это?
]]>