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 

Обмен кнопками
Goto page Previous  1, 2, 3 ... 33, 34, 35 ... 43, 44, 45  Next
 
Post new topic   Reply to topic    Total Commander Forum Index -> Секреты и советы printer-friendly view
View previous topic :: View next topic  
Author Message
Владимир М



Joined: 16 Sep 2009
Posts: 78

Post (Separately) Posted: Sun Apr 18, 2010 23:55    Post subject: Reply with quote

Tol!k,
большое спасибо! работает.
_________________
Windows7 x64 TC 7.55a
Back to top
View user's profile Send private message
Tol!k



Joined: 01 Apr 2008
Posts: 1727
Location: Арзамас

Post (Separately) Posted: Mon Apr 19, 2010 15:29    Post subject: Reply with quote

Владимир М
LocKtaR-o-DarK™ wrote:
Как производить обмен кнопками?

— чтобы поделиться кнопкой, нажмите правой кнопкой мыши по вашей кнопке и выберите Копировать, после чего вставляйте содержимое буфера в пост как Код: или блок, и, при необходимости, отредактируйте код;
— чтобы забрать кнопку, скопируйте содержимое кода нужной кнопки, правой кнопкой мыши щёлкните на нужном месте панели инструментов (кнопок) тотала и выберите Вставить;

Примечание:
— если, по каким-то причинам, значок вставленной кнопки не отображается или отображается не должным образом, необходимо обновить кнопку, для этого щёлкните по вставленной пустой или неверно отображаемой кнопке правой кнопкой мыши, выберите Изменить, после чего нажмите OK.
Т.ч. "файл кпопки с расширением vbs" создавать не нужно.
vbs — это скрипты на Visual Basic Script, а не кнопки
Back to top
View user's profile Send private message
LocKtaR-o-DarK



Joined: 12 Aug 2005
Posts: 349
Location: Москва

Post (Separately) Posted: Tue Apr 20, 2010 00:55    Post subject: Reply with quote

Владимир М wrote:
возможно туплю я, но чего же тут непонятного делал всё как написано тут! http://forum.wincmd.ru/viewpost.php?p=8314
это решение немного устарело
вот более свежее
_________________
        
Back to top
View user's profile Send private message
gora



Joined: 30 Dec 2004
Posts: 442
Location: Иваново

Post (Separately) Posted: Wed Apr 21, 2010 10:43    Post subject: Reply with quote

JKT wrote:

А вот как-бы чтобы он создавался не под именем "playlist.m3u" , а "Имя_текущей_папки.m3u" Было-бы вообще здорово.

Вариант с однострочным батником устроит?

Файл m3u.bat
Code:
For %%x In ("%cd%") Do Copy "%~1" "%cd%\%%~nx.m3u"
Положите его в любое удобное место (у меня %commander_path%\Utilites\m3u.bat)
Создайте кнопку:
Code:
TOTALCMD#BAR#DATA
%commander_path%\Utilites\m3u.bat
%L
%commander_path%\WCMICONS.DLL,57
Создать плейлист

1
-1

_________________
Win7 SP1 Ultimate x64, TC8.52a x64
Back to top
View user's profile Send private message
JKT



Joined: 22 Sep 2009
Posts: 116
Location: Харьков

Post (Separately) Posted: Wed Apr 21, 2010 11:33    Post subject: Reply with quote

gora
Спасибо огромное. Все работает нормально. Плейлист из выделенных файлов с именем текущей папки. То, что надо.
Back to top
View user's profile Send private message
garmonist



Joined: 23 Apr 2010
Posts: 14

Post (Separately) Posted: Fri Apr 23, 2010 15:25    Post subject: Reply with quote

Перечитал всю тему. Решения нашел только частичные.

Помогите, пожалуйста, создать код для двух кнопок:

1. БЭКАП
1.1. Файл необходимо заархивировать в архив {ИмяФайла}_[ГГГГ.ММ.ДД чч.мм.сс].rar.
1.2. Переместить его в папку {ПутьКФайлу}\X-ARC. Если такой папки не существует, то ее надо создать.

