AkelPad

VladSh · Posted: Thu Jun 28, 2007 11:45 am Post subject: Scripts collection

Ув. пользователи AkelPad'а!
Предлагаю в этой теме делиться своими наработками (скриптами)! Idea

Этим мы поможем и друг другу и более широкому и быстрому распространению этой замечательной проги! Cool

P.S. Имеющиеся скрипты сгруппированные по авторам.

Dear users AkelPad'а!
I suggest to share in this theme the operating time (scripts)!
We will help these and each other both to wider and fast expansion of this remarkable program!
P.S. Available scripts are grouped by authors.

KDJ
VladSh
Infocatcher
Instructor
FeyFre
Andrey_A_A
se7h
Visitor7
DV
Yustas.NeO
Fr0sT
opk44
cnnnc
oyaebu
Idjo
Cuprum
lexa
bluestone
levilevi
wisgest
F. Phoenix
akkorn

Ссылка на некоторые архивы-сборники скриптов: http://akelpad.sourceforge.net/files/plugs/Scripts/

VladSh · Posted: Thu Jun 28, 2007 11:50 am Post subject:

InsertDate.js Instructor'а, преобразовал в функцию, возвращающую дату в опред. формате:

DateFormat.js

Code:

// http://akelpad.sourceforge.net/forum/viewtopic.php?p=1211#1211
// Description(1033): Working with time and date; return it in specified format. Script implemented as the library for using in other scripts.
// Description(1049): Библиотека функций для работы с датами; возвращает дату/время в определённом формате.
// Version: 2.1 (2011.07.20)
// Author: VladSh
// Initial code: © Instructor
//
// Time:
// h       Hours with no leading zero for single-digit hours; 12-hour clock.
// hh       Hours with leading zero for single-digit hours; 12-hour clock.
// H       Hours with no leading zero for single-digit hours; 24-hour clock.
// HH       Hours with leading zero for single-digit hours; 24-hour clock.
// m       Minutes with no leading zero for single-digit minutes.
// mm    Minutes with leading zero for single-digit minutes.
// s       Seconds with no leading zero for single-digit seconds.
// ss       Seconds with leading zero for single-digit seconds.
// t       One character time-marker string, such as A or P.
// tt       Multicharacter time-marker string, such as AM or PM.
//
// Date:
// d       Day of month as digits with no leading zero for single-digit days.
// dd       Day of month as digits with leading zero for single-digit days.
// ddd    Day of week as a three-letter abbreviation.
// dddd    Day of week as its full name.
// M       Month as digits with no leading zero for single-digit months.
// MM    Month as digits with leading zero for single-digit months.
// MMM    Month as a three-letter abbreviation.
// MMMM Month as its full name.
// y       Year as last two digits, but with no leading zero for years less than 10.
// yy       Year as last two digits, but with leading zero for years less than 10.
// yyyy    Year represented by full four digits.
//
// Example:
// "H:mm:ss dd MMMM yyyy" -> "12:50:24 07 January 2008"

function DateFormat(pFormat) {
if (AkelPad.GetMainWnd()) {
   if (!pFormat)
      pFormat = AkelPad.GetArgLine() || "dd.MM.yyyy HH:mm";    //default value
   return TimeFormat(pFormat);
}
}

function TimeFormat(pFormat) {
var _TCHAR;
var _TSTR;
var _TSIZE;

if (AkelPad.IsOldWindows()) {
   _TCHAR = "A";
   _TSTR = 0    /*DT_ANSI*/;
   _TSIZE = 1 /*sizeof(char)*/;
}
else {
   _TCHAR = "W";
   _TSTR = 1    /*DT_UNICODE*/;
   _TSIZE = 2 /*sizeof(wchar_t)*/;
}

var lpFormatBuffer;
var lpTimeBuffer;
var pTime = "";

if (lpFormatBuffer = AkelPad.MemAlloc(256 * _TSIZE)) {
   AkelPad.MemCopy(lpFormatBuffer, pFormat.substr(0, 255), _TSTR);

   if (lpTimeBuffer = AkelPad.MemAlloc(256 * _TSIZE)) {
      var oSys = AkelPad.SystemFunction();

      oSys.AddParameter(1024); //LOCALE_USER_DEFAULT
      oSys.AddParameter(0);
      oSys.AddParameter(0);
      oSys.AddParameter(lpFormatBuffer);
      oSys.AddParameter(lpTimeBuffer);
      oSys.AddParameter(256);
      oSys.Call("kernel32::GetTimeFormat" + _TCHAR);

      oSys.AddParameter(1024); //LOCALE_USER_DEFAULT
      oSys.AddParameter(0);
      oSys.AddParameter(0);
      oSys.AddParameter(lpTimeBuffer);
      oSys.AddParameter(lpFormatBuffer);
      oSys.AddParameter(256);
      oSys.Call("kernel32::GetDateFormat" + _TCHAR);

      pTime = AkelPad.MemRead(lpFormatBuffer, _TSTR);

      AkelPad.MemFree(lpTimeBuffer);
   }
   AkelPad.MemFree(lpFormatBuffer);
}
return pTime;
}

