Скрипт обработки буфера обмена

@Kиpилл · Регистрация: 15.04.2011

Студворк — интернет-сервис помощи студентам

Привет.
В очередной раз решил придумать фишечку для ОС,для чего нужно составить небольшой скрипт.
Дабы сэкономить силы и время то обращаюсь сразу к спецу по скриптам)))

Задача:
Выделяю правой кнопкой мыши текст в файле,он помещается в буфер,далее ему назначаем переменную.
Переменную я передаю в обработку через глагол в реестре.
Пример:
выделяю слово "Ава" -получаю переменную %ава%,которая помещается в определенное место в команде.
Если выделяю два слова "ава попка" то создаются две переменные %ава% дополнительная запись в команду %попка%
И так далее по нарастающей.
Если выделяю файл или папку то в переменную попадает только имя файла или папки.
В буфер инфу можно направить в принципе командой copy.
Или еще как.
При этом нежелательно использовать нирсмд и прочее-хотелось бы обычной консолькой.

Сможем?))
Наметки скрипта как всегда не даю-криворуко выщло.

@Kиpилл · 14.07.2013, 16:21 **[ТС]**

Сообщение от FraidZZ

Bash
1
set search=%search: =%%20%

Это дает почему то обратный эффект:

Bash
1
PointBlank.lnk0

Добавлено через 3 минуты
А если поставлю дополнительно %
То получаю:

Code
1
длинасимволов%20%

Вместо

Code
1
длина символов

Добавлено через 4 минуты

Bash
1
set search=%search: =%%%20

Дописывает %20 в конце строки,тут по ходу for нужен.
Пытаюсь прикрутить.

Добавлено через 21 минуту
Циклические операции и примеры (команда FOR) * [Статья]
Пробую согласно этой теме,но даже родные примеры выдают ошибку.
???
Непредвиденное появление echo

Dragokas · 14.07.2013, 20:58

Сообщение от Koza Nozdri

Как в bat убрать все до крайнего слэша?

Bash
1
2
3
4
5
@echo off
set st=C:\Users\Fire\Desktop\Личный кабинет абонента.url
set "st="%st:\=" "%""
for %%a in (%st%) do set st=%%~a
echo %st%

Добавлено через 1 минуту

Сообщение от Koza Nozdri

но даже родные примеры выдают ошибку.

... а, мои примеры?

Добавлено через 19 минут
FraidZZ, так не получится. Приоритеты расположатся в таком порядке: set search=%search: =%%20%

Только через: DelayedExpansion

Bash
1
2
3
4
5
@echo off
SetLocal EnableExtensions EnableDelayedExpansion
set search=Личный кабинет абонента.url
set search=!search: =%%20!
echo %search%

@Kиpилл · 15.07.2013, 03:35 **[ТС]**

Dragokas, Отлично!

Наведу марафет-покажу все.
Спасибо!

@Kиpилл · 15.07.2013, 19:28 **[ТС]**

Эм...пытаюсь упаковать в bat вот такой код:

Bash
1
2
3
4
5
6
7
8
9
10
11
@echo off
SetLocal EnableExtensions EnableDelayedExpansion
 echo %USERPROFILE% >%~dp0KozaN.txt
 set /p search=< %~dp0KozaN.txt
 del /f %~dp0KozaN.txt 
 
   REG ADD "HKCR\AllFilesystemObjects\Shell" /f
   REG ADD "HKCR\AllFilesystemObjects\Shell\CopyAsPath" /f
   REG ADD "HKCR\AllFilesystemObjects\Shell\CopyAsPath"  /ve  /t REG_SZ /d "Найти в "Яндекс" " /f
   REG ADD "HKCR\AllFilesystemObjects\Shell\CopyAsPath\command" /f
   REG ADD HKCR\AllFilesystemObjects\Shell\CopyAsPath\command  /ve  /d "cmd /c \"echo %1 > %search%\KozaN.txt & %search%\KozaN.bat\" " /f

И получаю на последней строке фигу с текстом:

"C:\Users\Fire" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.

Получается я не могу записать в файл команду

Bash
1
echo > file.reg

Почему?

Добавлено через 7 минут
Вот так рег файл вообще не хочет применяться:
https://www.cyberforum.ru/post3615502.html

Добавлено через 3 минуты
Кстати

Сообщение от Dragokas

С буфера обмена прочитать значение штатными средствами никак.

если провести ввод-вывод с файла то можно.

