Total Commander :: Как создать файл?

through

[^/[Print]\]
Goto page Previous 1, 2, 3, 4, 5, 6, 7 Next :| |:
Total Commander -> Общие вопросы

#46: Author: Artee,

Posted: Thu Apr 14, 2011 17:09
—
Flasher
Ура! Pаботает! Спасибо!
Подсказки только перепутал ты, у меня на сборке от Sam вышло так:

Quote:

TOTALCMD#BAR#DATA
%COMMANDER_PATH%\Plugins\exe\AkelPad.exe /C+
%P%O.txt
%COMMANDER_PATH%\Plugins\exe\AkelPad.exe,1
Создать txt-файл с именем файла/папки под курсором в активной панели и открыть его в AkelPad

Quote:

TOTALCMD#BAR#DATA
%COMMANDER_PATH%\Plugins\exe\AkelPad.exe /C+
%Preadme.txt
%COMMANDER_PATH%\Plugins\exe\AkelPad.exe,1
Создать readme.txt в активной панели и открыть его в AkelPad

#47: Author: Flasher, Location: Москва

Posted: Thu Apr 14, 2011 17:12
—
MVV, Artee
Сначала ведь правильно написал, потом копипаст подвёл, будь он неладный. Исправлено. Smile

#48: Author: Batya, Location: Москва, Россия

Posted: Tue Apr 26, 2011 15:07
—

Artee wrote:

Сделал всё это, но файл создаётся в папке с Akelpad.exe, а как сделать, чтобы он создавался в текущем каталоге на активной панели и открывался для редактирования?

В твоей старой кнопке было заполнено поле "Путь запуска", а должно быть пустое.

#49: Author: Shutnik,

Posted: Thu Aug 04, 2011 20:37
—
А у меня такой вопрос, все мы знаем, что по нажатии Shift+F4 открывается окно где мы вводим имя будущего текстового файла в котором уже поставлено имя файла которое было под курсором в момент нажатия комбинации, так вот, как сделать так, чтобы автоматом и расширение подставлялось нужное мне (например .txt), а имя оставалось

Пример: курсор наведен на файл Totalcmd.exe жму Shift+F4 появляется окно в котором предлагается имя Totalcmd.exe
а мне нужно чтобы предлагалось имя Totalcmd.txt

СПАСИБО!

P.S. Знаю что оффтоп, но все же, кто как хранит заметки или описания к файлам?
Я например к экзешникам создаю текстовик и тем же именем, в котором и храниться описание (чтобы его можно было посмотреть и на другом компьютере и через эксплорер)

#50: Author: Flasher, Location: Москва

Posted: Thu Aug 04, 2011 20:57
—
Преимущество подставления перед автоматическим созданием без диалога в чём?

#51: Author: ask-rus, Location: Russian Federation

Posted: Thu Aug 04, 2011 21:15
—

Flasher wrote:

Преимущество подставления перед автоматическим созданием без диалога в чём?

Время на раздумье, возможность на изменение.

#52: Author: Flasher, Location: Москва

Posted: Thu Aug 04, 2011 21:19
—
Меня интересует мнение вопрошающего, а не обобщённое.

Ладно, вопрошающий может не отвечать.
Для разминки:

Code:

' Создание файла или папки
' Параметры: ""%N"" <расширение>
'===============================
On Error Resume Next
N = WScript.Arguments(0)
Ext = WScript.Arguments(1)
With CreateObject("Scripting.FileSystemObject")
If .FileExists(N) Then
Name = .GetBaseName(N) & "." & Ext
T = Trim("файла")
Else
Name = N
T = Trim("каталога")
End If
L = vbnewline
D = InputBox(L&L&L&L&L&"Введите имя нового "&T&":","Создание "&T,Name)
If D > vbNullString Then
If .FileExists(N) Then
.CreateTextFile(D)
Else .CreateFolder(D)
End If
End If
End With
WScript.Quit

Можно повесить хоть на Shift+F4, хоть на F7, хоть что угодно.

Last edited by Flasher on Fri Aug 05, 2011 01:57; edited 3 times in total

