PP Script: Snoop (вам это нужно!)

[Ergo]

Скрипт для Windows PowerPro 3.6.04 и выше. Будет работать и с более ранними версиями, при условии, если вы поменяете clip.copy на Clip Copy, а clip.paste на Clip Paste
Snoop - этот скрипт может осуществлять следующие преобразования над выделенным текстом, указано в виде команда для вызова - пример преобразования
.snoop("to_lower") - ТЕКСТ -> текст
.snoop("to_upper") - текст -> ТЕКСТ
.snoop("e2r") - qwerty -> йцукен
.snoop("r2e") - йцукен -> qwerty
.snoop("r2e") - йцукен -> qwerty
.snoop("to_russian") - translit -> транслит
.snoop("to_english") - транслит -> translit
.snoop("reverse") - во как он умеет -> теему но как ов
.snoop("to_unicode") - текст -> 0442 0435 043A 0441 0442 (то бишь Юникод, зачем это нужно, пока не знаю <!--emo&:)--><!--endemo--> )
для нормального функционирования данный скрипт должен быть сохранен как snoop.txt в папке Scripts, а в папке Plugins у вас должен быть плагин, который называется PPGeorgy.dll. Если такого плагина у вас нет, то вы можете скачать его в пакете с самим скриптом здесь: <a href='http://fileforum.ru/files/snoop.zip' target='_blank'>http://fileforum.ru/files/snoop.zip</a>

Поскольку, мне часто приходится делать в Total Commander такие штучки как, например преобразование имени файла в нижний регистр, то в данном скрипте я так же реализовал функцию всех этих преобразований над файлом под курсором в Total Commander.

Код: выделить все

; (c) Andrey Pyasetskiy aka Ergo mailto:webmaster@wincmd.ru
; инструкцию по использованию читайте в readme_snoop.txt

if (activewindow "Total Commander *") Do

Keys {f2}

subhandle = ".snoop@process('"" ++ arg(1) ++ "'")"

eval(subhandle)

Keys {Enter}

Quit

Endif

@process

.clip_save

clip.clear

clip.copy

handle = "ppgeorgy.clpbrd_" ++ arg(1)

eval(handle)

clip.paste

.clip_restore
; c:psoundsend.wav
; Можно проигрывать звук :) Введите путь к звуковому файлу, и раскоментируйте

[dAnIK SeNT]

В общем то большую часть этого делает Punto Switcher. Там нету лишь reverse и to_unicode. Не вижу смысла в дополнительном скрипте.

[Reuben]

<!--QuoteBegin--></span><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>QUOTE </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->В общем то большую часть этого делает Punto Switcher. Там нету лишь reverse и to_unicode. Не вижу смысла в дополнительном скрипте.<!--QuoteEnd--></td></tr></table><span class='postcolor'><!--QuoteEEnd-->
Так ведь же все лишние утилиты - в помойку! <!--emo&;)--><!--endemo--> <!--emo&;)--><!--endemo--> <!--emo&:)--><!--endemo-->

[Ergo]

<!--QuoteBegin--></span><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>QUOTE </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->В общем то большую часть этого делает Punto Switcher.<!--QuoteEnd--></td></tr></table><span class='postcolor'><!--QuoteEEnd-->
Кстати, мне не нравится как он это делает. Дважды захламляя буфер обмена <!--emo&:)--><!--endemo--> у меня еще при этом звук копирования раздается. Жуть в общем. Сейчас еще подумаю, и может сделаю автоматическое определение регистра и раскладки и соответствующую смену, и кстати слово "Слово" он сделает не "слово", а "сЛОВО", что мне не нужно совершенно. К тому же:
<!--QuoteBegin--></span><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>QUOTE </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->Так ведь же все лишние утилиты - в помойку!<!--QuoteEnd--></td></tr></table><span class='postcolor'><!--QuoteEEnd-->
Правда пунто у меня все равно висит в памяти <!--emo&:)--><!--endemo-->