Dragokas · 15.07.2013, 19:40

Кирилл, попробуй так:

Bash
1
REG ADD "HKCR\AllFilesystemObjects\Shell\CopyAsPath\command" /ve /d "cmd /c \"echo %%1 ^> %search%\KozaN.txt ^& %search%\KozaN.bat\" " /f

Сообщение от Koza Nozdri

если провести ввод-вывод с файла то можно.

это не понял.

Добавлено через 2 минуты
Там в конце перед кавычкой пробел не лишний?
И в строке № 9 тоже... не?

@Kиpилл · 15.07.2013, 19:42 **[ТС]**

Dragokas, отлично-почему я забыл про тему где ты указывал как правильно экранировать!
Единственное -вместо нормального имени на русском получаю:

Code
1
═рщЄш т ▀эфхъё

А должно быть:

Code
1
"Найти в "Яндекс"

Где то кажется ты писал про это?

Dragokas · 15.07.2013, 19:56

Сообщение от Koza Nozdri

Вот так рег файл вообще не хочет применяться: Статьи, тонкости языка, редкие команды и сложные скрипты*

Спасибо. Исправил код. В win7 требовались повышенные права. Теперь для HKCU уже не нужны.

Сообщение от Koza Nozdri

вместо нормального имени на русском получаю:
═рщЄш т ▀эфхъё

Но это ты такое уже получаешь, когда передаешь строку браузеру, так? В реестр ведь записывается правильно.
Дело в том что браузер должен принимать текст в виде Unicod-e, а не обычного WIN-1251.

Как мне воспроизвести проблему?

Сообщение от Koza Nozdri

Где то кажется ты писал про это?

Добавлено через 6 минут
Вот такой есть скрипт для перекодировки текста в URL: Генерация ссылки для поисковика по заданной фирме
Могу перевести в юзабельную функцию на VBS.

@Kиpилл · 15.07.2013, 20:02 **[ТС]**

Сообщение от Dragokas

Но это ты такое уже получаешь, когда передаешь строку браузеру, так? В реестр ведь записывается правильно.

Наоборот браузер воспринимает все идеально,лучше не бывает.
А вот в контексном меню кракозябры-оттого что и в реестр кракозябра попадает.
Насколько мне память не изменяет-бат пишется в ansi а реестр читает utf-8 отсюда и кракозябра (кстати можно в тему про баги добавить)

Сообщение от Dragokas

Как мне воспроизвести проблему?

Bash
1
2
3
4
5
6
7
8
9
10
11
@echo off
SetLocal EnableExtensions EnableDelayedExpansion
 echo %USERPROFILE% >%~dp0KozaN.txt
 set /p search=< %~dp0KozaN.txt
 del /f %~dp0KozaN.txt 
 
   REG ADD "HKCR\AllFilesystemObjects\Shell" /f
   REG ADD "HKCR\AllFilesystemObjects\Shell\CopyAsPath" /f
   REG ADD "HKCR\AllFilesystemObjects\Shell\CopyAsPath"  /ve  /t REG_SZ /d "Найти в "Яндекс"" /f
   REG ADD "HKCR\AllFilesystemObjects\Shell\CopyAsPath\command" /f
   REG ADD "HKCR\AllFilesystemObjects\Shell\CopyAsPath\command" /ve /d "cmd /c \"echo %%1 ^> %search%\KozaN.txt ^& %search%\KozaN.bat\"" /f

Примени и получишь проблему.

Вообще вся примочка в меню контексном работает,я сейчас пытаюсь собрать это все в один батник,который создаст и запишет все что надо.
Мож код просто выложить что бы вас не мучать?

Добавлено через 3 минуты

Сообщение от Dragokas

Вот такой есть скрипт для перекодировки текста в URL: Генерация ссылки для поисковика по заданной фирме
Могу перевести в юзабельную функцию на VBS.

интересно поглядеть,но я пошел менее сложным путем=данные в переменную,поисковую ссылку в переменную,смешивание,старт.
Работает.

Dragokas · 15.07.2013, 20:02

Да, чего же. Не мучаешь.
Я только что сохранил батник в кодировке 866 с этой строчкой:

Bash
1
REG ADD "HKCR\AllFilesystemObjects\Shell\CopyAsPath"  /ve  /t REG_SZ /d "Найти в "Яндекс"" /f

и у меня нормально показывает в контекстном меню. Проверь у себя кодировку.

