| View previous topic :: View next topic | 
	
	
		| Author | Message | 
	
		| moroz90 
 
 
 Joined: 22 Oct 2009
 Posts: 36
 
 
 | 
			
				|  (Separately) Posted: Mon Nov 30, 2009 13:03    Post subject: |   |  
				| 
 |  
				|  	  | Scorpkoms wrote: |  	  | создает и открывает файл *.txt 
 | 
 Хотелось бы, что бы создавался в текущей папке(и без имени) и еще DOSовское окно на полэкрана напрягает. Без него никак?
 |  | 
	
		| Back to top |  | 
	
		|  | 
	
		| GGS 
 
 
 Joined: 02 May 2009
 Posts: 322
 
 
 | 
			
				|  (Separately) Posted: Mon Nov 30, 2009 13:31    Post subject: |   |  
				| 
 |  
				| moroz90 
  	  | Code: |  	  | TOTALCMD#BAR#DATA
cmd /c
 CD.>.txt & .txt
 notepad.exe
 Создать и открыть ".txt"
 
 1
 -1
 
 | 
 |  | 
	
		| Back to top |  | 
	
		|  | 
	
		| Ramiro 
 
  
 Joined: 05 Aug 2009
 Posts: 97
 Location: у тотала столько поклонников?
 
 | 
			
				|  (Separately) Posted: Mon Nov 30, 2009 15:07    Post subject: |   |  
				| 
 |  
				| Может кто сталкивался... как прикрутить к кнопке кодирование wav в ape, и обратно..., при помощи батника wav to flac to wav работаю, а вот с монкей никак...) _________________
 У меня только один командир... Total.
 |  | 
	
		| Back to top |  | 
	
		|  | 
	
		| Scorpkoms 
 
  
 Joined: 31 Mar 2008
 Posts: 27
 Location: Россия
 
 | 
			
				|  (Separately) Posted: Mon Nov 30, 2009 16:46    Post subject: |   |  
				| 
 |  
				|  	  | GGS wrote: |  	  | moroz90 
  	  | Code: |  	  | TOTALCMD#BAR#DATA
cmd /c
 CD.>.txt & .txt
 notepad.exe
 Создать и открыть ".txt"
 
 1
 -1
 
 | 
 | 
 Так то оно так,да только следующий файл с таким именем как?
 Переименововать нужно.
 |  | 
	
		| Back to top |  | 
	
		|  | 
	
		| GGS 
 
 
 Joined: 02 May 2009
 Posts: 322
 
 
 | 
			
				|  (Separately) Posted: Mon Nov 30, 2009 17:20    Post subject: |   |  
				| 
 |  
				| Scorpkoms 
  	  | Code: |  	  | TOTALCMD#BAR#DATA
