| View previous topic :: View next topic |
| Author |
Message |
Drimvan
Joined: 13 Mar 2005
Posts: 4
|
 (Separately) Posted: Wed Jan 30, 2008 23:38 Post subject: Подобие команды cm_CopyNamesToClip |
 |
|
| Подскажите есть ли подобие команды cm_CopyNamesToClip мне нужно копировать в буфер обмена не только имя файла но и его размер и дату создание его подскажите как это можно сделать |
|
| Back to top |
|
 |
Dimych
Joined: 01 Feb 2006
Posts: 27
|
| (Separately) Posted: Thu Jan 31, 2008 01:40 Post subject: |
|
|
| cm_CopyFileDetailsToClip |
|
| Back to top |
|
|
Вахмурка
Joined: 27 Dec 2004
Posts: 2586
Location: Большая деревня Москва
|
|
| Back to top |
|
|
ask-rus
Joined: 10 Nov 2009
Posts: 2077
Location: Russian Federation
|
| (Separately) Posted: Tue May 07, 2013 17:36 Post subject: |
|
|
Стало необходимостью копирование имени файла под курсором и выделенных в буфер без расширений. cm_CopyNamesToClip и манипуляции с буфером?
_________________
«Минимализм - это кратчайший путь бесконечного стремления к идеалу»
«Не бойся, что не знаешь, - бойся, что не учишься» Китайская пословица |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Tue May 07, 2013 19:53 Post subject: |
|
|
| ask-rus wrote: | | cm_CopyNamesToClip и манипуляции с буфером? |
%WF/%UF, манипуляции с файлом с последующим выводом в буфер.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
| Back to top |
|
|
ask-rus
Joined: 10 Nov 2009
Posts: 2077
Location: Russian Federation
|
| (Separately) Posted: Tue May 07, 2013 20:41 Post subject: |
|
|
С чем же использовать параметры?
_________________
«Минимализм - это кратчайший путь бесконечного стремления к идеалу»
«Не бойся, что не знаешь, - бойся, что не учишься» Китайская пословица |
|
| Back to top |
|
|
MVV
Joined: 15 Oct 2009
Posts: 4815
Location: Ростов-Дон
|
|
| Back to top |
|
|
mf-zl
Joined: 21 Aug 2005
Posts: 71
Location: BLR
|
| (Separately) Posted: Tue May 07, 2013 22:49 Post subject: |
|
|
ask-rus, держи AHK
| Code: | SendMessage, 1075, 2017, 0,, ahk_class TTOTAL_CMD
ClipWait, 2
Loop, Parse, Clipboard, `n, `r
{ SplitPath, A_LoopField,, d,, n
o .= (n ? n : d) "`n"
} Clipboard := o |
|
|
| Back to top |
|
|
LonerD
Joined: 04 Jan 2011
Posts: 1172
Location: Макеевка
|
| (Separately) Posted: Tue May 07, 2013 23:03 Post subject: |
|
|
Вот такой ещё многовариантный скрипт на vbs есть. В основе - скрипт Андрея Аверина (не знаю - полностью ли делалось с нуля или заимствовались фрагменты из скриптов других авторов), немного я что-то переделывал под свои нужды.
| Code: | '=================================================================
' Расширенное копирование в буфер имён и расширений файлов
'=================================================================
' Build: 1.55 (2012.12.17)
' Script: CopyNamesToClip.vbs
'=================================================================
' Parameters
' 1-й: Cписок файлов
' 2-й: Состав итогового списка:
' "1" - расширения файлов
' "2" - имена файлов
' "3" - "чистые имена" файлов (без расширения)
' 3-й: Разделитель (если = "##", то вводится в диалоге)
' 4-й:
' "1" - преобразовать список файлов в одну строку
' "0" (или другое значение) - не преобразовать
' 5-й: Начало строки
' 6-й: Конец строки
' Прим. 1 : одинаковые расширения/имена не добавляются
' Прим. 2 : начало и конец строк добавляются в каждую строку
'=================================================================
' %L "1" ";*." "1" "*." ";" - результат - *.vbs;*.txt;*.au3;
' %L "2" ";" "1" - результат - Read_me.txt;Wincmd.ini
' %L "3" "|" "1" - результат - Read_me|Wincmd|Wcmicons
'=================================================================
NirCmd = "%commander_path%\Plugins\exe\Nircmd\Nircmd.exe"
'=================================================================
Cnt = WScript.Arguments.Count
If Cnt > 2 Then
Endd = "" : Home = "" : Text = ""
Delim = WScript.Arguments(2)
If Cnt > 3 Then Llist = WScript.Arguments(3)
If Delim = "##" Then Delim = InputBox("Enter separator", "", ";")
If Len(Delim) = 0 and StrComp(Llist,1,vbTextCompare) = 0 Then Delim = ";"
Dim FSO, WSH
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WSH = WScript.CreateObject("WScript.Shell")
If Cnt > 4 Then
Home = WScript.Arguments(4)
If Cnt > 5 Then Endd = WScript.Arguments(5)
End If
Set ListFile = FSO.OpenTextFile(GetPath(WScript.Arguments(0)), 1)
Do While Not ListFile.AtEndOfStream
File = ListFile.ReadLine
Ext = FSO.GetExtensionName(File)
If StrComp(Llist,1,vbTextCompare) = 0 Then
Select Case WScript.Arguments(1)
Case 1 Stroka = FSO.GetExtensionName(File)
Case 2 Stroka = FSO.GetBaseName(File) & "." & Ext
Case 3 Stroka = FSO.GetBaseName(File)
End Select
Else
Select Case WScript.Arguments(1)
Case 1 Stroka = Home & Ext & Endd
Case 2 Stroka = Home & FSO.GetBaseName(File) & "." & Ext & Endd
Case 3 Stroka = Home & FSO.GetBaseName(File) & Endd
End Select
End If
If InStr(UCase(Text), UCase(Stroka)) = 0 Then
If StrComp(Llist,1,vbTextCompare) = 0 Then
Text = Text & Stroka & Delim
Else
Text = Text & Stroka & Delim & vbCrLf
End If
End If
Loop
If StrComp(Llist,1,vbTextCompare) = 0 Then Text = Home & Left(Text, Len(Text) - Len(Delim)) & Endd
Tmp = FSO.GetSpecialFolder(2) & "\" & FSO.GetTempName()
FSO.CreateTextFile(Tmp, True).Write Text
WSH.Run Chr(34) & GetPath(NirCmd) & Chr(34) & " " & "clipboard readfile " & Tmp , 2,True
WScript.Sleep 1000
FSO.DeleteFile Tmp
Else
CreateObject("WScript.Shell").Exec(Chr(34) & NirCmd & Chr(34) & " clipboard clear")
End If
Set ListFile = Nothing : Set WSH = Nothing : Set FSO = Nothing: WScript.Quit
Function GetPath(pPath) : GetPath = WSH.ExpandEnvironmentStrings(pPath) : End Function
'================================================================= |
_________________
Windows 11 | TC DreamLair eternal pre-α |
|
| Back to top |
|
|
Serge Yolkin
Joined: 25 Jul 2009
Posts: 664
|
| (Separately) Posted: Tue May 07, 2013 23:17 Post subject: |
|
|
ask-rus, держи HTA (обрабатывает параметр %S): | Code: | MIME-Version: 1.0
Content-Type: application/octet-stream; name="baseNames2clipBoard.hta"
Content-Transfer-Encoding: base64
Content-Disposition: attachment; filename="baseNames2clipBoard.hta"
PD94bWwgdmVyc2lvbj0iMS4wIiBlbmNvZGluZz0idXRmLTgiPz4NCjwhRE9DVFlQRSBodG1s
IFBVQkxJQyAiLS8vVzNDLy9EVEQgWEhUTUwgMS4wIFN0cmljdC8vRU4iDQogImh0dHA6Ly93
d3cudzMub3JnL1RSL3hodG1sMS9EVEQveGh0bWwxLXN0cmljdC5kdGQiPg0KPGh0bWwgeG1s
bnM9Imh0dHA6Ly93d3cudzMub3JnLzE5OTkveGh0bWwiPg0KPGhlYWQ+DQogIDxzY3JpcHQg
dHlwZT0idGV4dC9qc2NyaXB0IiBsYW5ndWFnZT0iSlNjcmlwdCI+DQogICAgc2VsZi5tb3Zl
VG8oc2NyZWVuLndpZHRoLHNjcmVlbi5oZWlnaHQpOw0KICA8L3NjcmlwdD4NCiAgPG1ldGEg
aHR0cC1lcXVpdj0iQ29udGVudC1UeXBlIiBjb250ZW50PSJ0ZXh0L2h0bWw7IGNoYXJzZXQ9
VVRGLTgiIC8+DQogIDxodGE6YXBwbGljYXRpb24NCiAgIGlkPSJIVEFwcCINCiAgIGNhcHRp
b249Im5vIg0KICAgdmVyc2lvbj0iMC41Ig0KICAgLz4NCjwvaGVhZD4NCjxzY3JpcHQgdHlw
ZT0idGV4dC9qc2NyaXB0IiBsYW5ndWFnZT0iSlNjcmlwdCI+DQogIHZhcg0KICAgZD1bXSwN
CiAgIGY9bmV3IEFjdGl2ZVhPYmplY3QoJ1NjcmlwdGluZy5GaWxlU3lzdGVtT2JqZWN0Jyks
DQogICByPW5ldyBSZWdFeHAoLyIoLio/KSIoPz1ccyt8JCl8KFtcU10rKS9nKTsNCiAgd2hp
bGUodD1yLmV4ZWMoSFRBcHAuY29tbWFuZExpbmUpKXtkLnB1c2godFsxXXx8dFsyXSk7fQ0K
ICByPScnOw0KICBpZihkLmxlbmd0aD4xKXsNCiAgICBmb3IodmFyIGk9MTtpPGQubGVuZ3Ro
O2krKylyKz1mLmdldEJhc2VOYW1lKGRbaV0pKydcbic7DQogICAgd2luZG93LmNsaXBib2Fy
ZERhdGEuc2V0RGF0YSgndGV4dCcscik7DQogIH1lbHNlIGFsZXJ0KCfQmtC+0L/QuNGA0YPQ
tdC8INC40LzQtdC90LAg0LLRi9C00LXQu9C10L3QvdGL0YUv0L/QvtC0INC60YPRgNGB0L7R
gNC+0Lwg0LIg0LHRg9GE0LXRgCDQsdC10Lcg0YDQsNGB0YjQuNGA0LXQvdC40LkuXG4nKw0K
ICAgJ9CU0LvRjyDQv9GA0LDQstC40LvRjNC90L7QuSDRgNCw0LHQvtGC0Ysg0L3QtdC+0LHR
hdC+0LTQuNC80L4g0YPQutCw0LfQsNGC0Ywg0YXQvtGC0Y8g0LHRiyDQvtC00LjQvSDQv9Cw
0YDQsNC80LXRgtGALicpOw0KICB3aW5kb3cuY2xvc2UoKTsNCjwvc2NyaXB0Pg0KPC9odG1s
Pg== |
без допутилит |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Wed May 08, 2013 00:37 Post subject: |
|
|
ahk и nircmd у меня выдают кракозябры на кириллице.
LonerD
Меняй на clip и с параметром для уникодных имён сделай. И MVV верно написал, регулярные лучше цикла, значительно быстрее обработка.
КПСС.. Пардон.. (Ну, ты понял, длинные имена и т.д..)
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
| Back to top |
|
|
mf-zl
Joined: 21 Aug 2005
Posts: 71
Location: BLR
|
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Wed May 08, 2013 01:11 Post subject: |
|
|
| mf-zl wrote: | | Не подтверждено! |
Лучше использовать то, что работает и там, где подтверждено. 
Win 7 x86 (Total тут роли не играет).
| mf-zl wrote: | | AutoHotkey_L Unicode x86 1.1.09.04 |
Понял. С ANSI, значит, не будет.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
| Back to top |
|
|
Tol!k
Joined: 01 Apr 2008
Posts: 1727
Location: Арзамас
|
| (Separately) Posted: Wed May 08, 2013 03:20 Post subject: |
|
|
| Code: | TOTALCMD#BAR#DATA
%ComSpec% /c
(for /f "delims=" %%# in ('type "%WL"') do @echo(%%~n#)|clip.exe
clipbrd.exe,1
Имена без расширений > Буфер
1
-1
|
|
|
| Back to top |
|
|
Serge Yolkin
Joined: 25 Jul 2009
Posts: 664
|
| (Separately) Posted: Wed May 08, 2013 06:39 Post subject: |
|
|
| Flasher wrote: | | КПСС.. Пардон.. (Ну, ты понял, длинные имена и т.д..) |
Не, не понял... |
|
| Back to top |
|
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
