View previous topic :: View next topic |
Author |
Message |
Dimsok
Joined: 17 Aug 2014 Posts: 663
|
(Separately) Posted: Fri Sep 04, 2015 21:00 Post subject: |
|
|
Кому-то привычка пить чай, не дожидаясь, пока растворится сахар, покажется плохой, но она не мешает мне жить, а кому то и вовсе была бы полезной. |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Fri Sep 04, 2015 21:04 Post subject: |
|
|
Мне, если честно, всё равно, кто чем в конечном счёте будет пользоваться, мой спич был о другом (о темах и вопросах, оставшихся без ответов не по причине их незнания). _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
Lisabon
Joined: 18 Feb 2011 Posts: 147
|
(Separately) Posted: Wed May 11, 2016 20:15 Post subject: |
|
|
Есть скрипт.
Кто-нибудь может доработать скрипт? Чтобы, если в буфере юникод, то создаёт файл в кодировке юникод, а если символов юникод нет, то создаёт файл в кодировке ANSI. |
|
Back to top |
|
|
Avada
Joined: 01 Aug 2008 Posts: 10280 Location: Россия, Саратов
|
(Separately) Posted: Wed May 11, 2016 21:17 Post subject: |
|
|
Lisabon
Памятка по скриптам написана и прикреплена для того, чтобы её читали.
Во-первых, скрипты оформляются кодами, а не цитатами.
Во-вторых, если скрипт с нашего форума, его вообще не следует дублировать, достаточно ссылки.
Цитата в предыдущем посте заменена ссылкой. _________________ Даже самая богатая фантазия
Не представит себе наши безобразия. |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Thu May 12, 2016 03:39 Post subject: |
|
|
Lisabon
Правил как-то у себя этот скрипт, вот как выглядит:
Code: | '======================================================================================
' Назначение: cоздание в активной панели файла с текстом из буфера обмена (при наличии)
' Условие: пустой путь запуска
' Параметр: <имя файла>
'======================================================================================
Set FSO = CreateObject("Scripting.FileSystemObject")
Dim WSH : Set WSH = CreateObject("WScript.Shell")
R = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\1407"
On Error Resume Next
A = WSH.RegRead(R) : If A > 0 Or Err.Number <> 0 Then WSH.RegWrite R, 0, "REG_DWORD"
Clip = CreateObject("htmlfile").ParentWindow.ClipboardData.GetData("text")
If A > 0 Then WSH.RegWrite R, A, "REG_DWORD"
On Error Goto 0
If IsNull(Clip) Or Trim(Clip) = "" Then WSCript.Quit
With New Regexp
.Pattern = "[^ !-‚-›‘’–—\u0080-\u00FF\u0400-\u04FF\u20A0-\u20CF\u2100-\u214F\w]"
.Global = True : If .Test(Clip) Then Enc = True Else Enc = False
End With : Name = WScript.Arguments(0) : Ext = FSO.GetExtensionName(Name)
F = WSH.CurrentDirectory & "\" & FSO.GetBaseName(Name) : FN = F & "." & Ext
While FSO.FileExists(FN) Or FSO.FolderExists(FN)
i = i + 1 : FN = F & " (" & i & ")" & "." & Ext
Wend : FSO.CreateTextFile(FN,,Enc).Write Clip
WSH.Exec "%COMMANDER_EXE% /A /O /S /L=""" & FN & """" |
_________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
Mailk
Joined: 16 Jan 2010 Posts: 251
|
(Separately) Posted: Thu Jun 02, 2016 01:39 Post subject: |
|
|
Flasher
Ошибка у меня " Индекс выходит за пределы допустимого диапазона"
Код 800А0009 |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Thu Jun 02, 2016 02:49 Post subject: |
|
|
Памятка в помощь. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
Decor
Joined: 22 Apr 2017 Posts: 19
|
(Separately) Posted: Tue Feb 19, 2019 11:34 Post subject: |
|
|
Прошу у вас помощи по батнику в шапке...
Мне необходима эта функция, но до конца не разобрался.
Что я сделал:
1. Поместил nircmd и bat в папку коммандера.
2. В батнике прописал путь до nir - set nircmd=%COMMANDER_PATH%\nircmd.exe
3. В usercmd.ini создал пользовательскую команду:
[em_usercmd1]
cmd=%COMMANDER_PATH%\nir.bat
param="?%O"
menu=Вставка из буфера
4. В панели инструментов присвоил иконку для запуска em_usercmd1
Всё...
В результате, если изображение есть в буфере, по нажатию иконки оно не вставляется в текущую папку. Да и вообще никуда не вставляется. Лишь Тотал вываливает окошко "Введите параметр командной строки".
Но.., если запустить батник напрямую, то картинка создаётся в виде файла без расширения в папке, где находится сам батник. То есть сам-то батник работает исправно, но как сделать это для любой другой папки я разобраться не смог.
Что я сделал не так?
Как это можно исправить?
Может кто подскажет... |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Tue Feb 19, 2019 13:27 Post subject: |
|
|
Decor
1. См. п. 7 памятки подфорума.
2. %nircmd% лучше всюду взять в кавычки.
Точку и расширение нужно самому прописывать:
Quote: | Формат изображения определяется nircmd по расширению | Только в конец 9-й строки почему-то автор не прописал их как умолчание для имени с датой. То же самое можно сделать для параметра, дописав их после %O. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
Decor
Joined: 22 Apr 2017 Posts: 19
|
(Separately) Posted: Tue Feb 19, 2019 14:31 Post subject: |
|
|
Насколько вижу, везде %nircmd%
п. 7 прочитал про путь.
Всё равно не пашет...
Ну что ж.., как есть... |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Tue Feb 19, 2019 14:43 Post subject: |
|
|
"вижу", "прочитал" = "не пашет".
"исправил", "очистил" = "запахало". _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
Decor
Joined: 22 Apr 2017 Posts: 19
|
(Separately) Posted: Tue Feb 19, 2019 18:35 Post subject: |
|
|
Это предложение действий? |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Tue Feb 19, 2019 18:59 Post subject: |
|
|
А что ж ещё? _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
Decor
Joined: 22 Apr 2017 Posts: 19
|
(Separately) Posted: Wed Feb 20, 2019 14:25 Post subject: |
|
|
Ну ясно...
Если ломается двигатель в машине, то ради единственно ремонта,
я не буду глубоко изучать двигатель и подробности его ремонта,
а просто сдам в мастерскую, потому как необходимых знаний
для этого у меня недостаточно... В крайнем случае, спрошу совета
у знающих людей.
До конца довести этот батник я не смогу...
Не получается у меня, не хватает знаний в этой теме,
а внимательно изучать принципы написания скриптов,
использования параметров и прочее, а то есть то,
что мне никогда больше в жизни не пригодится,
на это нет времени и не считаю необходимым
в данном случае.
Ну что ж, значит обойдусь без этой функции... |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Wed Feb 20, 2019 19:03 Post subject: |
|
|
Много букв, и все ни о чём. По существу предложенных исправлений ничего не написано. Одна вода.
Хотите результата, переходите к конструктиву. И изучать скрипты (окромя принципов использования, отражённых в памятке) тут не предлагалось. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
|