cmd /c
 CD.>>.txt & .txt
 notepad.exe
 Создать/добавить и открыть ".txt"
 
 1
 -1
 
 | 
 |  | 
	
		| Back to top |  | 
	
		|  | 
	
		| Scorpkoms 
 
  
 Joined: 31 Mar 2008
 Posts: 27
 Location: Россия
 
 | 
			
				|  (Separately) Posted: Mon Nov 30, 2009 17:36    Post subject: |   |  
				| 
 |  
				| GGS Думаю мы говорим о разном.
 |  | 
	
		| Back to top |  | 
	
		|  | 
	
		| GGS 
 
 
 Joined: 02 May 2009
 Posts: 322
 
 
 | 
			
				|  (Separately) Posted: Mon Nov 30, 2009 18:02    Post subject: |   |  
				| 
 |  
				| Scorpkoms Да. Но ведь не спрашивалось изначально, что если файл существует, то его следует автоматически переименовать. Опять-таки во что? А если это что-то тоже имеется?
 "Хотелка" была просто создать файл без имени в текущей папке и без консольного окна, а что с ним впоследствии делается... Возможно он именно в таком виде используется при дальнейшей обработке.
 Просто создать файл/каталог с уникальным именем... этого было много.
 |  | 
	
		| Back to top |  | 
	
		|  | 
	
		| Scorpkoms 
 
  
 Joined: 31 Mar 2008
 Posts: 27
 Location: Россия
 
 | 
			
				|  (Separately) Posted: Tue Dec 01, 2009 01:20    Post subject: |   |  
				| 
 |  
				| GGS Думаю кто какую цель преследует,то и пусть ставит.
 |  | 
	
		| Back to top |  | 
	
		|  | 
	
		| Batya 
 
  
 Joined: 15 Dec 2004
 Posts: 2229
 Location: Москва, Россия
 
 | 
			
				|  (Separately) Posted: Tue Dec 01, 2009 11:06    Post subject: |   |  
				| 
 |  
				|  	  | 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 |  | 
	
		|  | 
	
		| Scorpkoms 
 
  
 Joined: 31 Mar 2008
 Posts: 27
 Location: Россия
 
 | 
			
				|  (Separately) Posted: Tue Dec 01, 2009 18:15    Post subject: |   |  
				| 
 |  
				| Batya Доброго времени.
 А такое от чего?
 
  |  | 
	
		| Back to top |  | 
	
		|  | 
	
		| Batya 
 
  
 Joined: 15 Dec 2004
 Posts: 2229
 Location: Москва, Россия
 
 | 
			
				|  (Separately) Posted: Tue Dec 01, 2009 18:47    Post subject: |   |  
				| 
 |  
				|  	  | Scorpkoms wrote: |  	  | А такое от чего? | 
 У кнопки не указаны параметры.
 
 P.S. В случае ошибок можно не картинку здесь приводить, а текст сообщения. Для этого при появлении диалогового окна сообщения нужно нажать Ctrl+C - забирает текст сообщения в буфер (работает для стандартных диалоговых окон).
 _________________
 Нет, я не сплю. Я просто медленно моргаю.
 |  | 
	
		| Back to top |  | 
	
		|  | 
	
		| Scorpkoms 
 
  
 Joined: 31 Mar 2008
 Posts: 27
 Location: Россия
 
 | 
			
				|  (Separately) Posted: Wed Dec 02, 2009 22:42    Post subject: |   |  
				| 
 |  
				| Batya Теперь понял,спасибо!
 |  | 
	
		| Back to top |  | 
	
		|  | 
	
		| Redisych 
 
 
 Joined: 29 Jun 2007
 Posts: 8
 
 
 | 
			
				|  (Separately) Posted: Sun Dec 06, 2009 01:09    Post subject: |   |  
				| 
 |  
				| Кнопка 
 создаёт файл .txt и открывает его. 	  | Code: |  	  | TOTALCMD#BAR#DATA
cmd /c
 CD.>>.txt & .txt
 notepad.exe
 Создать/добавить и открыть ".txt"
 
 1
 -1
 | 
 Как сделать, чтобы при открытии запрашивалось имя файла (аналог Shift+F4), либо наоборот, открывался редактор, а после нажатия на "сохранение" в нём вызывался диалог сохранения файла в каталоге из активной панели?
 
 ---upd
 Сам же отвечаю
   Моя первая кнопка:
 
 Открывает диалог, запрашивающий имя нового файла. После этого открывает в редакторе вновь созданный файл. 	  | Code: |  	  | TOTALCMD#BAR#DATA
[путь до вашего любимого редактора]
 ?
 [путь до вашего любимого редактора]
 Создать и редактировать файл
 
 -1
 -1
 
 
 
 | 
 
 ---off
 Оказывается, help полезно читать иногда
  
 Last edited by Redisych on Wed Dec 09, 2009 16:52; edited 1 time in total
 |  | 
	
		| Back to top |  | 
	
		|  | 
	
		| ask-rus 
 
  
 Joined: 10 Nov 2009
 Posts: 2077
 Location: Russian Federation
 
 | 
			
				|  (Separately) Posted: Sun Dec 06, 2009 22:31    Post subject: |   |  
				| 
 |  
				| Вот кнопка: 
  	  | 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 |  | 
	
		|  | 
	
		| Tol!k 
 
  
 Joined: 01 Apr 2008
 Posts: 1727
 Location: Арзамас
 
 | 
			
				|  (Separately) Posted: Sun Dec 06, 2009 22:50    Post subject: |   |  
				| 
 |  
				| ackep WinRAR.exe
 |  | 
	
		| Back to top |  | 
	
		|  | 
	
		|  |