[dAnIK SeNT]

<!--QuoteBegin--></span><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>QUOTE </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->Кстати, мне не нравится как он это делает<!--QuoteEnd--></td></tr></table><span class='postcolor'><!--QuoteEEnd-->
А у тебя какая версия? <!--emo&:)--><!--endemo-->
У меня 2.60.
Буфер не захламляет.
Звук отключается в настройках.
<!--QuoteBegin--></span><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>QUOTE </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->"Слово" он сделает не "слово", а "сЛОВО"<!--QuoteEnd--></td></tr></table><span class='postcolor'><!--QuoteEEnd-->
Это по стандартной клавише. Зайди в меню hotkeys... Там и это по-моему есть.
<!--QuoteBegin--></span><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>QUOTE </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->может сделаю автоматическое определение регистра и раскладки <!--QuoteEnd--></td></tr></table><span class='postcolor'><!--QuoteEEnd-->
ну-ну <!--emo&:)--><!--endemo-->
<!--QuoteBegin--></span><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>QUOTE </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->Так ведь же все лишние утилиты - в помойку!<!--QuoteEnd--></td></tr></table><span class='postcolor'><!--QuoteEEnd-->
на это:
<!--QuoteBegin--></span><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>QUOTE </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->Правда пунто у меня все равно висит в памяти <!--emo&:)--><!--endemo--><!--QuoteEnd--></td></tr></table><span class='postcolor'><!--QuoteEEnd-->

[XLSoft]

2dAnIK SeNT
<!--QuoteBegin--></span><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>QUOTE </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->Это по стандартной клавише. Зайди в меню hotkeys... Там и это по-моему есть.<!--QuoteEnd--></td></tr></table><span class='postcolor'><!--QuoteEEnd-->
Странно, но Пунто действительно только инвертирует регистр.

[Ergo]

2dAnIK SeNT
<!--QuoteBegin--></span><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>QUOTE </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->А у тебя какая версия?  
У меня 2.60.  
Буфер не захламляет.<!--QuoteEnd--></td></tr></table><span class='postcolor'><!--QuoteEEnd-->
2.61 в истории буфера обмена остаются ntrcn и его вариация - текст.

<!--QuoteBegin--></span><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>QUOTE </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->Звук отключается в настройках. <!--QuoteEnd--></td></tr></table><span class='postcolor'><!--QuoteEEnd-->
Звук у меня включен, когда происходит копирование в буфер обмена, а не в Punto, следовательно наверное я же не зря его включил. Мне так удобнее отслеживать работу с буфером обмена и работу скриптов.

<!--QuoteBegin--></span><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>QUOTE </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->Это по стандартной клавише. Зайди в меню hotkeys... Там и это по-моему есть.<!--QuoteEnd--></td></tr></table><span class='postcolor'><!--QuoteEEnd-->
Абламинго...

<!--QuoteBegin--></span><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>QUOTE </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->ну-ну <!--QuoteEnd--></td></tr></table><span class='postcolor'><!--QuoteEEnd-->
В принципе главное как анализировать. Можно например сделать:

if (index("абвгдежзиклмнопрстуфхцчшщэюя",select(clip,i,i)) == 0)
Поочередно пройтись по первым десяти символам буфера обмена, и на основе сделанной оценки применить соответственно либо e2r либо r2e
<span style='color:green'><span style='font-size:16pt;line-height:100%'>Winamp np:Leftfield - Original</span></span>

[dAnIK SeNT]

2Ergo
По-моему игра не стоит свеч <!--emo&:(--><!--endemo--> Криво это будет работать.
Слишком много надо сочетаний учитывать...
Если бы ps.dat расшифровать <!--emo&:)--><!--endemo-->
И то - представляешь, ведь проверять то это будет 1 раз в секунду...

<span style='color:darkblue'><span style='font-size:16pt;line-height:100%'>Now Playing: My favourite game - The Cardigans [] [Stopped]
I have had running my PC for 07:47:59</span></span>