Обмен кнопками

[moroz90]

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

Хотелось бы, что бы создавался в текущей папке(и без имени) и еще DOSовское окно на полэкрана напрягает. Без него никак?

[GGS]

moroz90

Код: Выделить всё

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

1
-1

[Ramiro]

Может кто сталкивался... как прикрутить к кнопке кодирование wav в ape, и обратно..., при помощи батника wav to flac to wav работаю, а вот с монкей никак...)

[Scorpkoms]

moroz90

Код: Выделить всё

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

1
-1

Так то оно так,да только следующий файл с таким именем как?
Переименововать нужно.

[GGS]

Scorpkoms

Код: Выделить всё

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

1
-1

[Scorpkoms]

GGS
Думаю мы говорим о разном.

[GGS]

Scorpkoms
Да. Но ведь не спрашивалось изначально, что если файл существует, то его следует автоматически переименовать. Опять-таки во что? А если это что-то тоже имеется?
"Хотелка" была просто создать файл без имени в текущей папке и без консольного окна, а что с ним впоследствии делается... Возможно он именно в таком виде используется при дальнейшей обработке.
Просто создать файл/каталог с уникальным именем... этого было много.

[Scorpkoms]

GGS
Думаю кто какую цель преследует,то и пусть ставит.

[Batya]

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

vbs-скрипт:

Код: Выделить всё

'=============================================
' Создание и запуск файла со следующим именем
'
' Параметры:
' {файл}
'=============================================
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

Кнопка:

Код: Выделить всё

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


-1

Где вместо "новый файл.txt" указывайте желаемое.

[Scorpkoms]

Batya
Доброго времени.
А такое от чего?

[Batya]

А такое от чего?

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

P.S. В случае ошибок можно не картинку здесь приводить, а текст сообщения. Для этого при появлении диалогового окна сообщения нужно нажать Ctrl+C - забирает текст сообщения в буфер (работает для стандартных диалоговых окон).

[Scorpkoms]

Batya
Теперь понял,спасибо!

[Redisych]

Кнопка

Код: Выделить всё

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

1
-1 

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

---upd
Сам же отвечаю
Моя первая кнопка:

Код: Выделить всё

TOTALCMD#BAR#DATA
[путь до вашего любимого редактора]
?
[путь до вашего любимого редактора]
Создать и редактировать файл

-1
-1

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

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

[ask-rus]

Вот кнопка:

Код: Выделить всё

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 не тот.

Код: Выделить всё

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, но нашёл его у себя, прописал путь, ключи, параметры. А вижу только мерцание командной строки.

[Tol!k]

ackep
WinRAR.exe