Примеры использования:

вставка в окно редактирования: DateInsert.js

копирование в буфер обмена: DateCopyToCB.js

Last edited by VladSh on Wed Jan 14, 2015 11:40 pm; edited 20 times in total

VladSh

ConsoleExec.js

Code:

// Description(1049): Выполняет команду методом WshShell.Exec; используется для запуска некоторых приложений, аналог команды "Пуск" -> "Выполнить"
// http://akelpad.sourceforge.net/forum/viewtopic.php?p=1212#1212
// Version: 2.11 (2012.12.18)
// Author: VladSh
//
// Параметры:
// cmd - имя команды; если указано, то меню выводиться не будет, а выполнится указанная команда;
// sep - разделитель для разбора идентификаторов и надписей в param-файле (подробнее см. параметр pParsepProcSep в ShowMenuEx.js)
//
// Примеры:
// -"Калькулятор" Call("Scripts::Main", 1, "ConsoleExec.js", `-cmd="calc"`)
// -"Выбор программы для запуска..." Call("Scripts::Main", 1, "ConsoleExec.js", `-sep="=" -ignore1menu=1`) - пример задания игнорирования вывода меню, если в param-файле одна запись

var pCommand = AkelPad.GetArgValue("cmd", "");
if (!pCommand) {
if (!AkelPad.Include("ShowMenuEx.js")) WScript.Quit();
pCommand = getSelectedMenuItem(POS_CURSOR, AkelPad.GetArgValue("sep", ""), 0);
if (!pCommand) WScript.Quit();
}

var WshShell = new ActiveXObject("WScript.Shell");
try {
pCommand = WshShell.ExpandEnvironmentStrings(pCommand);
WshShell.Exec(pCommand);
}
catch (e) {
var errInfo = e.name + ": " + e.description + "Command: " + pCommand;
if (AkelPad.Call("Log::Output",5, errInfo, -1,1) == -1)
AkelPad.MessageBox(AkelPad.GetEditWnd(), errInfo, WScript.ScriptName, 48 /*MB_EXCLAMATION*/);
}

Идея взята отсюда (Exec.js).

Пример файла параметров ConsoleExec.param:

Code:

notepad = Блокнот
regedit = Regedit
calc = Калькулятор
%SystemRoot%\system32\restore\rstrui.exe = Восстановление системы

ConsoleRun.js

Скрипты используют ShowMenuEx.js.

Last edited by VladSh on Wed Jan 14, 2015 6:04 pm; edited 23 times in total

VladSh

TestCurrentScript.js

removeDebug.js

Last edited by VladSh on Thu Jan 15, 2015 4:48 pm; edited 20 times in total

wisgest · Joined: 24 Jun 2007 Posts: 63 Location: Belorussia

Типа встроенный калькулятор. Выделяем какое-нибудь выражение, например, "13.34678+36777.89/8", вызываем скрипт, получаем результат "4610.58303" (кстати, я его таким образом и получил), если результат нравится, нажимаем "OK" - результат в буфере обмена (не нравится - "Отмена"), теперь можем, например, заменить им первоначальное выражение.
Evaluate.js
Примеры использования:
56 * 13 - результат 728;
sin(PI/2) - синус пи на два (результат 1);
res=0; for (i=1; i<=500; i++) res=res+i*i - сумма квадратов первых пятиста целых чисел (41791750);
x=34+56; Trace(x,"Промежуточное значение"); x+26 - сумма трех чисел (34, 56 и 26) с выводом промежуточного результата;
Trace(34+56)+26 - предыдущий пример в другой записи.

VladSh

SpellCheckMSWord.js

Code:

// http://akelpad.sourceforge.net/forum/viewtopic.php?p=1346#1346
// Description(1033): Spell check using Microsoft Word
// Description(1049): Проверка орфографии используя MS Word
// Version: 1.4 (2015.01.20)
// Author: VladSh
// Initial code: © Instructor

var pSelText;
var hMainWnd = AkelPad.GetMainWnd();
var nCursor = -1;