#53: Author: Avada, Location: Россия, Саратов

Posted: Thu Aug 04, 2011 22:28
—
Shutnik
А что тут за оффтоп бывает, тоже известно? Вопрос риторический. отвечать не надо.
Никаких обсуждений хранения описаний, как нетрудно догадаться, не будет — это абсолютно неуместно ни в данной теме, ни на данном подфоруме.

#54: Author: MVV, Location: Ростов-Дон

Posted: Fri Aug 05, 2011 08:59
—
Flasher, думаю, тут еще не помешало бы сразу открыть файл в редакторе, или хотя бы поставить на него фокус, как это делает тотал.

#55: Author: Flasher, Location: Москва

Posted: Fri Aug 05, 2011 12:49
—
MVV
Что-то с внутренними ассоциациями ковыряться не хочется.
Если достаточно системных, то после

Code:

.CreateTextFile(D)

добавить

Code:

CreateObject("Shell.Application").ShellExecute D

либо с прямым указанием редактора

Code:

CreateObject("WScript.Shell").Exec("%COMMANDER_PATH%\Utils\AkelPad\AkelPad.exe " & D)

Поскольку речь всё-таки только о файле, сведём к следующему варианту:

Code:

' Создание и открытие файла
' Параметры: ""%N"" <расширение>
'===============================
On Error Resume Next
N = WScript.Arguments(0)
Ext = WScript.Arguments(1)
With CreateObject("Scripting.FileSystemObject")
Name = .GetBaseName(N) & "." & Ext
L = vbnewline
Box D
If .FileExists(D) Then
MsgBox "Такой файл уже существует!"&L&"Повторите попытку!",_
vbExclamation," Создание файла"
Box D
End If
If D > vbNullString Then
.CreateTextFile(D)
CreateObject("WScript.Shell").Exec("%COMMANDER_PATH%\Utils\AkelPad\AkelPad.exe "& D)
End If
End With
WScript.Quit

Sub Box(D)
D = InputBox(L&L&L&L&L&"Введите имя нового файла:",_
" Создание файла",Name)
End Sub

Вместо пути к AkelPad пишем путь к своему редактору, путь запуска в кнопке/юзеркоманде очищаем.

#56: Author: jentoso,

Posted: Sat Nov 12, 2011 22:17
—
Вопрос касательно этого скрипта. Сам скрипт лежит в папке ТС. Создаваемые каталоги появляются рядом с ним же. Как это можно исправить? Еще вроде написано что скрипт может создавать файлы, но создаются только каталоги.[/url]

#57: Author: Flasher, Location: Москва

Posted: Sun Nov 13, 2011 02:11
—
Не понимаю, зачем исправлять то, что вполне вписывается в существующую логику. Файл или папка создаётся в активной панели в зависимости от того, на каком элементе находится курсор.

#58: Author: jentoso,

Posted: Sun Nov 13, 2011 02:22
—
Flasher, я нашел свою ошибку. Просто скрипт повесил на пользовательские команды. В строке Команда прописал файл скрипта, а в строке Путь запуска указал каталог ТС, где скрипт и находился. Это и приводило к тому, что создавалось рядом со скриптом.

#59: Author: Flasher, Location: Москва

Posted: Sun Nov 13, 2011 02:45
—
Да, путь запуска очищать нужно, т.к. тут указывается имя без пути, поэтому за рабочий каталог воспринимается либо активный, либо тот, который указан напрямую.

#60: Author: Baddim, Location: Челябинск

Posted: Tue Nov 20, 2012 14:23
—
У меня notepad++, который при запуске команды создания файла %COMMANDER_PATH%\Notepad++\notepad++.exe с параметром %Pnew.txt переспрашивает "Create it?"
Как этого избежать? А еще лучше: чтоб всплывал диалог названия нового файла. Попытался создать кнопку через приведенный выше скрипт, но обработчик Явы на него ругается

Total Commander -> Общие вопросы

output generated using printer-friendly topic mod. All times are GMT + 4 Hours

Goto page Previous 1, 2, 3, 4, 5, 6, 7 Next :| |: Page 4 of 7