2. ВОССТАНОВЛЕНИЕ
2.1. Архив необходимо распаковать в паку {ИмяАрхива}.
2.2. Распакованный файл переименовать в {ИмяАрхиваБезРасширения}. Расширение у распакованного должно остаться исходным.

При этом подразумевается, что бэкапим и восстанавливаем только один файл.

Есть ощущения, что это надо делать в вб-скрипте. Но как вставить в вбс запуск винрара с параметрами - вообще не представляю.

Для пункта 1.1. у меня есть параметры TC для архивирования:
Code:
a -dh -m3 -ag"_[yyyy.mm.dd hh.mm.ss]" "%O".rar ""%N""


Для пункта 1.2. есть код вбс для создания папки:
Code:
Option Explicit
Dim strFolderName as String
strFolderName = CreateObject("WScript.Shell").CurrentDirectory & "\X-ARC"
Dim objFSO As FileSystemObject
Set objFSO = CreateObject("Scripting.FileSystemObject")
If Not objFSO.FolderExists(strFolderName) Then
    objFSO.CreateFolder(strFolderName)
End If


Для пункта 2.1. есть параметры кнопки TC для извлечения из архива:
Code:
x %N "%O"\


Для пункта 2.2 знаю, как переименовать распакованные файлы (учитывая, что WScript.Arguments(0) - это путь, куда были распакованы файлы):
Code:
Dim strPath as String
strPath = WScript.Arguments(0)
Dim objFSO As FileSystemObject
Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim objFolder As Folder
Set objFolder = objFSO.GetFolder(strPath)
Dim objFile As File
Dim strOldFileName As String
Dim strNewFileName As String
Dim strFilePath As String
If objFolder.Files.Count = 1 Then
    For Each objFile In objFolder.Files
        strOldFileName = objFile.Name
        strFilePath = objFile.ParentFolder
        'Имя первой родительской папки
        strNewFileName = Right(strFilePath, Len(strFilePath) - InStrRev(strFilePath, "\", -1))
        'Добавляем исходное расширение
        strNewFileName = strNewFileName & "." & Right(strOldFileName, Len(strOldFileName) - InStrRev(strOldFileName, "."))
        'Переименовываем файл
        Name strFilePath & "\" & strOldFileName As strFilePath & "\" & strNewFileName
    Next
End If
Back to top
View user's profile Send private message
gora



Joined: 30 Dec 2004
Posts: 442
Location: Иваново

Post (Separately) Posted: Sat Apr 24, 2010 13:45    Post subject: Reply with quote

garmonist

Вариант с батником:
Файл Rar_unRAR.bat
Code:
Set PathRAR="c:\Program Files\WinRAR\WinRAR.exe"
If %2#==B# (
   If Not Exist "%cd%\X-ARC\" MD "%cd%\X-ARC\"
   %PathRAR% a -dh -m3 -ag"_[yyyy.mm.dd hh.mm.ss]" "%cd%\X-ARC\%~n1.rar" "%~1"
) Else (
   If Not Exist "%cd%\%~n1\" MD "%cd%\%~n1\"
   %PathRAR% x "%~1" "%cd%\%~n1\"
   For %%I In ("%cd%\%~n1\*") Do Ren "%%I" "%~n1%%~xI"
)
И две кнопки:
- Бекап:
Code:
TOTALCMD#BAR#DATA
%commander_path%\Utilites\Rar_unRAR.bat
%N B
%commander_path%\WCMICONS.DLL,30
Бекап

1
-1

- Восстановить:
Code:
TOTALCMD#BAR#DATA
%commander_path%\Utilites\Rar_unRAR.bat
%N
%commander_path%\WCMICONS.DLL,31
Восстановить

1
-1

_________________
Win7 SP1 Ultimate x64, TC8.52a x64
Back to top
View user's profile Send private message
garmonist



Joined: 23 Apr 2010
Posts: 14

Post (Separately) Posted: Mon Apr 26, 2010 09:49    Post subject: Reply with quote

gora
Честно говоря, когда увидел так мало кода, не поверил, что он рабочий. Но офигеть! Всё работает! Спасибо большое)
Back to top
View user's profile Send private message
Владимир М