if (hMainWnd) {
var pScriptName = WScript.ScriptName;

pSelText = AkelPad.GetSelText();
if (!pSelText) {
nCursor = AkelPad.GetSelStart();
pSelText = AkelPad.GetTextRange(0, -1);
}

if (pSelText.charCodeAt(0) != 0)
{
var Word = new ActiveXObject("Word.application");
if (Word)
{
var oSpellDoc;
var pMessage;
var pTextIn;
var pTextOut;

Word.Visible = false;
Word.Options.SuggestSpellingCorrections = true;

if (oSpellDoc = Word.Documents.Add())
{
oSpellDoc.Content.Text = pSelText;
Word.ActiveWindow.WindowState = 2; //wdWindowStateMinimize
         if (parseInt(Word.Version) >= 15)
         {
            //MS Word 2013 and higher
            Word.Visible = false;
            var oSys = AkelPad.SystemFunction();
            oSys.Call("user32::SetForegroundWindow", oSpellDoc.ActiveWindow.Hwnd);
         }

pTextIn = oSpellDoc.Content.Text;
if (Word.Options.CheckGrammarWithSpelling == true)
oSpellDoc.CheckGrammar();
else
oSpellDoc.CheckSpelling();
pTextOut = oSpellDoc.Content.Text;

oSpellDoc.Close(false);

if (pTextIn != pTextOut)
{
if (AkelPad.MessageBox(hMainWnd, GetLangString(3), pScriptName, 36 /*MB_ICONQUESTION|MB_YESNO*/) == 6 /*IDYES*/)
{
if (nCursor != -1) AkelPad.SetSel(0, -1);
AkelPad.ReplaceSel(pTextOut.substr(0, pTextOut.length - 1), -2);
}
}
}
   Word.Quit(true);
   Word = 0;
}
else
{
AkelPad.MessageBox(hMainWnd, GetLangString(0), pScriptName, 48 /*MB_ICONEXCLAMATION*/);
}
}
else
{
AkelPad.MessageBox(hMainWnd, GetLangString(1), pScriptName, 64 /*MB_ICONINFORMATION*/);
}
}

function GetLangString(nStringID)
{
var nLangID = AkelPad.GetLangId(1 /*LANGID_PRIMARY*/);

if (nLangID == 0x19)    //LANG_RUSSIAN
{
if (nStringID == 0)
return "Необходимо сначала установить Microsoft Word 97 или выше.";
if (nStringID == 1)
return "Текст отсутствует.";
if (nStringID == 3)
return "Вставить исправленый текст?";
}
else
{
if (nStringID == 0)
return "You must first install Microsoft Word 97 or higher.";
if (nStringID == 1)
return "The text is absent.";
if (nStringID == 3)
return "Insert corrected text?";
}
return "";
}

Данный скрипт является модификацией скрипта SpellCheck.js из дистрибутива Scripts-плагина.

Last edited by VladSh on Tue Jan 20, 2015 9:53 pm; edited 15 times in total

VladSh

InsertFileEx.js

Реализовал вставку файла по своей же просьбе (п.2)

NB: Для работы данного кода обязателен CommonFunctions.js.

Скрипт работает в т.ч. из меню последних файлов; его нужно вызывать с парамертом "%f"!

Updated: скрипт отредактирован с учётом пожеланий уважаемого wisgest'а по открытию файла на JavaScript и по вставке в юникоде, а также добавлена проверка на наличие файла...

Last edited by VladSh on Thu Jan 15, 2015 4:34 pm; edited 22 times in total

VladSh · Last edited by VladSh on Wed Jul 30, 2014 6:52 pm; edited 12 times in total

FilePathCopyToCB.js
FileNameCopyToCB.js

N.B.: Не поддерживается; я сам стал использовать copyPath.js из-за большей настраиваемости.

VladSh · Posted: Wed Jul 18, 2007 6:14 pm Post subject:

Для простого обрамления текста сейчас есть штатный метод Insert().
Для ссылок сделал отдельный скрипт, т.к. он использует более сложный алгоритм:

TagLinking.js

N.B. Скрипт не поддерживается, т.к. сейчас используется скрипт Infocatcher'а insertTag.js.

VladSh · Last edited by VladSh on Wed Jan 14, 2015 6:05 pm; edited 18 times in total

