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 ... 27, 28, 29 ... 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
moroz90



Joined: 22 Oct 2009
Posts: 36

Post (Separately) Posted: Mon Nov 30, 2009 13:03    Post subject: Reply with quote

Scorpkoms wrote:
создает и открывает файл *.txt

Хотелось бы, что бы создавался в текущей папке(и без имени) и еще DOSовское окно на полэкрана напрягает. Без него никак?
Back to top
View user's profile Send private message
GGS



Joined: 02 May 2009
Posts: 322

Post (Separately) Posted: Mon Nov 30, 2009 13:31    Post subject: Reply with quote

moroz90
Code:
TOTALCMD#BAR#DATA
cmd /c
CD.>.txt & .txt
notepad.exe
Создать и открыть ".txt"

1
-1
Back to top
View user's profile Send private message
Ramiro



Joined: 05 Aug 2009
Posts: 97
Location: у тотала столько поклонников?

Post (Separately) Posted: Mon Nov 30, 2009 15:07    Post subject: Reply with quote

Может кто сталкивался... как прикрутить к кнопке кодирование wav в ape, и обратно..., при помощи батника wav to flac to wav работаю, а вот с монкей никак...)
_________________
У меня только один командир... Total.
Back to top
View user's profile Send private message
Scorpkoms



Joined: 31 Mar 2008
Posts: 27
Location: Россия

Post (Separately) Posted: Mon Nov 30, 2009 16:46    Post subject: Reply with quote

GGS wrote:
moroz90
Code:
TOTALCMD#BAR#DATA
cmd /c
CD.>.txt & .txt
notepad.exe
Создать и открыть ".txt"

1
-1

Так то оно так,да только следующий файл с таким именем как?
Переименововать нужно.
Back to top
View user's profile Send private message
GGS



Joined: 02 May 2009
Posts: 322

Post (Separately) Posted: Mon Nov 30, 2009 17:20    Post subject: Reply with quote

Scorpkoms
Code:
TOTALCMD#BAR#DATA
cmd /c
CD.>>.txt & .txt
notepad.exe
Создать/добавить и открыть ".txt"

1
-1
Back to top
View user's profile Send private message
Scorpkoms



Joined: 31 Mar 2008
Posts: 27
Location: Россия

Post (Separately) Posted: Mon Nov 30, 2009 17:36    Post subject: Reply with quote

GGS
Думаю мы говорим о разном.
Back to top
View user's profile Send private message
GGS



Joined: 02 May 2009
Posts: 322

Post (Separately) Posted: Mon Nov 30, 2009 18:02    Post subject: Reply with quote

Scorpkoms
Да. Но ведь не спрашивалось изначально, что если файл существует, то его следует автоматически переименовать. Опять-таки во что? А если это что-то тоже имеется?
"Хотелка" была просто создать файл без имени в текущей папке и без консольного окна, а что с ним впоследствии делается... Возможно он именно в таком виде используется при дальнейшей обработке.
Просто создать файл/каталог с уникальным именем... этого было много.
Back to top
View user's profile Send private message
Scorpkoms



Joined: 31 Mar 2008
Posts: 27
Location: Россия

Post (Separately) Posted: Tue Dec 01, 2009 01:20    Post subject: Reply with quote

GGS
Думаю кто какую цель преследует,то и пусть ставит.
Back to top
View user's profile Send private message
Batya



Joined: 15 Dec 2004
Posts: 2218
Location: Москва, Россия

Post (Separately) Posted: Tue Dec 01, 2009 11:06    Post subject: Reply with quote

Scorpkoms wrote:
Так то оно так,да только следующий файл с таким именем как?

vbs-скрипт:
Code:
'=============================================
' Создание и запуск файла со следующим именем
'
' Параметры:
' {файл}
'=============================================
Dim WSH, FSO, File
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WSH = CreateObject("WScript.Shell")

File = NextName(GetPath(WScript.Arguments(0)))
FSO.CreateTextFile(File)
WSH.Run """" & File & """", 1, False

Set WSH = Nothing
Set FSO = Nothing
WScript.Quit()

Function NextName(pPath)
  Dim i, lFPath, lPath, lName, lExt
  lFPath = pPath
  lPath  = FSO.GetParentFolderName(pPath) & "\"
  lName  = FSO.GetBaseName(pPath)
  lExt   = FSO.GetExtensionName(pPath)
  Do While (FSO.FileExists(lFPath) Or FSO.FolderExists(lFPath))
    i = i + 1
    lFPath = lPath & lName & "[" & i & "]" & "." & lExt
  Loop
  NextName = lFPath
End Function

Function GetPath(pPath)
  GetPath = FSO.GetAbsolutePathName(WSH.ExpandEnvironmentStrings(pPath))
End Function


Кнопка:
Code:
TOTALCMD#BAR#DATA
c:\Полный\путь\к\скрипту.vbs
"новый файл.txt"
%Commander_Path%\WCMICONS.DLL,28
Создание нового файла