Joined: 16 Sep 2009
Posts: 78

Post (Separately) Posted: Wed Apr 28, 2010 14:07    Post subject: Reply with quote

Tol!k
да я уже понял свою ошибку, прошу прощения у форумян за то, что заср.л ветку бредом Embarassed
p.s. сорри за оффтоп
_________________
Windows7 x64 TC 7.55a
Back to top
View user's profile Send private message
Bubek



Joined: 21 Jul 2007
Posts: 20

Post (Separately) Posted: Fri Apr 30, 2010 13:20    Post subject: Reply with quote

Помогите сделать сделать такую же кнопку, как

Code:
TOTALCMD#BAR#DATA
cmd /c setlocal&title 7z-packing... &for /f "tokens=1-6 delims=:., " %a in ('echo %date% %time:~0,8%') do for %i in ("%CD%") do
for /f "delims=" %%R in ("%S") do cls&"C:\Program Files\7-Zip\7z" a -pПАРОЛЬ -scswin -m0=bcj -m1=lzma:d=21 -ms -mmt """""%%~nxi_[%%c.%%b.%%a-%%d.%%e.%%f].7z""""" """"%%R""""
keymgr.dll
Создание зашифрованного 7z-архива


-1

но, чтобы она делала архив по названию файла(папки), без шифрования и пароля

пример: в папке Архив находится папка Данные, архивируем папку Данные и получаем название вида:
1. Дата_время_имя папки
2010.04.29_13.22.23_Данные.7z
Спасибо.
Back to top
View user's profile Send private message
gora



Joined: 30 Dec 2004
Posts: 442
Location: Иваново

Post (Separately) Posted: Fri Apr 30, 2010 14:27    Post subject: Reply with quote

Bubek
Code:
TOTALCMD#BAR#DATA
cmd /c setlocal&title 7z-packing... &for /f "tokens=1-6 delims=:., " %a in ('echo %date% %time:~0,8%') do
"C:\Program Files\7-Zip\7z" a -scswin -m0=bcj -m1=lzma:d=21 -ms -mmt """""%%c.%%b.%%a_%%d.%%e.%%f_%N.7z""""" """"%N""""
keymgr.dll
Создание 7z-архива


-1

_________________
Win7 SP1 Ultimate x64, TC8.52a x64
Back to top
View user's profile Send private message
Bubek



Joined: 21 Jul 2007
Posts: 20

Post (Separately) Posted: Fri Apr 30, 2010 14:55    Post subject: Reply with quote

gora
Спасибо, работает
Back to top
View user's profile Send private message
ytka00



Joined: 13 Oct 2006
Posts: 53

Post (Separately) Posted: Sun May 09, 2010 14:36    Post subject: Reply with quote

а можно ли както с помощью кнопки переключать размер эскизов? было бы удобно переключаться между 4:3 и 16:9
Back to top
View user's profile Send private message
MVV



Joined: 15 Oct 2009
Posts: 4811
Location: Ростов-Дон

Post (Separately) Posted: Sun May 09, 2010 16:26    Post subject: Reply with quote

pokoynik wrote:
а можно ли както с помощью кнопки переключать размер эскизов? было бы удобно переключаться между 4:3 и 16:9

Сомневаюсь. При изменении размера эскиза ТК будет перечитывать все эскизы по новой, поэтому это будет слишком долго. Да и размер эскизов поменять не так-то просто без захода в настройки или перезапуска ТК.
_________________
TCFS2 + TCFS2Tools: Полноэкранный режим и многое другое (обсуждение)
WINCMD.RU: AskParam, CopyTree, NTLinks, Sudo, VirtualPanel…
Back to top
View user's profile Send private message
ytka00



Joined: 13 Oct 2006
Posts: 53

Post (Separately) Posted: Sun May 09, 2010 17:49    Post subject: Reply with quote

у меня они не кешируются, разницы в скорости отображения не заметил. При изменени размера в насторйках перезапуск не требуется
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Total Commander Forum Index -> Секреты и советы All times are GMT + 4 Hours
Goto page Previous  1, 2, 3 ... 33, 34, 35 ... 43, 44, 45  Next
Page 34 of 45

 
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