Иногда текст, вставляемый из буфера обмена, имеет нечитаемый вид, типа того: ?????? ????????? ????????????????
Такое встречается при копировании текста из старых (часто - из DOS'овских) доков или прог.

Для этого написал такой скриптик. Алгоритм прост до безобразия: создаётся новая вкладка, вставляется текст из буфера обмена, выделяется всё и копируется обратно в буфер обмена, вкладка закрывается. Если вставить текст из буфера снова, то он будет в нормальной, читаемой кодировке.

Чуть переделал скрипт на исправление текста в виде "умляутов", подробнее см. комменты в скрипте.

CorrectCBCodepage.js

VladSh

insertStructure.js

Code:

// http://akelpad.sourceforge.net/forum/viewtopic.php?p=1420#1420
// Description(1033): Convert selected lines to predefine structure
// Description(1049): Преобразовывает выделенный текст в блок определённой стрктуры
// Version: 5.1 (2015.01.26)
// Author: VladSh
//
// Agruments:
// -shift - lines shift to the right:
// without this parameter - shift from program settings;
// "" / "\t" or other value
//
// Usage:
// HTML (ul, ol, dt):
// -"<ul>...</ul>" Call("Scripts::Main", 1, "insertStructure.js", `-rootOpen="<ul>" -lineOpen="<li>" -lineClose="</li>" -rootClose="</ul>"`)
// fb2 (stanza);
// BbCode (list):
// -"[list]...[/list]" Call("Scripts::Main", 1, "insertStructure.js", `-rootOpen="[list]" -lineOpen="[*]" -rootClose="[/list]" -shift=""`)

if (AkelPad.IsAkelEdit()) {
if (WScript.Arguments.length == 0) WScript.Quit();

if (! AkelPad.Include("selCompleteLine.js")) WScript.Quit();

oCh.runWithRedraw();
}

function process() {
var rootOpen = AkelPad.GetArgValue("rootOpen", "");
var lineOpen = AkelPad.GetArgValue("lineOpen", "");
var lineClose = AkelPad.GetArgValue("lineClose", "");
var rootClose = AkelPad.GetArgValue("rootClose", "");

if (AkelPad.GetArgLine().indexOf("-shift") != -1) {
   sShift = escSequencesProcessing(AkelPad.GetArgValue("shift", ""));
}
else
   getShift();
lineOpen = sShift + lineOpen;

oCh.setCompleteLineText();

var pBreak = (AkelPad.GetEditNewLine(0) != 2) ? "\r" : "\n";

var spaces = oCh.Text.match(/^[ \t]*/)[0];
if (rootOpen) rootOpen = spaces + rootOpen + pBreak;
if (rootClose) rootClose = pBreak + spaces + rootClose;

var reBreak = new RegExp(pBreak, "g");
var lines = oCh.Text.replace(/^([ \t]*)(\S)/gm, "$1" + lineOpen + "$2").replace(reBreak, lineClose + pBreak) + lineClose;
if (!oCh.Text)
   lines = lineOpen + lines;

oCh.Text = rootOpen + lines + rootClose;
}

Благодарности: Infocatcher, FeyFre

NB: This script used selCompleteLine.js.

Last edited by VladSh on Mon Jan 26, 2015 3:20 pm; edited 30 times in total

VladSh · Posted: Sun Jul 29, 2007 12:37 pm Post subject:

NewFilebyRecent.js

Code:

///Creation of a new file on the basis of the contained allocated file in the list of the fresh
///Универсальное создание нового файла на основе имеющегося в окне редактирования или в списке свежих
// http://akelpad.sourceforge.net/forum/viewtopic.php?p=1505#1505
// Version: 2.9 (2014.05.12)
//
// -"Новый на основе выбранного" Call("Scripts::Main", 1, "NewFilebyRecent.js", `"%f"`) Icon("%a\AkelFiles\Plugs\ToolBar.dll", 1) - из меню свежих файлов (параметр `"%f"` обязателен!)
// -"Новый на основе текущего" Call("Scripts::Main", 1, "NewFilebyRecent.js") Icon("%a\AkelFiles\Plugs\ToolBar.dll", 1) - меню вкладок, окна редактирования или тулбара

var fileName = "";
var ext = "";
var fso = new ActiveXObject("Scripting.FileSystemObject");
var pContent = "";

if (WScript.Arguments.length) {
if (WScript.Arguments(0) != AkelPad.GetEditFile(0))
   fileName = WScript.Arguments(0);       //стартовали из меню списка свежих!
}

if (fileName) {
//Создание на основе выделенного в списке свежих
if (fso.FileExists(fileName)) {
   //Считывание содержимого файла
   pContent = AkelPad.ReadFile(fileName)
}
ext = fso.GetExtensionName(fileName);
}
else {
//Стартовали из меню вкладок или окна редактирования
//Пытаемся сначала взять выделенный текст и на основе его создать док, иначе создаём на основе всего текста файла текущей вкладки
pContent = AkelPad.GetSelText() || AkelPad.GetTextRange(0, -1);
}

if (AkelPad.Include("CommonFunctions.js"))
createFile(getFileFormat(0), ext);    //создаём со всеми параметрами исходного файла
else
AkelPad.Command(4101 /*IDM_FILE_NEW*/);

//Запись содержимого в окно редактирования Akel'а
AkelPad.ReplaceSel(pContent);

//Установка курсора в начало нового файла
AkelPad.SetSel(0, 0);

This script used CommonFunctions.js.

Last edited by VladSh on Mon May 12, 2014 2:39 pm; edited 25 times in total

Idjo · Joined: 06 May 2007 Posts: 21

ShiftRight.js & ShiftLeft.js
Shifts selected rows.
The shift string can be defined, and if you define it as "//" it can be used to turn rows into comments.
JS is preety new for me so I'd like to have comments.

Update: Fixed by Instructor's suggestion.

ShiftRight.js

ShiftLeft.js

VladSh · Posted: Mon Aug 06, 2007 12:27 pm Post subject: CommonFunctions

CommonFunctions.js

Code:

// http://akelpad.sourceforge.net/forum/viewtopic.php?p=1582#1582
// Description(1033): Works with for WinFS. Script implemented as the library for using in other scripts.
// Description(1049): Библиотека функций для работы с диалогами, файловой системой и т.п.
// Version: 2.16 (2014.12.17)
// Author: VladSh

//Default variables
var pSlash = "\\";
var pExtTXT = "txt";
var pDefaultExt;       //можно задать извне, это будет приоритетнее, т.е. не заменится при вызове функции

//FUNCTIONS

//определение расширения по умолчанию
function getDefaultExt() {
if (!pDefaultExt) {
   var lParam;
   if (lParam = AkelPad.MemAlloc(256)) {
      AkelPad.SendMessage(AkelPad.GetMainWnd(), 1222 /*AKD_GETMAININFO*/, 224 /*MI_DEFAULTSAVEEXT*/, lParam);
      pDefaultExt = AkelPad.MemRead(lParam, 1 /*DT_UNICODE*/);
      AkelPad.MemFree(lParam);
   }
}
return pDefaultExt || pExtTXT;
}

//Вызов диалога Открытия/Сохранения файла (WinAPI) с предварительной обработкой и инициализацией всех необходимых параметров
function fileDialogDefault(bOpenTrueSaveFalse, pInitialFile, pInitialExt) {
var pInitialDir = getParentClosed(pInitialFile);

//<определение фильтров>
var nFilterIndex = 1;    //номер фильтра по порядку (не индекс!) для arrFilterLines; по умолчанию считаем, что расширение пока не найдено..
var arrFilters;
var arrFilterLines = [];
var arrFTypeInfo;
var arrExts = [];
arrFilters = getFileContent(AkelPad.GetAkelDir(5) + "\\Params\\" + "FileDialogExtentions.param", false, -1, "\r\n");
if (arrFilters) {
   var n = 0;
   for (var i = 0, l = arrFilters.length; i < l; i++) {
      arrFTypeInfo = arrFilters[i].split("=");
      arrExts[i] = arrFTypeInfo[1];
      arrFilters[i] = getFilter(arrFTypeInfo[0], arrFTypeInfo[1]);
      if (!n) {
         if ((";" + arrFTypeInfo[1] + ";").split(";" + pInitialExt + ";").length == 2) { //если есть точное совпадение расширения, то полный список не нужен
            if (bOpenTrueSaveFalse) {
               nFilterIndex = i + 1;
               n = 1;
            }
            else {
               n += 1;
               arrFilterLines[n] = arrFilters[i];
               break;
            }
         }
      }
   }
   if (bOpenTrueSaveFalse) {
      arrFilterLines = arrFilters;
   }
   else {
      if (n == 1) {
         arrFilterLines[0] = arrFilters[0];
         arrExts = [arrExts[0], arrExts[i]];
         nFilterIndex = 2;
      }
      else {
         arrFilterLines = arrFilters;    //не нашли расширение в списке
         nFilterIndex = -1;
      }
   }
}
else {    //если файл со списком типов не существует или пуст
   arrFilterLines[0] = getFilter("All Files", "*");
   arrFilterLines[1] = getFilter("Plain Text files", pExtTXT);
   if (pInitialExt) {
      if (pInitialExt != pExtTXT) {    //если это расширение не txt, значит вручную добавляем его..
         arrFilterLines[2] = getFilter(pInitialExt.toUpperCase() + " files", pInitialExt);
         nFilterIndex = 3;
      }
      else
         nFilterIndex = 2;
   }
}
var pFilter = arrFilterLines.join("");
//</определение фильтров>

//если расширение точно определено в списке, то в имени файла его выдавать не надо
var sExtTmp;
if (nFilterIndex > 0) {
   sExtTmp = getFileExt(pInitialFile);
   if (sExtTmp && ((sExtTmp != pInitialExt) || (nFilterIndex == 1)))    //если был выделен файл с расширением, отличающимся от текущего файла - выдаём, чтобы пользователь мог подтвердить или исправить
      pInitialFile = getFileName(pInitialFile) || "filename";
   else
      pInitialFile = getFileNameOnly(pInitialFile);
}
else {
   nFilterIndex = 1;
   if (!bOpenTrueSaveFalse) {
      if (pInitialExt)
         pInitialFile = getFileNameOnly(pInitialFile) + "." + pInitialExt;    //если расширение определено, но отсутствует в списке, то выдаём его в имени файла
      pInitialExt = getDefaultExt();       //для того, чтобы при неопределении расширения файла он не сохранялся без расширения
   }
}

var result = fileDialog(bOpenTrueSaveFalse, AkelPad.GetMainWnd(), pInitialDir, pInitialFile, pInitialExt, pFilter, nFilterIndex);
if (!bOpenTrueSaveFalse) {
   if (result.file && result.filterIndex != null) {
      arrFTypeInfo = arrExts[result.filterIndex].split(";");
      sExtTmp = arrFTypeInfo[0];
      if (sExtTmp != "*") {
         result.file = separateFile(result.file);
         //если расширение в ComboBox'е с расширениями не было изменено
         if (sExtTmp == pInitialExt) {
            //пробуем взять его из имени файла (возможно вписали туда вручную)
            sExtTmp = result.file.ext;
         }
         return result.file.path + result.file.name + "." + sExtTmp;
      }
   }
}
return result.file;
}

//Сборка фильтра
function getFilter(sFTypeInfo, sExts /*расширения ч/з ";"*/) {
var sMask = "*." + (sExts).replace(/;/g, ";*.");    //маска для всех расширений этого типа, без пробелов
return sFTypeInfo + " (" + sMask.replace(/;/g, "; ") + ")\0" + sMask + "\0";    //фильтр в полном виде
}

//Стандартный диалог Открытия/Сохранения файла (WinAPI)
function fileDialog(bOpenTrueSaveFalse, hWnd, pInitialDir, pInitialFile, pInitialExt, pFilter, nFilterIndex) {
var nFlags = 0x880804; //OFN_HIDEREADONLY|OFN_PATHMUSTEXIST|OFN_EXPLORER|OFN_ENABLESIZING
var lpStructure;
var lpFilterBuffer;
var lpFileBuffer;
var lpExtBuffer;
var lpDirBuffer;
var oSys;
var pResultFile = "";
var nCallResult;

var lFilterBuffer = pFilter.length;    //передаём не 256, а реальный размер pFilter
if (lpFilterBuffer = AkelPad.MemAlloc((lFilterBuffer+1) * _TSIZE)) {
   AkelPad.MemCopy(lpFilterBuffer, pFilter.substr(0, lFilterBuffer), _TSTR);

   if (lpFileBuffer = AkelPad.MemAlloc(256 * _TSIZE)) {
      AkelPad.MemCopy(lpFileBuffer, pInitialFile.substr(0, 255), _TSTR);

      if (lpExtBuffer = AkelPad.MemAlloc(256 * _TSIZE)) {
         AkelPad.MemCopy(lpExtBuffer, pInitialExt.substr(0, 255), _TSTR);

         if (lpDirBuffer = AkelPad.MemAlloc(256 * _TSIZE)) {
            AkelPad.MemCopy(lpDirBuffer, pInitialDir.substr(0, 255), _TSTR);

            if (lpStructure = AkelPad.MemAlloc(_X64?136:76)) {
               //Fill structure
               AkelPad.MemCopy(lpStructure, _X64?136:76, 3 /*DT_DWORD*/);                            //lStructSize
               AkelPad.MemCopy(lpStructure + (_X64?8:4), hWnd, 2 /*DT_QWORD*/);                   //hwndOwner
               AkelPad.MemCopy(lpStructure + (_X64?24:12), lpFilterBuffer, 2 /*DT_QWORD*/); //lpstrFilter
               AkelPad.MemCopy(lpStructure + (_X64?44:24), nFilterIndex, 3 /*DT_DWORD*/);    //nFilterIndex
               nFilterIndex = -1;
               AkelPad.MemCopy(lpStructure + (_X64?48:28), lpFileBuffer, 2 /*DT_QWORD*/);    //lpstrFile
               AkelPad.MemCopy(lpStructure + (_X64?56:32), 256, 3 /*DT_DWORD*/);                   //nMaxFile
               AkelPad.MemCopy(lpStructure + (_X64?68:44), lpDirBuffer, 2 /*DT_QWORD*/); //lpstrInitialDir
               AkelPad.MemCopy(lpStructure + (_X64?96:52), nFlags, 3 /*DT_DWORD*/);             //Flags
               AkelPad.MemCopy(lpStructure + (_X64?104:60), lpExtBuffer, 2 /*DT_QWORD*/);    //lpstrDefExt

               if (oSys = AkelPad.SystemFunction()) {
                  //Call dialog
                  if (bOpenTrueSaveFalse == true)
                     nCallResult = oSys.Call("comdlg32::GetOpenFileName" + _TCHAR, lpStructure);
                  else
                     nCallResult = oSys.Call("comdlg32::GetSaveFileName" + _TCHAR, lpStructure);

                  //Result file
                  if (nCallResult) {
                     pResultFile = AkelPad.MemRead(lpFileBuffer, _TSTR);
                     nFilterIndex = AkelPad.MemRead(lpStructure + (_X64?44:24), 3 /*DT_DWORD*/) - 1;
                  }
               }
               AkelPad.MemFree(lpStructure);
            }
            AkelPad.MemFree(lpDirBuffer);
         }
         AkelPad.MemFree(lpExtBuffer);
      }
      AkelPad.MemFree(lpFileBuffer);
   }
   AkelPad.MemFree(lpFilterBuffer);
}
return {
   file: pResultFile,
   filterIndex: nFilterIndex
};
}

// Определение основных характеристик формата файла
function getFileFormat(hWnd /*hWndEdit*/) {
return {
   cp: AkelPad.GetEditCodePage(hWnd), // CodePage
   BOM: AkelPad.GetEditBOM(hWnd),
   nl: AkelPad.GetEditNewLine(hWnd)    // NewLine
};
}

///Создание вкладки нового файла с передаваемыми параметрами
function createFile(fileFormat /*объект, полученный ранее с помощью getFileFormat*/,
            pExt /*расширение, для установки подстветки; если "", будет пытаться определить автоматически*/) {
// пытаемся определить расширение для установки нужной подсветки
var bCoderInclude = AkelPad.Include("CoderFunctions.js");
if (!pExt && bCoderInclude)
   pExt = GetSyntaxAliasExtension();
AkelPad.Command(4101 /*IDM_FILE_NEW*/);    //создание (закладки) для сохранения текста отдельным файлом
AkelPad.SaveFile(0, "", fileFormat.cp, fileFormat.BOM);    //выставление кодировки
AkelPad.SendMessage(AkelPad.GetMainWnd(), 1230 /*AKD_SETNEWLINE*/, 0, fileFormat.nl);    //выставление "формата новой строки"
// пытаемся выставить нужную подсветку
if (pExt && bCoderInclude) SetSyntax(pExt);
}

//Разбивает полный путь в массив [Папка, Имя_файла, Расширение]
function separateFile(pFile) {
var pPath = "";
var pFileName = "";
var pFileExt = "";

var pos = pFile.lastIndexOf(pSlash);
if (pos != -1)
   pPath = pFile.slice(0, pos + 1);

pFileName = pFile.slice(pos + 1);
if (pFileName) {
   pos = pFileName.lastIndexOf(".");
   if (pos != -1)
   {
      pFileExt = pFileName.slice(pos + 1);
      pFileName = pFileName.slice(0, pos);
   }
}

return {
   path: pPath,
   name: pFileName,
   ext: pFileExt
};
}

//Собирает полное имя файла из объекта, полученного с помощью separateFile()
function joinFile(oFile) {
return oFile.path + oFile.name + "." + oFile.ext;
}

//Возвращает полное имя папки БЕЗ закрывающего \
function getParent(pFile) {
var pDir = "";
var pozLastSep = pFile.lastIndexOf(pSlash);
if (pozLastSep != -1)
   pDir = pFile.slice(0, pozLastSep);
return pDir;
}

//Возвращает полное имя папки С закрывающим \
function getParentClosed(pFile) {
var pDir = getParent(pFile);
if (pDir) pDir = pDir + pSlash;
return pDir;
}

//Возвращает имя файла С расширением
function getFileName(pFile) {
return pFile.slice(pFile.lastIndexOf(pSlash) + 1);
}

//Возвращает имя файла БЕЗ расширения
function getFileNameOnly(pFile) {
var pFileName = getFileName(pFile);
var pos = pFileName.lastIndexOf(".");
if (pos != -1)
   pFileName = pFileName.slice(0, pos);
return pFileName;
}

//Возвращает расширение файла
function getFileExt(pFile) {
var ext = "";
var pos = pFile.lastIndexOf(".");
if (pos != -1) ext = pFile.substr(pos + 1);
return ext;
}

function getEnvironmentPath(pPath) {
var result = "";
var WshShell = new ActiveXObject("WScript.shell");
var path = WshShell.ExpandEnvironmentStrings(pPath);
var fso = new ActiveXObject("Scripting.FileSystemObject");
if (fso.FileExists(path)) result = path;
return result;
}

//Remove inadmissible symbols (from wisgest)
function correctFileName(pFileNameOnly) {
pFileNameOnly = pFileNameOnly.replace(/\t/g, " ");    //валим табуляции, т.к. диалог с ними иногда просто не отображается
pFileNameOnly = pFileNameOnly.replace(/ /g, " ");    //убираем повторяющиеся пробелы
return pFileNameOnly.replace(/[\\\/:\*\?"{}<>\|]/g, "");
}

function correctFileNameFull(pFile) {
pFileNameOnly = getFileName(pFile);
pFileNameOnly = correctFileName(pFileNameOnly);
return getParent(pFile) + pSlash + pFileNameOnly;
}

//Получает содержимое файла из файловой системы; возвращает:
//если файла нет - undefined; если pSepRow не передан - возвращает содержимое в виде строки; если передан - возвращает массив, разбитый через pSepRow
//bCurrent = true - если переданный файл является текущим открытым, то его текст берётся сразу, если нет - из файловой системы с помощью FSO
//nSmb - количество возвращаемых символов; 0 или -1 - вернуть содержимое всего файла
function getFileContent(pFile, bCurrent, nBytesMax, pSepRow) {
var result;
if (nBytesMax == 0) {
   nBytesMax = -1;
}
if (bCurrent) {
   if (pFile == AkelPad.GetEditFile(0)) {
      result = AkelPad.GetTextRange(0, nBytesMax);
   }
}
if (!result) {
   var fso = new ActiveXObject("Scripting.FileSystemObject");
   if (fso.FileExists(pFile) == true) {
      result = AkelPad.ReadFile(pFile, 0xD, 0, 0, nBytesMax);
   }
}
if (result) {
   if (pSepRow.length != 0) {
      result = result.split(pSepRow);
   }
}
return result;
}

//by MSDN
function getDrivesList() {
var e = new Enumerator(fso.Drives);
var x;
var i = 0;
var disks = [];
for (; !e.atEnd(); e.moveNext()) {
   x = e.item();
   if (x.DriveType == 3 && x.IsReady) {
      disks[i] = x.DriveLetter;
      i += 1;
   }
}
return disks;
}

Для вывода типов файлов в диалогах открытия/сохранения файла можно пользоваться файлом параметров, который должен находиться в ..\Scripts\Params\:
FileDialogExtentions.param
Обязательное условие: первым должен идти "All Files", 2-м - txt.
Хоть размер фильтра теперь в скрипте и вычисляется, но я не советую мучать животное этим монструозным списком, лучше уж выбрать то, чем реально пользуешься.
Для наполнения этого списка (чтобы "всё было" Smile

) присылайте варианты в личку.

Common "lib" for used in other scripts.
Has edited it is a little, it is final on the basis of scripts Instructors - a convenient piece as it has appeared Smile

Now I use in many scripts thanks to what their size has considerably decreased.

Благодарности:
- wisgest'у за предложение по функции CorrectFileName;
- Instructor'у за InsertFile.js из диструбутива Scripts-плагина, на основе которого были написаны FileDialogDefault и FileDialog и за замечания;
- FeyFre за помощь по lpstrInitialDir.

Last edited by VladSh on Fri Feb 13, 2015 12:24 pm; edited 61 times in total

VladSh

RenameFileDialog.js

Code:

// Description(1033): Rename current editing file with dialog
// Description(1049): Переименование текущего файла
// http://akelpad.sourceforge.net/forum/viewtopic.php?p=1584#1584
// Version: 2.10 (2014.12.17)
// Author: VladSh
//
// Arguments:
// -ext ([1]/0) - отображает/не отображает в окошке расширение
//
// Usage:
// -"RenameFile..." Call("Scripts::Main", 1, "RenameFileDialog.js", `"-ext=0"`)    - меняет только имя файла
//
//    - если необходимо заменить имя файла с расширением, то необходимо в окошке дописать к имени файла новое расширение;
//    - если необходимо удалить расширение, то после имени файла достаточно поставить точку

var hMainWnd = AkelPad.GetMainWnd();

var fileNameFull = AkelPad.GetEditFile(0);
if (fileNameFull) { //File already exist
if (! AkelPad.Include("CommonFunctions.js")) WScript.Quit();

var useExt = AkelPad.GetArgValue("ext", 1);

var File = separateFile(fileNameFull);
var extInfo = "";

var fileSelect;
if (useExt == true && File.ext)
   fileSelect = File.name + "." + File.ext;
else {
   fileSelect = File.name;
   if (File.ext) extInfo = " for *." + File.ext;
}

var pScriptName = WScript.ScriptName;
var Prompt = "New name" + extInfo + ":";
var fileSelectNew = "";
var fileNameNew = "";
var fso;
var fileExist;

if (hMainWnd) {
   fso = new ActiveXObject("Scripting.FileSystemObject");

   do {
      fileSelectNew = AkelPad.InputBox(hMainWnd, pScriptName, Prompt, fileSelect);
      if (fileSelectNew) {
         fileSelectNew = correctFileName(fileSelectNew);       //Remove special symbols
         if (useExt == true || File.ext == "" || fileSelectNew.lastIndexOf(".") != -1)
            fileNameNew = fileSelectNew;
         else
            fileNameNew = fileSelectNew + "." + File.ext;

         var fileNameFullNew = File.path + fileNameNew;

         if (fileSelectNew != "" & (fileNameFullNew != fileNameFull)) {
            fileExist = fso.FileExists(fileNameFullNew);
            if (fileExist == false) {                //Check already newFileName existent
               var nSelStart = AkelPad.GetSelStart();
               var nSelEnd = AkelPad.GetSelEnd();
               var curFileFormat = getFileFormat(AkelPad.GetEditWnd());

               AkelPad.Command(4324);       //Close editing file

               if (AkelPad.GetEditFile(0) != fileNameFull) {    //Check noCANCEL click for changed document!
                  var Err;
                  //Rename file
                  try {fso.MoveFile(fileNameFull, fileNameFullNew);}
                  catch(e) {
                     Err = e;
                     fileNameFullNew = fileNameFull;
                  }

                  if (fso.FileExists(fileNameFullNew) == true) {
                     //Open file
                     AkelPad.OpenFile(fileNameFullNew, 0, curFileFormat.cp, curFileFormat.BOM);

                     //Recovery selection
                     AkelPad.SetSel(nSelStart, nSelEnd);
                  }
                  if (Err) {
                     if (0x100000000 + Err.number == 0x800a0046)
                        AkelPad.MessageBox(hMainWnd, "Insufficient rights, or file is locked by another application!", "AkelPad -> " + WScript.ScriptName, 48);
                     else
                        throw Err;
                  }
               }
            }
            else {
               Prompt = "File '" + fileNameNew + "' already exist! Input other filename" + extInfo + ":";
            }
         }
      }
      else {
         break;
      }
   }
   while (fileExist);
}
}
else             //File is new - try new document save
AkelPad.Command(4106)

Примеры использования:

В контекстном меню окна редактирования поставил новый вызов:

Code:

-"Rename File..." Call("Scripts::Main", 1, "RenameFileDialog.js", `"-ext=0"`)

А в контекстном меню вкладок оставил старый:

Code:

-"Rename File..." Call("Scripts::Main", 1, "RenameFileDialog.js")

Реализована логика, которую я собственно и хотел с самого начала.

N.B.: Для работы данного кода обязателен CommonFunctions.js.

Last edited by VladSh on Wed Jan 14, 2015 9:49 pm; edited 27 times in total