@Kиpилл · 15.07.2013, 20:05 **[ТС]**

Dragokas, блин точно!
Dragokas, спасибо огромное за внимание,ты показал где ошибки-соберу в единый файл покажу.
еще раз спасибо)))

Dragokas · 15.07.2013, 20:05

Сообщение от Koza Nozdri

данные в переменную,поисковую ссылку в переменную,смешивание,старт.
Работает.

Ну раз работает - значит класс. А я вот такую тарабарщину еще нашел: Кодировка кирилицы и других символов в адресной строке браузера

@Kиpилл · 15.07.2013, 20:25 **[ТС]**

Dragokas, прикольная штука)))
Там не хватает %20 это символ пробела-без пробела запросники неточно обрабатывают.
Браузеры на самом деле могут понимать текст.

Dragokas · 15.07.2013, 20:28

Выкладывай: решим не на 20%, а на все 100

Кстати, можно на Batch переписать ту математику: перевод русского в Unicode, если это чем-то принципиально поможет.
Я, например, хочу иметь право выбора в каком браузере запускать поиск.
Я периодически использую почти все популярные на сег. день.

@Kиpилл · 16.07.2013, 04:42 **[ТС]**

Сообщение от Dragokas

решим не на 20%, а на все 100

%20 это знак пробела )))

Не правильно у меня что то при экранировании:

Bash
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
@echo off
SetLocal EnableExtensions EnableDelayedExpansion
 echo %USERPROFILE% >%~dp0KozaN.txt
 set /p live=< %~dp0KozaN.txt
 del /f %~dp0KozaN.txt 
  
   REG ADD "HKCR\AllFilesystemObjects\Shell" /f
   REG ADD "HKCR\AllFilesystemObjects\Shell\CopyAsPath" /f
   REG ADD "HKCR\AllFilesystemObjects\Shell\CopyAsPath"  /ve  /t REG_SZ /d "Найти в "Яндекс"" /f
   REG ADD "HKCR\AllFilesystemObjects\Shell\CopyAsPath\command" /f
   REG ADD "HKCR\AllFilesystemObjects\Shell\CopyAsPath\command" /ve /d "cmd /c \"echo %%1 ^> %live%\KozaN.txt ^& %live%\KozaN.bat\"" /f
    
    echo > %live%\KozaN.txt
    echo set /p search= ^< %search%\KozaN.txt^ > %live%\KozaN.bat
    echo echo.Wscript.Echo Mid(Wscript.Arguments(0), InStrRev(Wscript.Arguments(0), "\") + 1)^ >tmp.vbs^ >> %live%\KozaN.bat
    echo for /f "usebackq tokens=*" %%A IN (`cscript tmp.vbs "%search%" //nologo`) DO set search=%%A >> %live%\KozaN.bat
    erase tmp.vbs >> %live%\KozaN.bat
    set search=^!search: =%%20!^ >> %live%\KozaN.bat
    set koz=http://yandex.ru/yandsearch?text= >> %live%\KozaN.bat
    start %koz%+%search% >> %live%\KozaN.bat

Начиная с 13 строки получаю сообщения отказано в доступе.

@sov44 · 16.07.2013, 10:12

иии

Добавлено через 38 минут
Не понял код....
с 3 по 5 строку не проще написать set live=%USERPROFILE% ?
строка 13 - ошибку вывода в текстовый файл? Может быть после echo должна стоять точка?
строка 14 - переменная %search% не определена, как из неё считать?
покажите, как должен выглядеть KozaN.bat после работы скрипта.

@Kиpилл · 16.07.2013, 11:43 **[ТС]**

Сообщение от sov44

с 3 по 5 строку не проще написать set live=%USERPROFILE% ?

А че так можно?!

Мне нужно было получить путь к папке профиля пользователя из переменной в тексте...

Сообщение от sov44

покажите, как должен выглядеть KozaN.bat после работы скрипта.

Bash
1
2
3
4
5
6
7
8
9
10
11
12
13
@echo off
SetLocal EnableExtensions EnableDelayedExpansion
 
 echo set /p search= < %USERPROFILE%\KozaN.txt
   echo.Wscript.Echo Mid(Wscript.Arguments(0), InStrRev(Wscript.Arguments(0), "\") + 1)>tmp.vbs
    for /f "usebackq tokens=*" %%A IN (`cscript tmp.vbs "%search%" //nologo`) DO set search=%%A
      erase tmp.vbs   
 
    set search=!search: =%%20!
    set start=http://yandex.ru/yandsearch?text= 
    start %start%+%search%
 
exit

По памяти воспроизводил содержимое батника,но суть думаю видна.
В идеале что бы батник запускался скрыто.

@sov44 · 16.07.2013, 13:33

Bash
1
2
3
4
5
6
7
8
9
10
11
12
13
(echo @echo off
echo SetLocal EnableExtensions EnableDelayedExpansion
echo.
echo echo set /p search= ^< %%USERPROFILE%%\KozaN.txt
echo echo.Wscript.Echo Mid^(Wscript.Arguments^(0^), InStrRev^(Wscript.Arguments^(0^), "\"^) + 1^)^>tmp.vbs
echo for /f "usebackq tokens=*" %%%%A IN ^(`cscript tmp.vbs "%%search%%" //nologo`^) DO set search=%%%%A
echo erase tmp.vbs
echo.
echo set search=^!search: =%%%%20^!
echo set start=http://yandex.ru/yandsearch?text=
echo start %%start%%+%%search%%
echo.
echo. exit)>KozaN.bat

батник будет в 1251 кодировке.

Dragokas · 16.07.2013, 17:29

Koza Nozdri, я если честно вообще не понимаю, что должно происходить.
sov44 написал некую двойную распаковку скрипта.

А можно расписать алгоритм как в школе + с указанием конкретным примером путей к папкам?

P.S. Кирилл, это у тебя в 34-м посту нечто вроде установщика?
Ну тогда, давай писать проще.
Есть ведь вот такой вариант распаковки: Создание HTML-файла
Не нужно делать двойное экранирование = запутаемся.

Добавлено через 9 минут
Разобрался, что нужно сейчас напишу. В скрытом режиме - тогда нужно писать немного по-другому.

@Kиpилл · 16.07.2013, 17:47 **[ТС]**

Dragokas, то есть вот так будет работать?

Bash
1
2
3
4
5
6
7
8
9
10
11
12
13
14
::-bathCode-
@echo off
SetLocal EnableExtensions EnableDelayedExpansion
 
 echo set /p search= < %USERPROFILE%\KozaN.txt
   echo.Wscript.Echo Mid(Wscript.Arguments(0), InStrRev(Wscript.Arguments(0), "\") + 1)>tmp.vbs
    for /f "usebackq tokens=*" %%A IN (`cscript tmp.vbs "%search%" //nologo`) DO set search=%%A
      erase tmp.vbs   
 
    set search=!search: =%%20!
    set start=http://yandex.ru/yandsearch?text= 
    start %start%+%search%
 
exit

Добавлено через 35 секунд
Так что алгоритм надо выложить или нет?

Dragokas · 16.07.2013, 18:29

Koza Nozdri, как тебе такой? Нравится ?

Bash
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
@echo off
SetLocal EnableExtensions EnableDelayedExpansion
set live=%USERPROFILE%
 
REG ADD "HKCR\AllFilesystemObjects\Shell" /f 2>nul || call :EnablePrivileges
REG ADD "HKCR\AllFilesystemObjects\Shell\CopyAsPath" /f
REG ADD "HKCR\AllFilesystemObjects\Shell\CopyAsPath"  /ve  /t REG_SZ /d "Найти в "Яндекс"" /f
REG ADD "HKCR\AllFilesystemObjects\Shell\CopyAsPath\command" /f
REG ADD "HKCR\AllFilesystemObjects\Shell\CopyAsPath\command" /ve /d "wscript.exe //nologo \"%live%\KozaN.vbs\" \"%%1\"" /f
 
for /f "delims=[]" %%N in ('find /n ":UnpackVBS" ^<"%~f0"') do set /a num=%%N
more +%num% >"%live%\KozaN.vbs" <"%~f0"
 
del "%~dp0Elevating.vbs" 2>nul
pause
Exit
 
:EnablePrivileges
  echo Для установки надстройки требуются повышенные права.
  echo Для продолжения нажмите {ENTER}.
  pause >nul
  Echo CreateObject^("Shell.Application"^).ShellExecute WScript.Arguments^(0^),"1","","runas",1 >"%~dp0Elevating.vbs"
  cscript.exe //nologo "%~dp0Elevating.vbs" "%~dpnx0"
Exit
 
:UnpackVBS
  On Error Resume Next
  if WScript.Arguments.Count = 0 then WScript.Quit
  Arg = WScript.Arguments(0)
  Arg = Mid(Arg, InStrRev(Arg, "\") + 1)
  Arg = Replace(Arg, " ", "%20")
  CreateObject("WScript.Shell").Run "explorer ""http://yandex.ru/yandsearch?text=" & Arg & """"

Добавлено через 3 минуты
Дело в том, что CMD /C прямо из реестра - не вариант. Его тоже понадобилось бы запускать скрыто.
Единственный изначальный "движок-невидимка" - это GUI-шный WScript.

Новые блоги и статьи Все статьи Все блоги /
Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .

@Kиpилл Особый статус 8429 / 1708 / 87 Регистрация: 15.04.2011 Сообщений: 5,520

	Скрипт обработки буфера обмена 26.04.2013, 20:16. Показов 16668. Ответов 41 Метки нет (Все метки) Привет. В очередной раз решил придумать фишечку для ОС,для чего нужно составить небольшой скрипт. Дабы сэкономить силы и время то обращаюсь сразу к спецу по скриптам))) Задача: Выделяю правой кнопкой мыши текст в файле,он помещается в буфер,далее ему назначаем переменную. Переменную я передаю в обработку через глагол в реестре. Пример: выделяю слово "Ава" -получаю переменную %ава%,которая помещается в определенное место в команде. Если выделяю два слова "ава попка" то создаются две переменные %ава% дополнительная запись в команду %попка% И так далее по нарастающей. Если выделяю файл или папку то в переменную попадает только имя файла или папки. В буфер инфу можно направить в принципе командой copy. Или еще как. При этом нежелательно использовать нирсмд и прочее-хотелось бы обычной консолькой. Сможем?)) Наметки скрипта как всегда не даю-криворуко выщло. 0

@Kиpилл Особый статус 8429 / 1708 / 87 Регистрация: 15.04.2011 Сообщений: 5,520
	15.07.2013, 03:35 [ТС]
	Dragokas, Отлично! Наведу марафет-покажу все. Спасибо! 1

@Kиpилл Особый статус 8429 / 1708 / 87 Регистрация: 15.04.2011 Сообщений: 5,520
	15.07.2013, 20:05 [ТС]
	Dragokas, блин точно! Dragokas, спасибо огромное за внимание,ты показал где ошибки-соберу в единый файл покажу. еще раз спасибо))) 0

@Kиpилл Особый статус 8429 / 1708 / 87 Регистрация: 15.04.2011 Сообщений: 5,520
	15.07.2013, 20:25 [ТС]
	Dragokas, прикольная штука))) Там не хватает %20 это символ пробела-без пробела запросники неточно обрабатывают. Браузеры на самом деле могут понимать текст. 0

Dragokas 18035 / 7738 / 892 Регистрация: 25.12.2011 Сообщений: 11,502 Записей в блоге: 16
	15.07.2013, 20:28
	Выкладывай: решим не на 20%, а на все 100 Кстати, можно на Batch переписать ту математику: перевод русского в Unicode, если это чем-то принципиально поможет. Я, например, хочу иметь право выбора в каком браузере запускать поиск. Я периодически использую почти все популярные на сег. день. 0

@sov44 1783 / 765 / 130 Регистрация: 09.04.2011 Сообщений: 1,330
	16.07.2013, 10:12
	иии Добавлено через 38 минут Не понял код.... с 3 по 5 строку не проще написать set live=%USERPROFILE% ? строка 13 - ошибку вывода в текстовый файл? Может быть после echo должна стоять точка? строка 14 - переменная %search% не определена, как из неё считать? покажите, как должен выглядеть KozaN.bat после работы скрипта. 1

Dragokas 18035 / 7738 / 892 Регистрация: 25.12.2011 Сообщений: 11,502 Записей в блоге: 16
	16.07.2013, 17:29
	Koza Nozdri, я если честно вообще не понимаю, что должно происходить. sov44 написал некую двойную распаковку скрипта. А можно расписать алгоритм как в школе + с указанием конкретным примером путей к папкам? P.S. Кирилл, это у тебя в 34-м посту нечто вроде установщика? Ну тогда, давай писать проще. Есть ведь вот такой вариант распаковки: Создание HTML-файла Не нужно делать двойное экранирование = запутаемся. Добавлено через 9 минут Разобрался, что нужно сейчас напишу. В скрытом режиме - тогда нужно писать немного по-другому. 0