Flasher
Ура! Pаботает! Спасибо!
Подсказки только перепутал ты, у меня на сборке от Sam вышло так:
TOTALCMD#BAR#DATA
%COMMANDER_PATH%\Plugins\exe\AkelPad.exe /C+
%P%O.txt
%COMMANDER_PATH%\Plugins\exe\AkelPad.exe,1
Создать txt-файл с именем файла/папки под курсором в активной панели и открыть его в AkelPad
TOTALCMD#BAR#DATA
%COMMANDER_PATH%\Plugins\exe\AkelPad.exe /C+
%Preadme.txt
%COMMANDER_PATH%\Plugins\exe\AkelPad.exe,1
Создать readme.txt в активной панели и открыть его в AkelPad
Artee писал(а):Сделал всё это, но файл создаётся в папке с Akelpad.exe, а как сделать, чтобы он создавался в текущем каталоге на активной панели и открывался для редактирования?
В твоей старой кнопке было заполнено поле "Путь запуска", а должно быть пустое.
А у меня такой вопрос, все мы знаем, что по нажатии Shift+F4 открывается окно где мы вводим имя будущего текстового файла в котором уже поставлено имя файла которое было под курсором в момент нажатия комбинации, так вот, как сделать так, чтобы автоматом и расширение подставлялось нужное мне (например .txt), а имя оставалось
Пример: курсор наведен на файл Totalcmd.exe жму Shift+F4 появляется окно в котором предлагается имя Totalcmd.exe
а мне нужно чтобы предлагалось имя Totalcmd.txt
СПАСИБО!
P.S. Знаю что оффтоп, но все же, кто как хранит заметки или описания к файлам?
Я например к экзешникам создаю текстовик и тем же именем, в котором и храниться описание (чтобы его можно было посмотреть и на другом компьютере и через эксплорер)
' Создание файла или папки
' Параметры: ""%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, хоть что угодно.
Последний раз редактировалось Flasher Пт авг 05, 2011 01:57, всего редактировалось 3 раза.
Shutnik
А что тут за оффтоп бывает, тоже известно? Вопрос риторический. отвечать не надо.
Никаких обсуждений хранения описаний, как нетрудно догадаться, не будет — это абсолютно неуместно ни в данной теме, ни на данном подфоруме.
Даже самая богатая фантазия
Не представит себе наши безобразия.
' Создание и открытие файла
' Параметры: ""%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 пишем путь к своему редактору, путь запуска в кнопке/юзеркоманде очищаем.
Вопрос касательно этого скрипта. Сам скрипт лежит в папке ТС. Создаваемые каталоги появляются рядом с ним же. Как это можно исправить? Еще вроде написано что скрипт может создавать файлы, но создаются только каталоги.[/url]
Не понимаю, зачем исправлять то, что вполне вписывается в существующую логику. Файл или папка создаётся в активной панели в зависимости от того, на каком элементе находится курсор.
Flasher, я нашел свою ошибку. Просто скрипт повесил на пользовательские команды. В строке Команда прописал файл скрипта, а в строке Путь запуска указал каталог ТС, где скрипт и находился. Это и приводило к тому, что создавалось рядом со скриптом.
Да, путь запуска очищать нужно, т.к. тут указывается имя без пути, поэтому за рабочий каталог воспринимается либо активный, либо тот, который указан напрямую.
У меня notepad++, который при запуске команды создания файла %COMMANDER_PATH%\Notepad++\notepad++.exe с параметром %Pnew.txt переспрашивает "Create it?"
Как этого избежать? А еще лучше: чтоб всплывал диалог названия нового файла. Попытался создать кнопку через приведенный выше скрипт, но обработчик Явы на него ругается
Любой Путь верный, что ведёт к Добру и Свету
------------
Win7x64, TC 7.56a