-1

Где вместо "новый файл.txt" указывайте желаемое.
_________________
Нет, я не сплю. Я просто медленно моргаю.
Back to top
View user's profile Send private message
Scorpkoms



Joined: 31 Mar 2008
Posts: 27
Location: Россия

Post (Separately) Posted: Tue Dec 01, 2009 18:15    Post subject: Reply with quote

Batya
Доброго времени.
А такое от чего?
Back to top
View user's profile Send private message
Batya



Joined: 15 Dec 2004
Posts: 2218
Location: Москва, Россия

Post (Separately) Posted: Tue Dec 01, 2009 18:47    Post subject: Reply with quote

Scorpkoms wrote:
А такое от чего?

У кнопки не указаны параметры.

P.S. В случае ошибок можно не картинку здесь приводить, а текст сообщения. Для этого при появлении диалогового окна сообщения нужно нажать Ctrl+C - забирает текст сообщения в буфер (работает для стандартных диалоговых окон).
_________________
Нет, я не сплю. Я просто медленно моргаю.
Back to top
View user's profile Send private message
Scorpkoms



Joined: 31 Mar 2008
Posts: 27
Location: Россия

Post (Separately) Posted: Wed Dec 02, 2009 22:42    Post subject: Reply with quote

Batya
Теперь понял,спасибо!
Back to top
View user's profile Send private message
Redisych



Joined: 29 Jun 2007
Posts: 8

Post (Separately) Posted: Sun Dec 06, 2009 01:09    Post subject: Reply with quote

Кнопка
Code:
TOTALCMD#BAR#DATA
cmd /c
CD.>>.txt & .txt
notepad.exe
Создать/добавить и открыть ".txt"

1
-1
создаёт файл .txt и открывает его.
Как сделать, чтобы при открытии запрашивалось имя файла (аналог Shift+F4), либо наоборот, открывался редактор, а после нажатия на "сохранение" в нём вызывался диалог сохранения файла в каталоге из активной панели?

---upd
Сам же отвечаю Very Happy
Моя первая кнопка:
Code:
TOTALCMD#BAR#DATA
[путь до вашего любимого редактора]
?
[путь до вашего любимого редактора]
Создать и редактировать файл

-1
-1


Открывает диалог, запрашивающий имя нового файла. После этого открывает в редакторе вновь созданный файл.

---off
Оказывается, help полезно читать иногда Very Happy


Last edited by Redisych on Wed Dec 09, 2009 16:52; edited 1 time in total
Back to top
View user's profile Send private message
ask-rus



Joined: 10 Nov 2009
Posts: 2076
Location: Russian Federation

Post (Separately) Posted: Sun Dec 06, 2009 22:31    Post subject: Reply with quote

Вот кнопка:
Code:

TOTALCMD#BAR#DATA
%COMMANDER_PATH%\PLUGINS\arc\Rar.exe
a -m5 -rr5p -t "-ap%O" -- "%O.rar" @%L
%COMMANDER_PATH%\TOTALCMD.EXE,3
У п а к о в а т ь в *.RAR


-1

Но почему-то не работает... Догадываюсь, что этот Rar.exe не тот.

Code:
d:\Total Commander\PLUGINS\arc\Rar.exe
on Microsoft Windows XP Workstation version 5.2600


File Version Information :

Version language : Английский (США)
      ProductName   : WinRAR
      CompanyName   : Alexander Roshal
      FileDescription   : Command line RAR
      FileVersion   : 3.90.0
      InternalName   : Command line RAR
      LegalCopyright   : Copyright © Alexander Roshal 1993-2009

Creation Date   : 22/10/2009  18:00:38
Last Modif. Date   : 09/09/2009  01:00:00
Last Access Date   : 06/12/2009  23:25:54
FileSize   : 378368 bytes ( 369.500 KB,  0.361 MB )
FileVersionInfoSize   : 1292 bytes 
File type   : Application (0x1)
Target OS   : Win32 (0x4)
File/Product version   : 3.90.0.0 / 3.90.0.0
Language    : Русский (0x0)
Character Set   : Not referenced (0x0)

Build Information :
Debug Version   : no
Patched Version   : no
Prerelease Version   : no
Private Version   : no
Special Build   : no

А какой нужен для полноценной архивации, вот по моим параметрам в кнопочке?
Я думал, требуется только один консольный ехе, входящий в состав RAR, но нашёл его у себя, прописал путь, ключи, параметры. А вижу только мерцание командной строки.
_________________
«Минимализм - это кратчайший путь бесконечного стремления к идеалу»
«Не бойся, что не знаешь, - бойся, что не учишься» Китайская пословица
Back to top
View user's profile Send private message
Tol!k



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

Post (Separately) Posted: Sun Dec 06, 2009 22:50    Post subject: Reply with quote

ackep
WinRAR.exe
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 ... 27, 28, 29 ... 43, 44, 45  Next
Page 28 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