|
CreateFile.vbs - Создание различных типов файлов
|
|
| Andrey_A | Дата: Вторник, 03.04.2012, 17:18 | Сообщение № 1 |
Генералиссимус
На сайте с: 26.01.2012
Город: Сочи, Хоста
Сообщений: 7167
Награды: 139
Репутация: 125
Аверин Андрей
|
Создание различных типов файлов
Используется скрипт Functions.vbs - Скрипт с различными Функциями, которые можно использовать в других скриптах
[hide]Код ' CreateFile.vbs
'======================== Описание =====================================
' Создание различных типов файлов
'======================= Параметры ======================================
' 1-й параметр:
' 0 - Создать документ
' 1 - Создать документ с содержимым из буфера обмена
' 2 - Создать документ из выделенного
' 3 - Вставить из буфера в документ без имени и сохранить
' 4 - Сохранить документ без имени и внести в список
' если 4-й параметр "?", то сохраняется безымянная вкладка без расширения с числовым именем
' 2-й параметр: Путь куда сохранять (можно использовать относительные пути)
' "" - папка по умолчанию, берётся из файла SettingSave.ini
' "%d" - путь текущего файла
' 3-й параметр: Имя
' - если параметр = "%f" - имя будет взято из активного файла
' - если параметр = "-1" - имя берётся из диалога
' 4-й параметр: Расширение
' (если параметр = "%f" - расширение будет взято из активного файла)
' (если параметр = "-1" - будет выведено диалог для ввода расширения)
' 5-й параметр: Кодировка сохранения (если не указана используется текущая кодировка)
' 6-й параметр: Сигнатура BOM файла. 1 - присутствует, 0 - отсутствует
'======================== Примеры ======================================
' -"Сохранить файл в TXT в папке Scripts" Call("Scripts::Main", 1, "CreateFile.vbs", `4 "%a\AkelFiles\Plugs\Scripts" "New" "txt"`)
' -"Создать файл txt в C:\ , имя вводится в диалоге" Call("Scripts::Main", 1, "CreateFile.vbs", `0 "C:\" -1 txt`)
' -"Сохранить безымянную вкладку числовым именем, без расширения" Call("Scripts::Main", 1, "CreateFile.vbs", `4 "" "1" "?"`)
' используется Functions.vbs, который следует положить в ...AkelFiles\Plugs\Scripts\Include\
' Автор: Аверин Андрей
' Версия: 1.9 (16.09.2011 - 01.02.2020)
' Mail: Averin-And@yandex.ru
' Site: http://tc-image.3dn.ru/forum/9-343-1064-16-1333459119
'===========================================================================
N = 0 : CodePage = -1 : Bom = -1 : Num=0
With WScript Cnt = .Arguments.Count
If Cnt > 0 Then
N = .Arguments(0)
If Cnt > 1 Then
Path = .Arguments(1)
If Cnt > 2 Then
Name = .Arguments(2)
If Cnt > 3 Then
Ext = .Arguments(3)
If Cnt > 4 Then
CodePage = .Arguments(4) : If Bom > 5 Then Delim = .Arguments(5)
End If
End If
End If
End If
End If
End With
With AkelPad .Include("Functions.vbs") : hMainWnd=.GetMainWnd
If Len(Path) = 0 Then Path = ReadOption("IMAGE", "SaveDir", 3)
Path = GetPath(Path)
If Right(Path, 1) <> "\" Then Path = Path & "\"
If Not FFExists(Path,2) Then CreateFolderInPath Path
If Name = "-1" Then
Name = AkelPad.InputBox(hMainWnd, "Создание файла", "Введите имя для создаваемого файла", "Name")
If IsEmpty(Name) Then WScript.Quit
End If
If Len(Name) = 0 Then
Name = ReadOption("IMAGE", "SaveName", 3)
Else
If InStr(Name, "/") > 0 Then Name = GetFF(Name, 2)
End If
If Ext = "-1" Then
Ext = AkelPad.InputBox(hMainWnd, "Создание файла", "Введите расширение для создаваемого файла", "xxx")
If IsEmpty(Ext) Then WScript.Quit
End If
If Len(Ext) = 0 Then
Ext = ".txt"
ElseIf Ext="?" Then
Ext=""
Num=1
Else
If InStr(Ext, "/") > 0 Then Ext = GetFF(Ext, 1)
Ext = "." & Ext
End If
newFile=Path & Name & Ext
If Num=0 Then
newFile = FFNoExistCount(newFile)
Else ' создание безымянной вкладке без расширения
Name = CInt(Name)
Set FSO = CreateObject("Scripting.FileSystemObject")
Do While (FSO.FileExists(newFile) Or FSO.FolderExists(newFile))
Name = Name + 1
newFile=Path & Name & Ext
Loop
newFile = newFile & "."
Set FSO = Nothing
End If
Select Case N
Case 0 cmd 4101 : SSaveFile
Case 1 cmd 4101 : .ReplaceSel(.GetClipboardText) : SSaveFile
Case 2 Txt = .GetSelText : cmd 4101 : If Len(Txt) > 0 Then .ReplaceSel(Txt) : SSaveFile
Case 3 If Len(.GetEditFile(0)) = 0 Then .ReplaceSel .GetClipboardText : SSaveFile : End If
Case 4 If Len(.GetEditFile(0)) = 0 Then SSaveFile
End Select
End With
Sub SSaveFile
With AkelPad .SendMessage .GetMainWnd, 1146, 128, 0
.SaveFile 0, newFile, CodePage, Bom
If Len(.GetEditFile(0)) = 0 Then .SaveFile 0, newFile, 65001, 1
End With
End Sub
|
| |
| |
| shveicar | Дата: Понедельник, 18.03.2013, 16:37 | Сообщение № 2 |
|
|
День добрый.
Позволил себе - сделать небольшое дополнение к данному скрипту (если в имени файла параметр = "-1" - будет выведено диалог для ввода имени)
Заменить
Доступно только для пользователей
на
Доступно только для пользователей
Прошу Автора - внести изменение в скрипт. Пытался добавить еще параметр, для взятия имени файла из первой строки, но пока не выходит. Если можно - то просьба также добавить данный функционал. Спасибо.
|
| |
| |
| Andrey_A | Дата: Вторник, 23.12.2014, 14:24 | Сообщение № 3 |
Генералиссимус
На сайте с: 26.01.2012
Город: Сочи, Хоста
Сообщений: 7167
Награды: 139
Репутация: 125
Аверин Андрей
|
Цитата shveicar (  ) Прошу Автора - внести изменение в скрипт
Добавил... не прошло и 2 года (видимо пропустил)
Заодно примеры:
Код
"Сохранить безымянный в папку по умолчанию" Icon("%a\AkelPadImage.dll",367)
{
-"Сохранить в файл ...TXT" Call("Scripts::Main", 1, "CreateFile.vbs", `4 "" "" txt`) Icon("%a\AkelPadImage.dll",89)
-"Сохранить в файл ...XXX" Call("Scripts::Main", 1, "CreateFile.vbs", `4 "" "" -1`) Icon("%a\AkelPadImage.dll",89)
-"Сохранить в файл ...Read_me.txt" Call("Scripts::Main", 1, "CreateFile.vbs", `4 "" Read_me txt`) Icon("%a\AkelPadImage.dll",333)
-"Сохранить в файл ...INI" Call("Scripts::Main", 1, "CreateFile.vbs", `4 "" "" ini`) Icon("%a\AkelPadImage.dll",91)
SEPARATOR
-"Сохранить в файл ...VBS" Call("Scripts::Main", 1, "CreateFile.vbs", `4 "" "" vbs`) Icon("%a\AkelPadImage.dll",328)
-"Сохранить в файл ...JS" Call("Scripts::Main", 1, "CreateFile.vbs", `4 "" "" js`) Icon("%a\AkelPadImage.dll",327)
-"Сохранить в файл ...AU3" Call("Scripts::Main", 1, "CreateFile.vbs", `4 "" "" au3`) Icon("%a\AkelPadImage.dll",332)
-"Сохранить в файл ...AHK" Call("Scripts::Main", 1, "CreateFile.vbs", `4 "" "" ahk`) Icon("%a\AkelPadImage.dll",334)
-"Сохранить в файл ...HTA" Call("Scripts::Main", 1, "CreateFile.vbs", `4 "" "" hta`) Icon("%a\AkelPadImage.dll",805)
SEPARATOR
-"Сохранить в файл ...HTM" Call("Scripts::Main", 1, "CreateFile.vbs", `4 "" "" htm`) Icon("%a\AkelPadImage.dll",919)
-"Сохранить в файл ...HTML" Call("Scripts::Main", 1, "CreateFile.vbs", `4 "" "" html`) Icon("%a\AkelPadImage.dll",918)
-"Сохранить в файл ...XML" Call("Scripts::Main", 1, "CreateFile.vbs", `4 "" "" xml`) Icon("%a\AkelPadImage.dll",97)
SEPARATOR
-"Изменить &меню..." Call("Scripts::Main", 1, "SettingContextMenuFont.vbs", `1 "Сохранить в файл папку по умолчанию"`) Icon("%a\AkelPadImage.dll",93)
}
"Сохранить безымянный в Scripts..." Icon("%a\AkelPadImage.dll",367)
{
-"Сохранить в файл ...TXT" Call("Scripts::Main", 1, "CreateFile.vbs", `4 "%a\AkelFiles\Plugs\Scripts" "" txt`) Icon("%a\AkelPadImage.dll",89)
-"Сохранить в файл ...XXX" Call("Scripts::Main", 1, "CreateFile.vbs", `4 "%a\AkelFiles\Plugs\Scripts" "" -1`) Icon("%a\AkelPadImage.dll",89)
-"Сохранить в файл ...Read_me.txt" Call("Scripts::Main", 1, "CreateFile.vbs", `4 "%a\AkelFiles\Plugs\Scripts" Read_me txt`) Icon("%a\AkelPadImage.dll",333)
-"Сохранить в файл ...INI" Call("Scripts::Main", 1, "CreateFile.vbs", `4 "%a\AkelFiles\Plugs\Scripts" "" ini`) Icon("%a\AkelPadImage.dll",91)
SEPARATOR
-"Сохранить в файл ...VBS" Call("Scripts::Main", 1, "CreateFile.vbs", `4 "%a\AkelFiles\Plugs\Scripts" "" vbs`) Icon("%a\AkelPadImage.dll",328)
-"Сохранить в файл ...JS" Call("Scripts::Main", 1, "CreateFile.vbs", `4 "%a\AkelFiles\Plugs\Scripts" "" js`) Icon("%a\AkelPadImage.dll",327)
-"Сохранить в файл ...AU3" Call("Scripts::Main", 1, "CreateFile.vbs", `4 "%a\AkelFiles\Plugs\Scripts" "" au3`) Icon("%a\AkelPadImage.dll",332)
-"Сохранить в файл ...AHK" Call("Scripts::Main", 1, "CreateFile.vbs", `4 "%a\AkelFiles\Plugs\Scripts" "" ahk`) Icon("%a\AkelPadImage.dll",334)
-"Сохранить в файл ...HTA" Call("Scripts::Main", 1, "CreateFile.vbs", `4 "%a\AkelFiles\Plugs\Scripts" "" hta`) Icon("%a\AkelPadImage.dll",805)
SEPARATOR
-"Сохранить в файл ...HTM" Call("Scripts::Main", 1, "CreateFile.vbs", `4 "%a\AkelFiles\Plugs\Scripts" "" htm`) Icon("%a\AkelPadImage.dll",919)
-"Сохранить в файл ...HTML" Call("Scripts::Main", 1, "CreateFile.vbs", `4 "%a\AkelFiles\Plugs\Scripts" "" html`) Icon("%a\AkelPadImage.dll",918)
-"Сохранить в файл ...XML" Call("Scripts::Main", 1, "CreateFile.vbs", `4 "%a\AkelFiles\Plugs\Scripts" "" xml`) Icon("%a\AkelPadImage.dll",97)
}
"Сохранить безымянный на Рабочий стол" Icon("%a\AkelPadImage.dll",367)
{
-"Сохранить в файл ...TXT" Call("Scripts::Main", 1, "CreateFile.vbs", `4 "%%ALLUSERSPROFILE%%\Рабочий стол" "" txt`) Icon("%a\AkelPadImage.dll",89)
-"Сохранить в файл ...XXX" Call("Scripts::Main", 1, "CreateFile.vbs", `4 "%%ALLUSERSPROFILE%%\Рабочий стол" "" -Я`) Icon("%a\AkelPadImage.dll",89)
-"Сохранить в файл ...Read_me.txt" Call("Scripts::Main", 1, "CreateFile.vbs", `4 "%%ALLUSERSPROFILE%%\Рабочий стол" Read_me txt`) Icon("%a\AkelPadImage.dll",333)
-"Сохранить в файл ...INI" Call("Scripts::Main", 1, "CreateFile.vbs", `4 "%%ALLUSERSPROFILE%%\Рабочий стол" "" ini`) Icon("%a\AkelPadImage.dll",91)
SEPARATOR
-"Сохранить в файл ...VBS" Call("Scripts::Main", 1, "CreateFile.vbs", `4 "%%ALLUSERSPROFILE%%\Рабочий стол" "" vbs`) Icon("%a\AkelPadImage.dll",328)
-"Сохранить в файл ...JS" Call("Scripts::Main", 1, "CreateFile.vbs", `4 "%%ALLUSERSPROFILE%%\Рабочий стол" "" js`) Icon("%a\AkelPadImage.dll",327)
-"Сохранить в файл ...AU3" Call("Scripts::Main", 1, "CreateFile.vbs", `4 "%%ALLUSERSPROFILE%%\Рабочий стол" "" au3`) Icon("%a\AkelPadImage.dll",332)
-"Сохранить в файл ...AHK" Call("Scripts::Main", 1, "CreateFile.vbs", `4 "%%ALLUSERSPROFILE%%\Рабочий стол" "" ahk`) Icon("%a\AkelPadImage.dll",334)
-"Сохранить в файл ...HTA" Call("Scripts::Main", 1, "CreateFile.vbs", `4 "%%ALLUSERSPROFILE%%\Рабочий стол" "" hta`) Icon("%a\AkelPadImage.dll",805)
SEPARATOR
-"Сохранить в файл ...HTM" Call("Scripts::Main", 1, "CreateFile.vbs", `4 "%%ALLUSERSPROFILE%%\Рабочий стол" "" htm`) Icon("%a\AkelPadImage.dll",919)
-"Сохранить в файл ...HTML" Call("Scripts::Main", 1, "CreateFile.vbs", `4 "%%ALLUSERSPROFILE%%\Рабочий стол" "" html`) Icon("%a\AkelPadImage.dll",918)
-"Сохранить в файл ...XML" Call("Scripts::Main", 1, "CreateFile.vbs", `4 "%%ALLUSERSPROFILE%%\Рабочий стол" "" xml`) Icon("%a\AkelPadImage.dll",97)
}
SEPARATOR SEPARATOR
"Сохр. именем 1-й строки в папку по умолчанию" Icon("%a\AkelPadImage.dll",367)
{
-"Сохранить в файл ...TXT" Call("Scripts::Main", 1, "SaveFileNameFirstLine.vbs", `"" txt 0`) Icon("%a\AkelPadImage.dll",89)
-"Сохранить в файл ...XXX" Call("Scripts::Main", 1, "SaveFileNameFirstLine.vbs", `"" -1 0`) Icon("%a\AkelPadImage.dll",89)
-"Сохранить в файл ...Read_me.txt" Call("Scripts::Main", 1, "SaveFileNameFirstLine.vbs", `Read_me txt 0`) Icon("%a\AkelPadImage.dll",333)
-"Сохранить в файл ...INI" Call("Scripts::Main", 1, "SaveFileNameFirstLine.vbs", `"" ini 0`) Icon("%a\AkelPadImage.dll",91)
SEPARATOR
-"Сохранить в файл ...VBS" Call("Scripts::Main", 1, "SaveFileNameFirstLine.vbs", `"" vbs 0`) Icon("%a\AkelPadImage.dll",328)
-"Сохранить в файл ...JS" Call("Scripts::Main", 1, "SaveFileNameFirstLine.vbs", `"" js 0`) Icon("%a\AkelPadImage.dll",327)
-"Сохранить в файл ...AU3" Call("Scripts::Main", 1, "SaveFileNameFirstLine.vbs", `"" au3 0`) Icon("%a\AkelPadImage.dll",332)
-"Сохранить в файл ...AHK" Call("Scripts::Main", 1, "SaveFileNameFirstLine.vbs", `"" ahk 0`) Icon("%a\AkelPadImage.dll",334)
-"Сохранить в файл ...HTA" Call("Scripts::Main", 1, "SaveFileNameFirstLine.vbs", `"" hta 0`) Icon("%a\AkelPadImage.dll",805)
SEPARATOR
-"Сохранить в файл ...HTM" Call("Scripts::Main", 1, "SaveFileNameFirstLine.vbs", `"" htm 0`) Icon("%a\AkelPadImage.dll",919)
-"Сохранить в файл ...HTML" Call("Scripts::Main", 1, "SaveFileNameFirstLine.vbs", `"" html 0`) Icon("%a\AkelPadImage.dll",918)
-"Сохранить в файл ...XML" Call("Scripts::Main", 1, "SaveFileNameFirstLine.vbs", `"" xml 0`) Icon("%a\AkelPadImage.dll",97)
SEPARATOR
-"Изменить &меню..." Call("Scripts::Main", 1, "SettingContextMenuFont.vbs", `1 "Сохранить безымянный именем первой строки" 0`) Icon("%a\AkelPadImage.dll",93)
}
"Создать пустой файл в папку по умолчанию" Icon("%a\AkelPadImage.dll",35)
{
-"Создать пустой файл в ...TXT" Call("Scripts::Main", 1, "CreateFile.vbs", `0 "" "" txt`) Icon("%a\AkelPadImage.dll",89)
-"Создать пустой файл в ...XXX" Call("Scripts::Main", 1, "CreateFile.vbs", `0 "" "" -1`) Icon("%a\AkelPadImage.dll",89)
-"Создать пустой файл в ...Read_me.txt" Call("Scripts::Main", 1, "CreateFile.vbs", `0 "" Read_me txt`) Icon("%a\AkelPadImage.dll",333)
-"Создать пустой файл в ...INI" Call("Scripts::Main", 1, "CreateFile.vbs", `0 "" "" ini`) Icon("%a\AkelPadImage.dll",91)
SEPARATOR
-"Создать пустой файл в ...VBS" Call("Scripts::Main", 1, "CreateFile.vbs", `0 "" "" vbs`) Icon("%a\AkelPadImage.dll",328)
-"Создать пустой файл в ...JS" Call("Scripts::Main", 1, "CreateFile.vbs", `0 "" "" js`) Icon("%a\AkelPadImage.dll",327)
-"Создать пустой файл в ...AU3" Call("Scripts::Main", 1, "CreateFile.vbs", `0 "" "" au3`) Icon("%a\AkelPadImage.dll",332)
-"Создать пустой файл в ...AHK" Call("Scripts::Main", 1, "CreateFile.vbs", `0 "" "" ahk`) Icon("%a\AkelPadImage.dll",334)
-"Создать пустой файл в ...HTA" Call("Scripts::Main", 1, "CreateFile.vbs", `0 "" "" hta`) Icon("%a\AkelPadImage.dll",805)
SEPARATOR
-"Создать пустой файл в ...HTM" Call("Scripts::Main", 1, "CreateFile.vbs", `0 "" "" htm`) Icon("%a\AkelPadImage.dll",919)
-"Создать пустой файл в ...HTML" Call("Scripts::Main", 1, "CreateFile.vbs", `0 "" "" html`) Icon("%a\AkelPadImage.dll",918)
-"Создать пустой файл в ...XML" Call("Scripts::Main", 1, "CreateFile.vbs", `0 "" "" xml`) Icon("%a\AkelPadImage.dll",97)
}
"Создать пустой файл в Scripts..." Icon("%a\AkelPadImage.dll",35)
{
-"Создать пустой файл в ...TXT" Call("Scripts::Main", 1, "CreateFile.vbs", `0 "%a\AkelFiles\Plugs\Scripts" "" txt`) Icon("%a\AkelPadImage.dll",89)
-"Создать пустой файл в ...XXX" Call("Scripts::Main", 1, "CreateFile.vbs", `0 "%a\AkelFiles\Plugs\Scripts" "" -1`) Icon("%a\AkelPadImage.dll",89)
-"Создать пустой файл в ...Read_me.txt" Call("Scripts::Main", 1, "CreateFile.vbs", `0 "%a\AkelFiles\Plugs\Scripts" Read_me txt`) Icon("%a\AkelPadImage.dll",333)
-"Создать пустой файл в ...INI" Call("Scripts::Main", 1, "CreateFile.vbs", `0 "%a\AkelFiles\Plugs\Scripts" "" ini`) Icon("%a\AkelPadImage.dll",91)
SEPARATOR
-"Создать пустой файл в ...VBS" Call("Scripts::Main", 1, "CreateFile.vbs", `0 "%a\AkelFiles\Plugs\Scripts" "" vbs`) Icon("%a\AkelPadImage.dll",328)
-"Создать пустой файл в ...JS" Call("Scripts::Main", 1, "CreateFile.vbs", `0 "%a\AkelFiles\Plugs\Scripts" "" js`) Icon("%a\AkelPadImage.dll",327)
-"Создать пустой файл в ...AU3" Call("Scripts::Main", 1, "CreateFile.vbs", `0 "%a\AkelFiles\Plugs\Scripts" "" au3`) Icon("%a\AkelPadImage.dll",332)
-"Создать пустой файл в ...AHK" Call("Scripts::Main", 1, "CreateFile.vbs", `0 "%a\AkelFiles\Plugs\Scripts" "" ahk`) Icon("%a\AkelPadImage.dll",334)
-"Создать пустой файл в ...HTA" Call("Scripts::Main", 1, "CreateFile.vbs", `0 "%a\AkelFiles\Plugs\Scripts" "" hta`) Icon("%a\AkelPadImage.dll",805)
SEPARATOR
-"Создать пустой файл в ...HTM" Call("Scripts::Main", 1, "CreateFile.vbs", `0 "%a\AkelFiles\Plugs\Scripts" "" htm`) Icon("%a\AkelPadImage.dll",919)
-"Создать пустой файл в ...HTML" Call("Scripts::Main", 1, "CreateFile.vbs", `0 "%a\AkelFiles\Plugs\Scripts" "" html`) Icon("%a\AkelPadImage.dll",918)
-"Создать пустой файл в ...XML" Call("Scripts::Main", 1, "CreateFile.vbs", `0 "%a\AkelFiles\Plugs\Scripts" "" xml`) Icon("%a\AkelPadImage.dll",97)
SEPARATOR
-"Изменить &меню..." Call("Scripts::Main", 1, "SettingContextMenuFont.vbs", `1 "Создать пустой файл в Scripts..."`) Icon("%a\AkelPadImage.dll",93)
}
"Создать пустой файл на Рабочем столе" Icon("%a\AkelPadImage.dll",35)
{
-"Создать пустой файл в ...TXT" Call("Scripts::Main", 1, "CreateFile.vbs", `0 "%%ALLUSERSPROFILE%%\Рабочий стол" "" txt`) Icon("%a\AkelPadImage.dll",89)
-"Создать пустой файл в ...XXX" Call("Scripts::Main", 1, "CreateFile.vbs", `0 "%%ALLUSERSPROFILE%%\Рабочий стол" "" -1`) Icon("%a\AkelPadImage.dll",89)
-"Создать пустой файл в ...Read_me.txt" Call("Scripts::Main", 1, "CreateFile.vbs", `0 "%%ALLUSERSPROFILE%%\Рабочий стол" Read_me txt`) Icon("%a\AkelPadImage.dll",333)
-"Создать пустой файл в ...INI" Call("Scripts::Main", 1, "CreateFile.vbs", `0 "%%ALLUSERSPROFILE%%\Рабочий стол" "" ini`) Icon("%a\AkelPadImage.dll",91)
SEPARATOR
-"Создать пустой файл в ...VBS" Call("Scripts::Main", 1, "CreateFile.vbs", `0 "%%ALLUSERSPROFILE%%\Рабочий стол" "" vbs`) Icon("%a\AkelPadImage.dll",328)
-"Создать пустой файл в ...JS" Call("Scripts::Main", 1, "CreateFile.vbs", `0 "%%ALLUSERSPROFILE%%\Рабочий стол" "" js`) Icon("%a\AkelPadImage.dll",327)
-"Создать пустой файл в ...AU3" Call("Scripts::Main", 1, "CreateFile.vbs", `0 "%%ALLUSERSPROFILE%%\Рабочий стол" "" au3`) Icon("%a\AkelPadImage.dll",332)
-"Создать пустой файл в ...AHK" Call("Scripts::Main", 1, "CreateFile.vbs", `0 "%%ALLUSERSPROFILE%%\Рабочий стол" "" ahk`) Icon("%a\AkelPadImage.dll",334)
-"Создать пустой файл в ...HTA" Call("Scripts::Main", 1, "CreateFile.vbs", `0 "%%ALLUSERSPROFILE%%\Рабочий стол" "" hta`) Icon("%a\AkelPadImage.dll",805)
SEPARATOR
-"Создать пустой файл в ...HTM" Call("Scripts::Main", 1, "CreateFile.vbs", `0 "%%ALLUSERSPROFILE%%\Рабочий стол" "" htm`) Icon("%a\AkelPadImage.dll",919)
-"Создать пустой файл в ...HTML" Call("Scripts::Main", 1, "CreateFile.vbs", `0 "%%ALLUSERSPROFILE%%\Рабочий стол" "" html`) Icon("%a\AkelPadImage.dll",918)
-"Создать пустой файл в ...XML" Call("Scripts::Main", 1, "CreateFile.vbs", `0 "%%ALLUSERSPROFILE%%\Рабочий стол" "" xml`) Icon("%a\AkelPadImage.dll",97)
}
"Создать пустой файл в текущей папке" Icon("%a\AkelPadImage.dll",35)
{
-"Создать пустой файл в ...TXT" Call("Scripts::Main", 1, "CreateFile.vbs", `0 "%d" "" txt`) Icon("%a\AkelPadImage.dll",89)
-"Создать пустой файл в ...XXX" Call("Scripts::Main", 1, "CreateFile.vbs", `0 "%d" "" -1`) Icon("%a\AkelPadImage.dll",89)
-"Создать пустой файл в ...Read_me.txt" Call("Scripts::Main", 1, "CreateFile.vbs", `0 "%d" Read_me txt`) Icon("%a\AkelPadImage.dll",333)
-"Создать пустой файл в ...INI" Call("Scripts::Main", 1, "CreateFile.vbs", `0 "%d" "" ini`) Icon("%a\AkelPadImage.dll",91)
SEPARATOR
-"Создать пустой файл в ...VBS" Call("Scripts::Main", 1, "CreateFile.vbs", `0 "%d" "" vbs`) Icon("%a\AkelPadImage.dll",328)
-"Создать пустой файл в ...JS" Call("Scripts::Main", 1, "CreateFile.vbs", `0 "%d" "" js`) Icon("%a\AkelPadImage.dll",327)
-"Создать пустой файл в ...AU3" Call("Scripts::Main", 1, "CreateFile.vbs", `0 "%d" "" au3`) Icon("%a\AkelPadImage.dll",332)
-"Создать пустой файл в ...AHK" Call("Scripts::Main", 1, "CreateFile.vbs", `0 "%d" "" ahk`) Icon("%a\AkelPadImage.dll",334)
-"Создать пустой файл в ...HTA" Call("Scripts::Main", 1, "CreateFile.vbs", `0 "%d" "" hta`) Icon("%a\AkelPadImage.dll",805)
SEPARATOR
-"Создать пустой файл в ...HTM" Call("Scripts::Main", 1, "CreateFile.vbs", `0 "%d" "" htm`) Icon("%a\AkelPadImage.dll",919)
-"Создать пустой файл в ...HTML" Call("Scripts::Main", 1, "CreateFile.vbs", `0 "%d" "" html`) Icon("%a\AkelPadImage.dll",918)
-"Создать пустой файл в ...XML" Call("Scripts::Main", 1, "CreateFile.vbs", `0 "%d" "" xml`) Icon("%a\AkelPadImage.dll",97)
}
"Создать из буфера в папку по умолчанию" Icon("%a\AkelPadImage.dll",36)
{
-"Создать из буфера в ...TXT" Call("Scripts::Main", 1, "CreateFile.vbs", `1 "" "" txt`) Icon("%a\AkelPadImage.dll",89)
-"Создать из буфера в ...XXX" Call("Scripts::Main", 1, "CreateFile.vbs", `1 "" "" -1`) Icon("%a\AkelPadImage.dll",89)
-"Создать из буфера в ...Read_me.txt" Call("Scripts::Main", 1, "CreateFile.vbs", `1 "" Read_me txt`) Icon("%a\AkelPadImage.dll",333)
-"Создать из буфера в ...INI" Call("Scripts::Main", 1, "CreateFile.vbs", `1 "" "" ini`) Icon("%a\AkelPadImage.dll",91)
SEPARATOR
-"Создать из буфера в ...VBS" Call("Scripts::Main", 1, "CreateFile.vbs", `1 "" "" vbs`) Icon("%a\AkelPadImage.dll",328)
-"Создать из буфера в ...JS" Call("Scripts::Main", 1, "CreateFile.vbs", `1 "" "" js`) Icon("%a\AkelPadImage.dll",327)
-"Создать из буфера в ...AU3" Call("Scripts::Main", 1, "CreateFile.vbs", `1 "" "" au3`) Icon("%a\AkelPadImage.dll",332)
-"Создать из буфера в ...AHK" Call("Scripts::Main", 1, "CreateFile.vbs", `1 "" "" ahk`) Icon("%a\AkelPadImage.dll",334)
-"Создать из буфера в ...HTA" Call("Scripts::Main", 1, "CreateFile.vbs", `1 "" "" hta`) Icon("%a\AkelPadImage.dll",805)
SEPARATOR
-"Создать из буфера в ...HTM" Call("Scripts::Main", 1, "CreateFile.vbs", `1 "" "" htm`) Icon("%a\AkelPadImage.dll",919)
-"Создать из буфера в ...HTML" Call("Scripts::Main", 1, "CreateFile.vbs", `1 "" "" html`) Icon("%a\AkelPadImage.dll",918)
-"Создать из буфера в ...XML" Call("Scripts::Main", 1, "CreateFile.vbs", `1 "" "" xml`) Icon("%a\AkelPadImage.dll",97)
}
"Создать из буфера в Scripts..." Icon("%a\AkelPadImage.dll",36)
{
-"Создать из буфера в ...TXT" Call("Scripts::Main", 1, "CreateFile.vbs", `1 "%a\AkelFiles\Plugs\Scripts" "" txt`) Icon("%a\AkelPadImage.dll",89)
-"Создать из буфера в ...XXX" Call("Scripts::Main", 1, "CreateFile.vbs", `1 "%a\AkelFiles\Plugs\Scripts" "" -1`) Icon("%a\AkelPadImage.dll",89)
-"Создать из буфера в ...Read_me.txt" Call("Scripts::Main", 1, "CreateFile.vbs", `1 "%a\AkelFiles\Plugs\Scripts" Read_me txt`) Icon("%a\AkelPadImage.dll",333)
-"Создать из буфера в ...INI" Call("Scripts::Main", 1, "CreateFile.vbs", `1 "%a\AkelFiles\Plugs\Scripts" "" ini`) Icon("%a\AkelPadImage.dll",91)
SEPARATOR
-"Создать из буфера в ...VBS" Call("Scripts::Main", 1, "CreateFile.vbs", `1 "%a\AkelFiles\Plugs\Scripts" "" vbs`) Icon("%a\AkelPadImage.dll",328)
-"Создать из буфера в ...JS" Call("Scripts::Main", 1, "CreateFile.vbs", `1 "%a\AkelFiles\Plugs\Scripts" "" js`) Icon("%a\AkelPadImage.dll",327)
-"Создать из буфера в ...AU3" Call("Scripts::Main", 1, "CreateFile.vbs", `1 "%a\AkelFiles\Plugs\Scripts" "" au3`) Icon("%a\AkelPadImage.dll",332)
-"Создать из буфера в ...AHK" Call("Scripts::Main", 1, "CreateFile.vbs", `1 "%a\AkelFiles\Plugs\Scripts" "" ahk`) Icon("%a\AkelPadImage.dll",334)
-"Создать из буфера в ...HTA" Call("Scripts::Main", 1, "CreateFile.vbs", `1 "%a\AkelFiles\Plugs\Scripts" "" hta`) Icon("%a\AkelPadImage.dll",805)
SEPARATOR
-"Создать из буфера в ...HTM" Call("Scripts::Main", 1, "CreateFile.vbs", `1 "%a\AkelFiles\Plugs\Scripts" "" htm`) Icon("%a\AkelPadImage.dll",919)
-"Создать из буфера в ...HTML" Call("Scripts::Main", 1, "CreateFile.vbs", `1 "%a\AkelFiles\Plugs\Scripts" "" html`) Icon("%a\AkelPadImage.dll",918)
-"Создать из буфера в ...XML" Call("Scripts::Main", 1, "CreateFile.vbs", `1 "%a\AkelFiles\Plugs\Scripts" "" xml`) Icon("%a\AkelPadImage.dll",97)
}
"Создать из буфера на Рабочем столе" Icon("%a\AkelPadImage.dll",36)
{
-"Создать из буфера в ...TXT" Call("Scripts::Main", 1, "CreateFile.vbs", `1 "%%ALLUSERSPROFILE%%\Рабочий стол" "" txt`) Icon("%a\AkelPadImage.dll",89)
-"Создать из буфера в ...XXX" Call("Scripts::Main", 1, "CreateFile.vbs", `1 "%%ALLUSERSPROFILE%%\Рабочий стол" "" -1`) Icon("%a\AkelPadImage.dll",89)
-"Создать из буфера в ...Read_me.txt" Call("Scripts::Main", 1, "CreateFile.vbs", `1 "%%ALLUSERSPROFILE%%\Рабочий стол" Read_me txt`) Icon("%a\AkelPadImage.dll",333)
-"Создать из буфера в ...INI" Call("Scripts::Main", 1, "CreateFile.vbs", `1 "%%ALLUSERSPROFILE%%\Рабочий стол" "" ini`) Icon("%a\AkelPadImage.dll",91)
SEPARATOR
-"Создать из буфера в ...VBS" Call("Scripts::Main", 1, "CreateFile.vbs", `1 "%%ALLUSERSPROFILE%%\Рабочий стол" "" vbs`) Icon("%a\AkelPadImage.dll",328)
-"Создать из буфера в ...JS" Call("Scripts::Main", 1, "CreateFile.vbs", `1 "%%ALLUSERSPROFILE%%\Рабочий стол" "" js`) Icon("%a\AkelPadImage.dll",327)
-"Создать из буфера в ...AU3" Call("Scripts::Main", 1, "CreateFile.vbs", `1 "%%ALLUSERSPROFILE%%\Рабочий стол" "" au3`) Icon("%a\AkelPadImage.dll",332)
-"Создать из буфера в ...AHK" Call("Scripts::Main", 1, "CreateFile.vbs", `1 "%%ALLUSERSPROFILE%%\Рабочий стол" "" ahk`) Icon("%a\AkelPadImage.dll",334)
-"Создать из буфера в ...HTA" Call("Scripts::Main", 1, "CreateFile.vbs", `1 "%%ALLUSERSPROFILE%%\Рабочий стол" "" hta`) Icon("%a\AkelPadImage.dll",805)
SEPARATOR
-"Создать из буфера в ...HTM" Call("Scripts::Main", 1, "CreateFile.vbs", `1 "%%ALLUSERSPROFILE%%\Рабочий стол" "" htm`) Icon("%a\AkelPadImage.dll",919)
-"Создать из буфера в ...HTML" Call("Scripts::Main", 1, "CreateFile.vbs", `1 "%%ALLUSERSPROFILE%%\Рабочий стол" "" html`) Icon("%a\AkelPadImage.dll",918)
-"Создать из буфера в ...XML" Call("Scripts::Main", 1, "CreateFile.vbs", `1 "%%ALLUSERSPROFILE%%\Рабочий стол" "" xml`) Icon("%a\AkelPadImage.dll",97)
}
"Создать из буфера в текущей папке" Icon("%a\AkelPadImage.dll",36)
{
-"Создать из буфера в ...TXT" Call("Scripts::Main", 1, "CreateFile.vbs", `1 "%d" "" txt`) Icon("%a\AkelPadImage.dll",89)
-"Создать из буфера в ...XXX" Call("Scripts::Main", 1, "CreateFile.vbs", `1 "%d" "" -1`) Icon("%a\AkelPadImage.dll",89)
-"Создать из буфера в ...Read_me.txt" Call("Scripts::Main", 1, "CreateFile.vbs", `1 "%d" Read_me txt`) Icon("%a\AkelPadImage.dll",333)
-"Создать из буфера в ...INI" Call("Scripts::Main", 1, "CreateFile.vbs", `1 "%d" "" ini`) Icon("%a\AkelPadImage.dll",91)
SEPARATOR
-"Создать из буфера в ...VBS" Call("Scripts::Main", 1, "CreateFile.vbs", `1 "%d" "" vbs`) Icon("%a\AkelPadImage.dll",328)
-"Создать из буфера в ...JS" Call("Scripts::Main", 1, "CreateFile.vbs", `1 "%d" "" js`) Icon("%a\AkelPadImage.dll",327)
-"Создать из буфера в ...AU3" Call("Scripts::Main", 1, "CreateFile.vbs", `1 "%d" "" au3`) Icon("%a\AkelPadImage.dll",332)
-"Создать из буфера в ...AHK" Call("Scripts::Main", 1, "CreateFile.vbs", `1 "%d" "" ahk`) Icon("%a\AkelPadImage.dll",334)
-"Создать из буфера в ...HTA" Call("Scripts::Main", 1, "CreateFile.vbs", `1 "%d" "" hta`) Icon("%a\AkelPadImage.dll",805)
SEPARATOR
-"Создать из буфера в ...HTM" Call("Scripts::Main", 1, "CreateFile.vbs", `1 "%d" "" htm`) Icon("%a\AkelPadImage.dll",919)
-"Создать из буфера в ...HTML" Call("Scripts::Main", 1, "CreateFile.vbs", `1 "%d" "" html`) Icon("%a\AkelPadImage.dll",918)
-"Создать из буфера в ...XML" Call("Scripts::Main", 1, "CreateFile.vbs", `1 "%d" "" xml`) Icon("%a\AkelPadImage.dll",97)
SEPARATOR
-"Изменить &меню..." Call("Scripts::Main", 1, "SettingContextMenuFont.vbs", `1 "Создать из буфера в текущей папке"`) Icon("%a\AkelPadImage.dll",93)
}
"Создать из выделенного в папку по умолчанию" Icon("%a\AkelPadImage.dll",37)
{
-"Создать из выделенного в ...TXT" Call("Scripts::Main", 1, "CreateFile.vbs", `2 "" "" txt`) Icon("%a\AkelPadImage.dll",89)
-"Создать из выделенного в ...XXX" Call("Scripts::Main", 1, "CreateFile.vbs", `2 "" "" -1`) Icon("%a\AkelPadImage.dll",89)
-"Создать из выделенного в ...Read_me.txt" Call("Scripts::Main", 1, "CreateFile.vbs", `2 "" Read_me txt`) Icon("%a\AkelPadImage.dll",333)
-"Создать из выделенного в ...INI" Call("Scripts::Main", 1, "CreateFile.vbs", `2 "" "" ini`) Icon("%a\AkelPadImage.dll",91)
SEPARATOR
-"Создать из выделенного в ...VBS" Call("Scripts::Main", 1, "CreateFile.vbs", `2 "" "" vbs`) Icon("%a\AkelPadImage.dll",328)
-"Создать из выделенного в ...JS" Call("Scripts::Main", 1, "CreateFile.vbs", `2 "" "" js`) Icon("%a\AkelPadImage.dll",327)
-"Создать из выделенного в ...AU3" Call("Scripts::Main", 1, "CreateFile.vbs", `2 "" "" au3`) Icon("%a\AkelPadImage.dll",332)
-"Создать из выделенного в ...AHK" Call("Scripts::Main", 1, "CreateFile.vbs", `2 "" "" ahk`) Icon("%a\AkelPadImage.dll",334)
-"Создать из выделенного в ...HTA" Call("Scripts::Main", 1, "CreateFile.vbs", `2 "" "" hta`) Icon("%a\AkelPadImage.dll",805)
SEPARATOR
-"Создать из выделенного в ...HTM" Call("Scripts::Main", 1, "CreateFile.vbs", `2 "" "" htm`) Icon("%a\AkelPadImage.dll",919)
-"Создать из выделенного в ...HTML" Call("Scripts::Main", 1, "CreateFile.vbs", `2 "" "" html`) Icon("%a\AkelPadImage.dll",918)
-"Создать из выделенного в ...XML" Call("Scripts::Main", 1, "CreateFile.vbs", `2 "" "" xml`) Icon("%a\AkelPadImage.dll",97)
}
"Создать из выделенного в Scripts..." Icon("%a\AkelPadImage.dll",37)
{
-"Создать из выделенного в ...TXT" Call("Scripts::Main", 1, "CreateFile.vbs", `2 "%a\AkelFiles\Plugs\Scripts" "" txt`) Icon("%a\AkelPadImage.dll",89)
-"Создать из выделенного в ...XXX" Call("Scripts::Main", 1, "CreateFile.vbs", `2 "%a\AkelFiles\Plugs\Scripts" "" -1`) Icon("%a\AkelPadImage.dll",89)
-"Создать из выделенного в ...Read_me.txt" Call("Scripts::Main", 1, "CreateFile.vbs", `2 "%a\AkelFiles\Plugs\Scripts" Read_me txt`) Icon("%a\AkelPadImage.dll",333)
-"Создать из выделенного в ...INI" Call("Scripts::Main", 1, "CreateFile.vbs", `2 "%a\AkelFiles\Plugs\Scripts" "" ini`) Icon("%a\AkelPadImage.dll",91)
SEPARATOR
-"Создать из выделенного в ...VBS" Call("Scripts::Main", 1, "CreateFile.vbs", `2 "%a\AkelFiles\Plugs\Scripts" "" vbs`) Icon("%a\AkelPadImage.dll",328)
-"Создать из выделенного в ...JS" Call("Scripts::Main", 1, "CreateFile.vbs", `2 "%a\AkelFiles\Plugs\Scripts" "" js`) Icon("%a\AkelPadImage.dll",327)
-"Создать из выделенного в ...AU3" Call("Scripts::Main", 1, "CreateFile.vbs", `2 "%a\AkelFiles\Plugs\Scripts" "" au3`) Icon("%a\AkelPadImage.dll",332)
-"Создать из выделенного в ...AHK" Call("Scripts::Main", 1, "CreateFile.vbs", `2 "%a\AkelFiles\Plugs\Scripts" "" ahk`) Icon("%a\AkelPadImage.dll",334)
-"Создать из выделенного в ...HTA" Call("Scripts::Main", 1, "CreateFile.vbs", `2 "%a\AkelFiles\Plugs\Scripts" "" hta`) Icon("%a\AkelPadImage.dll",805)
SEPARATOR
-"Создать из выделенного в ...HTM" Call("Scripts::Main", 1, "CreateFile.vbs", `2 "%a\AkelFiles\Plugs\Scripts" "" htm`) Icon("%a\AkelPadImage.dll",919)
-"Создать из выделенного в ...HTML" Call("Scripts::Main", 1, "CreateFile.vbs", `2 "%a\AkelFiles\Plugs\Scripts" "" html`) Icon("%a\AkelPadImage.dll",918)
-"Создать из выделенного в ...XML" Call("Scripts::Main", 1, "CreateFile.vbs", `2 "%a\AkelFiles\Plugs\Scripts" "" xml`) Icon("%a\AkelPadImage.dll",97)
}
"Создать из выделенного на Рабочем столе" Icon("%a\AkelPadImage.dll",37)
{
-"Создать из выделенного в ...TXT" Call("Scripts::Main", 1, "CreateFile.vbs", `2 "%%ALLUSERSPROFILE%%\Рабочий стол" "" txt`) Icon("%a\AkelPadImage.dll",89)
-"Создать из выделенного в ...XXX" Call("Scripts::Main", 1, "CreateFile.vbs", `2 "%%ALLUSERSPROFILE%%\Рабочий стол" "" -1`) Icon("%a\AkelPadImage.dll",89)
-"Создать из выделенного в ...Read_me.txt" Call("Scripts::Main", 1, "CreateFile.vbs", `2 "%%ALLUSERSPROFILE%%\Рабочий стол" Read_me txt`) Icon("%a\AkelPadImage.dll",333)
-"Создать из выделенного в ...INI" Call("Scripts::Main", 1, "CreateFile.vbs", `2 "%%ALLUSERSPROFILE%%\Рабочий стол" "" ini`) Icon("%a\AkelPadImage.dll",91)
SEPARATOR
-"Создать из выделенного в ...VBS" Call("Scripts::Main", 1, "CreateFile.vbs", `2 "%%ALLUSERSPROFILE%%\Рабочий стол" "" vbs`) Icon("%a\AkelPadImage.dll",328)
-"Создать из выделенного в ...JS" Call("Scripts::Main", 1, "CreateFile.vbs", `2 "%%ALLUSERSPROFILE%%\Рабочий стол" "" js`) Icon("%a\AkelPadImage.dll",327)
-"Создать из выделенного в ...AU3" Call("Scripts::Main", 1, "CreateFile.vbs", `2 "%%ALLUSERSPROFILE%%\Рабочий стол" "" au3`) Icon("%a\AkelPadImage.dll",332)
-"Создать из выделенного в ...AHK" Call("Scripts::Main", 1, "CreateFile.vbs", `2 "%%ALLUSERSPROFILE%%\Рабочий стол" "" ahk`) Icon("%a\AkelPadImage.dll",334)
-"Создать из выделенного в ...HTA" Call("Scripts::Main", 1, "CreateFile.vbs", `2 "%%ALLUSERSPROFILE%%\Рабочий стол" "" hta`) Icon("%a\AkelPadImage.dll",805)
SEPARATOR
-"Создать из выделенного в ...HTM" Call("Scripts::Main", 1, "CreateFile.vbs", `2 "%%ALLUSERSPROFILE%%\Рабочий стол" "" htm`) Icon("%a\AkelPadImage.dll",919)
-"Создать из выделенного в ...HTML" Call("Scripts::Main", 1, "CreateFile.vbs", `2 "%%ALLUSERSPROFILE%%\Рабочий стол" "" html`) Icon("%a\AkelPadImage.dll",918)
-"Создать из выделенного в ...XML" Call("Scripts::Main", 1, "CreateFile.vbs", `2 "%%ALLUSERSPROFILE%%\Рабочий стол" "" xml`) Icon("%a\AkelPadImage.dll",97)
}
"Создать из выделенного в текущей папке" Icon("%a\AkelPadImage.dll",37)
{
-"Создать из выделенного в ...TXT" Call("Scripts::Main", 1, "CreateFile.vbs", `2 "%d" "" txt`) Icon("%a\AkelPadImage.dll",89)
-"Создать из выделенного в ...XXX" Call("Scripts::Main", 1, "CreateFile.vbs", `2 "%d" "" -1`) Icon("%a\AkelPadImage.dll",89)
-"Создать из выделенного в ...Read_me.txt" Call("Scripts::Main", 1, "CreateFile.vbs", `2 "%d" Read_me txt`) Icon("%a\AkelPadImage.dll",333)
-"Создать из выделенного в ...INI" Call("Scripts::Main", 1, "CreateFile.vbs", `2 "%d" "" ini`) Icon("%a\AkelPadImage.dll",91)
SEPARATOR
-"Создать из выделенного в ...VBS" Call("Scripts::Main", 1, "CreateFile.vbs", `2 "%d" "" vbs`) Icon("%a\AkelPadImage.dll",328)
-"Создать из выделенного в ...JS" Call("Scripts::Main", 1, "CreateFile.vbs", `2 "%d" "" js`) Icon("%a\AkelPadImage.dll",327)
-"Создать из выделенного в ...AU3" Call("Scripts::Main", 1, "CreateFile.vbs", `2 "%d" "" au3`) Icon("%a\AkelPadImage.dll",332)
-"Создать из выделенного в ...AHK" Call("Scripts::Main", 1, "CreateFile.vbs", `2 "%d" "" ahk`) Icon("%a\AkelPadImage.dll",334)
-"Создать из выделенного в ...HTA" Call("Scripts::Main", 1, "CreateFile.vbs", `2 "%d" "" hta`) Icon("%a\AkelPadImage.dll",805)
SEPARATOR
-"Создать из выделенного в ...HTM" Call("Scripts::Main", 1, "CreateFile.vbs", `2 "%d" "" htm`) Icon("%a\AkelPadImage.dll",919)
-"Создать из выделенного в ...HTML" Call("Scripts::Main", 1, "CreateFile.vbs", `2 "%d" "" html`) Icon("%a\AkelPadImage.dll",918)
-"Создать из выделенного в ...XML" Call("Scripts::Main", 1, "CreateFile.vbs", `2 "%d" "" xml`) Icon("%a\AkelPadImage.dll",97)
SEPARATOR
-"Изменить &меню..." Call("Scripts::Main", 1, "SettingContextMenuFont.vbs", `1 "Создать из выделенного в текущей папке"`) Icon("%a\AkelPadImage.dll",93)
}
.
|
| |
| |
|
