Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Вставка содержимого буфера в новый файл (текст/изображениe)
Goto page Previous  1, 2, 3, 4, 5, 6, 7  Next
 
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander printer-friendly view
View previous topic :: View next topic  
Author Message
Dimsok



Joined: 17 Aug 2014
Posts: 663

Post (Separately) Posted: Fri Sep 04, 2015 21:00    Post subject: Reply with quote

Кому-то привычка пить чай, не дожидаясь, пока растворится сахар, покажется плохой, но она не мешает мне жить, а кому то и вовсе была бы полезной.
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Fri Sep 04, 2015 21:04    Post subject: Reply with quote

Мне, если честно, всё равно, кто чем в конечном счёте будет пользоваться, мой спич был о другом (о темах и вопросах, оставшихся без ответов не по причине их незнания).
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
Lisabon



Joined: 18 Feb 2011
Posts: 147

Post (Separately) Posted: Wed May 11, 2016 20:15    Post subject: Reply with quote

Есть скрипт.
Кто-нибудь может доработать скрипт? Чтобы, если в буфере юникод, то создаёт файл в кодировке юникод, а если символов юникод нет, то создаёт файл в кодировке ANSI.
Back to top
View user's profile Send private message
Avada



Joined: 01 Aug 2008
Posts: 10252
Location: Россия, Саратов

Post (Separately) Posted: Wed May 11, 2016 21:17    Post subject: Reply with quote

Lisabon
Памятка по скриптам написана и прикреплена для того, чтобы её читали.
Во-первых, скрипты оформляются кодами, а не цитатами.
Во-вторых, если скрипт с нашего форума, его вообще не следует дублировать, достаточно ссылки.
Цитата в предыдущем посте заменена ссылкой.
_________________
Даже самая богатая фантазия
Не представит себе наши безобразия.
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Thu May 12, 2016 03:39    Post subject: Reply with quote

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
View user's profile Send private message
Mailk



Joined: 16 Jan 2010
Posts: 251

Post (Separately) Posted: Thu Jun 02, 2016 01:39    Post subject: Reply with quote

Flasher
Ошибка у меня " Индекс выходит за пределы допустимого диапазона"
Код 800А0009
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Thu Jun 02, 2016 02:49    Post subject: Reply with quote

Памятка в помощь.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
Decor



Joined: 22 Apr 2017
Posts: 19

Post (Separately) Posted: Tue Feb 19, 2019 11:34    Post subject: Reply with quote

Прошу у вас помощи по батнику в шапке...
Мне необходима эта функция, но до конца не разобрался.

Что я сделал:
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
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Tue Feb 19, 2019 13:27    Post subject: Reply with quote

Decor
1. См. п. 7 памятки подфорума.
2. %nircmd% лучше всюду взять в кавычки.
Точку и расширение нужно самому прописывать:
Quote:
Формат изображения определяется nircmd по расширению
Только в конец 9-й строки почему-то автор не прописал их как умолчание для имени с датой. То же самое можно сделать для параметра, дописав их после %O.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
Decor



Joined: 22 Apr 2017
Posts: 19

Post (Separately) Posted: Tue Feb 19, 2019 14:31    Post subject: Reply with quote

Насколько вижу, везде %nircmd%
п. 7 прочитал про путь.
Всё равно не пашет...
Ну что ж.., как есть...
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Tue Feb 19, 2019 14:43    Post subject: Reply with quote

"вижу", "прочитал" = "не пашет". Confused
"исправил", "очистил" = "запахало". Cool
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
Decor



Joined: 22 Apr 2017
Posts: 19

Post (Separately) Posted: Tue Feb 19, 2019 18:35    Post subject: Reply with quote

Это предложение действий?
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Tue Feb 19, 2019 18:59    Post subject: Reply with quote

А что ж ещё?
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
Decor



Joined: 22 Apr 2017
Posts: 19

Post (Separately) Posted: Wed Feb 20, 2019 14:25    Post subject: Reply with quote

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

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

Ну что ж, значит обойдусь без этой функции...
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Wed Feb 20, 2019 19:03    Post subject: Reply with quote

Много букв, и все ни о чём. По существу предложенных исправлений ничего не написано. Одна вода.
Хотите результата, переходите к конструктиву. И изучать скрипты (окромя принципов использования, отражённых в памятке) тут не предлагалось.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander All times are GMT + 4 Hours
Goto page Previous  1, 2, 3, 4, 5, 6, 7  Next
Page 5 of 7

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © 2001, 2005 phpBB Group