AkelPad

Infocatcher · Joined: 06 Aug 2007 Posts: 1767

tabsRightLeft.js <download | mirror | development version>
Switch between tabs in order of them arrangement (temporary check "Switch tabs: right-left" option).

tabsNextPrevious.js <download | mirror | development version>
Switch between tabs in order of them usage (temporary check "Switch tabs: next-previous" option).

tabsSwitchAlt.js <download | mirror | development version>
Switch between tabs using alternative way (temporary check "Switch tabs: right-left" or "Switch tabs: next-previous" option).

For all scripts required MDI or PMDI window mode!

opk44 · Joined: 16 Jan 2010 Posts: 607

RU: Информация о номере версии редактора и плагинов
EN: Info about version of AkelPad and plugins

VersionInfo.js

Code:

// version 0.1.0 - 2011-02-06
//
// Usage:
// Call("Scripts::Main", 1, "VersionInfo.js")
//

var WM_COMMAND=273;
var WM_USER=1024;

var ADTYPE_ROOT = 0; // корневая папка AkelPad'а.
var ADTYPE_PLUGS = 4; // "[AkelPad]\AkelFiles\Plugs".
var IDM_FILE_NEW=4101; // команда на создание нового файла
var AEM_EMPTYUNDOBUFFER = WM_USER + 2055; //Erase undo and redo history
var AEM_SETMODIFY = WM_USER + 2063; //Set the state of an edit control's modification flag.

var sh1 = "--------------------------------";
var sh2 = " File Version";
var sh3 = " Plugin Version";
var sh4 = "\r\n";

var pAkelDir=AkelPad.GetAkelDir(ADTYPE_ROOT);
var pAkelPlugsDir=AkelPad.GetAkelDir(ADTYPE_PLUGS);

var hMainWnd=AkelPad.GetMainWnd();
AkelPad.SendMessage(hMainWnd, WM_COMMAND, IDM_FILE_NEW, 0);

// Вывод информации в созданную вкладку
AkelPad.ReplaceSel(sh1 + sh4 + sh2 + sh4 + sh1 + sh4);
AkelPad.ReplaceSel(ShowFolderFileVersionList(pAkelDir, "Exe"));
AkelPad.ReplaceSel(sh1 + sh4 + sh3 + sh4 + sh1 + sh4);
AkelPad.ReplaceSel(ShowFolderFileVersionList(pAkelPlugsDir, "Dll"));
// Установиться на начало текста и дать возможность беспрепятственно закрыть вкладку
AkelPad.SetSel(0, 0);
AkelPad.SendMessage(AkelPad.GetEditWnd(), AEM_SETMODIFY, 0, 0);
AkelPad.SendMessage(AkelPad.GetEditWnd(), AEM_EMPTYUNDOBUFFER, 0, 0);

//
// Список версий файлов с заданным расширением в указанной директории
//
function ShowFolderFileVersionList(folderspec, extension){
var fso, f, f1, fc, s, si;
fso = new ActiveXObject("Scripting.FileSystemObject");
f = fso.GetFolder(folderspec);
fc = new Enumerator(f.files);
s = "";
si = "";
for (; !fc.atEnd(); fc.moveNext()){
si = fc.item().Name;
if (StringTailUpper(si, 3)==extension.toUpperCase()){
s += StringFixLength(si, 25) + ShowFileVersion(fc.item()) + "\r\n";
}
}
return(s);
}
//
// Получить информацию о версии файла
//
function ShowFileVersion(filespec){
var fso, s = "";
fso = new ActiveXObject("Scripting.FileSystemObject");
s += fso.GetFileVersion(filespec);
return(s);
}
//
// Получить "хвост" строки заданной длины в верхнем рагистре
//
function StringTailUpper(strvar, numvar){
s = strvar.substr(strvar.length - numvar, strvar.length)
return(s.toUpperCase());
}
//
// Дополнить строку пробелами до заданной длины
//
function StringFixLength(strvar, numvar){
while (strvar.length < numvar){
strvar += ' ';
}
return(strvar);
}

se7h · Joined: 28 Sep 2009 Posts: 767 Location: Minsk, Belarus

WinMerge.js

Code:

/// WinMerge v0.4.1
// (с) se7h, VladSh
// http://akelpad.sourceforge.net/forum/viewtopic.php?p=11455#11455
//
// Comparison of current and selected files using WinMerge (http://winmerge.org/)
//
// Usage in Toolbar/ContextMenu plugin:
// -"Compare with file..." Call("Scripts::Main", 1, "WinMerge.js") Icon(pathToAnyIcon) - searching for a path to WinMerge automatically
// -"Compare with file..." Call("Scripts::Main", 1, "WinMerge.js", `"d:\Programs\TotalCmd\UTILs\WinMerge\"`) - takes a path from scripts Arguments, else searching a path automatically
//
// CommonFunctions.js you found here http://akelpad.sourceforge.net/forum/viewtopic.php?p=1582#1582

//Options
var pFilter = "Text files (*.txt)\x00*.txt\x00All Files (*.*)\x00*.*\x00\x00";
var nFilterIndex = 2;

//Variables
var WshShell = new ActiveXObject("WScript.shell");
var fso = new ActiveXObject("Scripting.FileSystemObject");
var hMainWnd = AkelPad.GetMainWnd();
var pInitialFile = AkelPad.GetEditFile(0);
var pSelFilePath;

var pToolFileName = "WinMergeU.exe";
var pToolPath = "";

if (WScript.Arguments.length) //сначала пытаемся взять из аргументов
pToolPath = getPath(WScript.Arguments(0) + pToolFileName);

if (!pToolPath)
{
try {
//ищем по записи в реестре
pToolPath = WshShell.RegRead("HKLM\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\App Paths\\" + pToolFileName + "\\");
if (pToolPath)
pToolPath = getPath(pToolPath);
} catch(e) {}

if (!pToolPath)
{
//ищем в путях по системмным переменным
var appPaths = ["%ProgramFiles%\\WinMerge\\", "%ProgramFiles (x86)%\\WinMerge\\"];
var p = 0;
do
{
pToolPath = getPath(appPaths[p] + pToolFileName);
if (pToolPath) break;
p += 1;
}
while (p < appPaths.length)

if (!pToolPath)
{
//ищем в стандартных путях по доступным локальным дискам
appPaths = [":\\Program Files\\WinMerge\\", ":\\Program Files(x86)\\WinMerge\\"];
var disks = getDrivesList();
for (var d = 0; d < disks.length; d++)
{
p = 0;
do
{
pToolPath = getPath(disks[d] + appPaths[p] + pToolFileName);
if (pToolPath) break;
p += 1;
}
while (p < appPaths.length)
if (pToolPath) break;
}

if (!pToolPath)
{
warn("Application WinMerge was not found!");
WScript.Quit();
}
}
}
}

if (hMainWnd) {
if (! AkelPad.Include("CommonFunctions.js"))
pSelFilePath = FileDialog(true, hMainWnd, pInitialFile, pFilter, nFilterIndex);
else
pSelFilePath = FileDialogDefault(true, pInitialFile, GetFileExt(pInitialFile));

if(pSelFilePath) {
var cmdLine = "\"" + pToolPath + "\" \"" + pInitialFile + "\" \"" + pSelFilePath + "\"";
WshShell.Exec(cmdLine);
}
}

//VladSh 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;
}

//Instructor function
function FileDialog(bOpenTrueSaveFalse, hWnd, pInitialFile, pFilter, nFilterIndex) {
var nFlags = 0x880804; //OFN_HIDEREADONLY|OFN_PATHMUSTEXIST|OFN_EXPLORER|OFN_ENABLESIZING
var pDefaultExt = "txt";
var lpStructure;
var lpFilterBuffer;
var lpFileBuffer;
var lpExtBuffer;
var oSys;
var pResultFile = "";
var nCallResult;

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

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

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

if(lpStructure = AkelPad.MemAlloc(_X64 ? 136 : 76)) { //sizeof(OPENFILENAMEA) or sizeof(OPENFILENAMEW)
//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
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 ? 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);
}
}

AkelPad.MemFree(lpStructure);
}

AkelPad.MemFree(lpExtBuffer);
}

AkelPad.MemFree(lpFileBuffer);
}

AkelPad.MemFree(lpFilterBuffer);
}

return pResultFile;
}

//Infocatcher functions
function warn(msg) {
AkelPad.MessageBox(AkelPad.GetMainWnd(), msg, WScript.ScriptName, 48 /*MB_ICONEXCLAMATION*/);
}
function getPath(paths) {
var path = WshShell.ExpandEnvironmentStrings(paths);
if(fso.FileExists(path))
return path;

return "";
}

History:
0.1 - initial release
0.2 - added: trying to find the path to WinMerge.exe in the registry and in Program Files (x86) (by VladSh)
0.2.1 - using environment variables
0.2.2 - little fix
0.3 - some improvements in finding paths to WinMerge
0.4 - added ability to specify the path to WinMerge manually (via the argument)
0.4.1 - extended open dialogue with files extensions list (provided by CommonFunction.js)

Comparison of current and selected files using WinMerge

KDJ · Joined: 06 Mar 2010 Posts: 1929 Location: Poland

Regular expression tester for JavaScript - Part One.
Part Two is in the next post.
In one file is here: KDJ.zip

RegExpTestJS.js

Code:

// http://akelpad.sourceforge.net/forum/viewtopic.php?p=11473#11473
// Version: 2015-09-19
// Author: KDJ
//
// *** Regular expression tester for JavaScript ***
//
// Usage:
// Call("Scripts::Main", 1, "RegExpTestJS.js")
//
// Shortcut keys in dialog box:
// Enter - test
// F1 - RegExp help
// Shift+Alt+ Right, Left, Down, Up, End, Home, PgDn, PgUp - move dialog box,
// Alt+ Num-(-), Num+(+) - change opaque/transparency level of dialog box.

var DT_DWORD = 3;
var BM_GETCHECK = 240;
var BM_SETCHECK = 241;

var hMainWnd = AkelPad.GetMainWnd();
var hEditWnd = AkelPad.GetEditWnd();
var oSys = AkelPad.SystemFunction();
var hGuiFont = oSys.Call("gdi32::GetStockObject", 17 /*DEFAULT_GUI_FONT*/);
var hInstanceDLL = AkelPad.GetInstanceDll();
var pClassName = "AkelPad::Scripts::" + WScript.ScriptName + "::" + hInstanceDLL;

var nWndPosX;
var nWndPosY;
var nOpaque = 255;
var pREStr = "/[a-z]/ig";
var pString = "";
var pWith = "";
var bIgCase = 1;
var bGlobal = 0;
var bMultiL = 0;
var nNL = 1;
var nAction = 1;
var oRE = new RegExp();
var aRECol = new Array();
var oSel = {"Source1" : 0,
"Source1" : 0,
"RE1" : 0,
"RE2" : 0,
"String1" : 0,
"String2" : 0,
"With1" : 0,
"With2" : 0,
"Result1" : 0,
"Result2" : 0,
"GlobPro1" : 0,
"GlobPro2" : 0};
var nBufSize = 65536;
var lpBuffer;
var hWndDlg;
var hWndEdHlp;
var hFocus;
var bIsTest;
var bIsReturn;

ReadIni();

if (AkelPad.GetSelStart() != AkelPad.GetSelEnd())
pString = AkelPad.GetSelText(3 /*"\r\n"*/);

//Main window
var aWnd = [];
var IDREGEXP = 1000;
var IDSOURCE = 1001;
var IDESCAPE = 1002;
var IDUNESCAPE = 1003;
var IDCOPYSOU = 1004;
var IDEDSOURCE = 1005;
var IDRE = 1006;
var IDIGCASE = 1007;
var IDGLOBAL = 1008;
var IDMULTIL = 1009;
var IDCOLLECT = 1010
var IDCOPYRE = 1011;
var IDEDRE = 1012;
var IDSTRING = 1013;
var IDNEWLINE = 1014;
var IDNLWIN = 1015;
var IDNLUNIX = 1016;
var IDNLMAC = 1017;
var IDCOPYSTR = 1018;
var IDEDSTRING = 1019;
var IDACTION = 1020;
var IDMETEST = 1021;
var IDMEEXEC = 1022;
var IDMESEARCH = 1023;
var IDMEMATCH = 1024;
var IDMESPLIT = 1025;
var IDMEREPLACE = 1026;
var IDEDWITH = 1027;
var IDRESULT = 1028;
var IDLASTIND = 1029;
var IDRESETIND = 1030;
var IDCOPYRES = 1031;
var IDEDRESULT = 1032;
var IDGLOBPRO = 1033;
var IDEDGLOBPRO = 1034;
var IDTEST = 1035;
var IDHELP = 1036;
var IDOPAQMINUS = 1037;
var IDOPAQPLUS = 1038;
var IDCLOSE = 1039;

//Collection window
var aCol = [];
var IDNAME = 1000;
var IDLIST = 1001;
var IDVALUE = 1002;
var IDREVAL = 1003;
var IDADD = 1004;
var IDRENAME = 1005;
var IDDELETE = 1006;
var IDOK = 1007;
var IDCOLCLOSE = 1008;

var WNDTYPE = 0;
var WND = 1;
var WNDEXSTY = 2;
var WNDSTY = 3;
var WNDX = 4;
var WNDY = 5;
var WNDW = 6;
var WNDH = 7;
var WNDTXT = 8;

//0x50000000 - WS_VISIBLE|WS_CHILD
//0x50000007 - WS_VISIBLE|WS_CHILD|BS_GROUPBOX
//0x50000009 - WS_VISIBLE|WS_CHILD|BS_AUTORADIOBUTTON
//0x50010000 - WS_VISIBLE|WS_CHILD|WS_TABSTOP
//0x50010001 - WS_VISIBLE|WS_CHILD|WS_TABSTOP|BS_DEFPUSHBUTTON
//0x50010003 - WS_VISIBLE|WS_CHILD|WS_TABSTOP|BS_AUTOCHECKBOX
//0x50010080 - WS_VISIBLE|WS_CHILD|WS_TABSTOP|ES_AUTOHSCROLL
//0x50210004 - WS_VISIBLE|WS_CHILD|WS_TABSTOP|WS_VSCROLL|ES_MULTILINE
//0x50310004 - WS_VISIBLE|WS_CHILD|WS_TABSTOP|WS_HSCROLL|WS_VSCROLL|ES_MULTILINE
//0x50310804 - WS_VISIBLE|WS_CHILD|WS_TABSTOP|WS_HSCROLL|WS_VSCROLL|ES_READONLY|ES_MULTILINE
//0x50A10003 - WS_VISIBLE|WS_CHILD|WS_TABSTOP|LBS_STANDARD
//0x50002000 - WS_VISIBLE|WS_CHILD|SS_EDITCONTROL
//Windows WNDTYPE,WND,WNDEXSTY, WNDSTY,WNDX,WNDY,WNDW,WNDH, WNDTXT
aWnd[IDREGEXP ] = ["BUTTON", 0, 0, 0x50000007, 7, 10, 491, 140, pTxtRegExp];
aWnd[IDSOURCE ] = ["STATIC", 0, 0, 0x50000000, 15, 27, 150, 13, pTxtSource];
aWnd[IDESCAPE ] = ["BUTTON", 0, 0, 0x50010000, 180, 23, 100, 20, pTxtEscape];
aWnd[IDUNESCAPE ] = ["BUTTON", 0, 0, 0x50010000, 285, 23, 100, 20, pTxtUnEscape];
aWnd[IDCOPYSOU ] = ["BUTTON", 0, 0, 0x50010000, 390, 23, 100, 20, pTxtCopyPaste];
aWnd[IDEDSOURCE ] = ["EDIT", 0, 0x200, 0x50210004, 15, 45, 475, 35, ""];
aWnd[IDRE ] = ["STATIC", 0, 0, 0x50000000, 15, 92, 30, 13, pTxtRE];
aWnd[IDIGCASE ] = ["BUTTON", 0, 0, 0x50010003, 50, 92, 70, 16, pTxtIgCase];
aWnd[IDGLOBAL ] = ["BUTTON", 0, 0, 0x50010003, 133, 92, 55, 16, pTxtGlobal];
aWnd[IDMULTIL ] = ["BUTTON", 0, 0, 0x50010003, 190, 92, 55, 16, pTxtMultiL];
aWnd[IDCOLLECT ] = ["BUTTON", 0, 0, 0x50010000, 285, 88, 100, 20, pTxtCollect];
aWnd[IDCOPYRE ] = ["BUTTON", 0, 0, 0x50010000, 390, 88, 100, 20, pTxtCopyPaste];
aWnd[IDEDRE ] = ["EDIT", 0, 0x200, 0x50210004, 15, 110, 475, 35, pREStr];
aWnd[IDSTRING ] = ["BUTTON", 0, 0, 0x50000007, 7, 160, 491, 145, pTxtString];
aWnd[IDNEWLINE ] = ["STATIC", 0, 0, 0x50000000, 50, 177, 70, 13, pTxtNewLine];
aWnd[IDNLWIN ] = ["BUTTON", 0, 0, 0x50000009, 120, 177, 70, 16, pTxtNLWin];
aWnd[IDNLUNIX ] = ["BUTTON", 0, 0, 0x50000009, 200, 177, 70, 16, pTxtNLUnix];
aWnd[IDNLMAC ] = ["BUTTON", 0, 0, 0x50000009, 270, 177, 70, 16, pTxtNLMac];
aWnd[IDCOPYSTR ] = ["BUTTON", 0, 0, 0x50010000, 390, 173, 100, 20, pTxtCopyPaste];
aWnd[IDEDSTRING ] = ["EDIT", 0, 0x200, 0x50310004, 15, 195, 475, 105, pString];
aWnd[IDACTION ] = ["BUTTON", 0, 0, 0x50000007, 7, 315, 491, 65, pTxtAction];
aWnd[IDMETEST ] = ["BUTTON", 0, 0, 0x50000009, 15, 335, 85, 16, pTxtMeTest];
aWnd[IDMEEXEC ] = ["BUTTON", 0, 0, 0x50000009, 115, 335, 85, 16, pTxtMeExec];
aWnd[IDMESEARCH ] = ["BUTTON", 0, 0, 0x50000009, 215, 335, 85, 16, pTxtMeSearch];
aWnd[IDMEMATCH ] = ["BUTTON", 0, 0, 0x50000009, 315, 335, 85, 16, pTxtMeMatch];
aWnd[IDMESPLIT ] = ["BUTTON", 0, 0, 0x50000009, 415, 335, 75, 16, pTxtMeSplit];
aWnd[IDMEREPLACE] = ["BUTTON", 0, 0, 0x50000009, 15, 355, 120, 16, pTxtMeReplace];
aWnd[IDEDWITH ] = ["EDIT", 0, 0x200, 0x50010080, 135, 355, 355, 20, pWith];
aWnd[IDRESULT ] = ["BUTTON", 0, 0, 0x50000007, 7, 390, 491, 145, pTxtResult];
aWnd[IDLASTIND ] = ["STATIC", 0, 0, 0x50000000, 50, 407, 130, 13, pTxtLastInd];
aWnd[IDRESETIND ] = ["BUTTON", 0, 0, 0x50010000, 180, 403, 100, 20, pTxtResetInd];
aWnd[IDCOPYRES ] = ["BUTTON", 0, 0, 0x50010000, 390, 403, 100, 20, pTxtCopy];
aWnd[IDEDRESULT ] = ["EDIT", 0, 0x200, 0x50310804, 15, 425, 475, 105, ""];
aWnd[IDGLOBPRO ] = ["BUTTON", 0, 0, 0x50000007, 7, 545, 381, 125, pTxtGlobPro];
aWnd[IDEDGLOBPRO] = ["EDIT", 0, 0x200, 0x50310804, 15, 560, 365, 105, ""];
aWnd[IDTEST ] = ["BUTTON", 0, 0, 0x50010001, 395, 550, 100, 23, pTxtTest];
aWnd[IDHELP ] = ["BUTTON", 0, 0, 0x50010000, 395, 575, 100, 23, pTxtHelp];
aWnd[IDOPAQMINUS] = ["BUTTON", 0, 0, 0x50010000, 395, 600, 100, 23, pTxtOpaqMinus];
aWnd[IDOPAQPLUS ] = ["BUTTON", 0, 0, 0x50010000, 395, 625, 100, 23, pTxtOpaqPlus];
aWnd[IDCLOSE ] = ["BUTTON", 0, 0, 0x50010000, 395, 650, 100, 23, pTxtClose];

aCol[IDNAME ] = ["BUTTON", 0, 0, 0x50000007, 10, 10, 260, 30, pTxtName];
aCol[IDLIST ] = ["LISTBOX", 0, 0, 0x50A10003, 10, 30, 260, 270, ""];
aCol[IDVALUE ] = ["BUTTON", 0, 0, 0x50000007, 280, 40, 225, 235, pTxtValue];
aCol[IDREVAL ] = ["STATIC", 0, 0, 0x50002000, 285, 60, 215, 210, ""];
aCol[IDADD ] = ["BUTTON", 0, 0, 0x50010000, 10, 290, 95, 23, pTxtAdd];
aCol[IDRENAME ] = ["BUTTON", 0, 0, 0x50010000, 110, 290, 95, 23, pTxtRename];
aCol[IDDELETE ] = ["BUTTON", 0, 0, 0x50010000, 210, 290, 95, 23, pTxtDelete];
aCol[IDOK ] = ["BUTTON", 0, 0, 0x50010001, 310, 290, 95, 23, pTxtOK];
aCol[IDCOLCLOSE ] = ["BUTTON", 0, 0, 0x50010000, 410, 290, 95, 23, pTxtClose];

if (hEditWnd)
{
if (lpBuffer = AkelPad.MemAlloc(nBufSize * _TSIZE))
{
if (AkelPad.WindowRegisterClass(pClassName))
{
//Create dialog
hWndDlg = oSys.Call("user32::CreateWindowEx" + _TCHAR,
0, //dwExStyle
pClassName, //lpClassName
pTxtCaption, //lpWindowName
0x90CA0000, //WS_VISIBLE|WS_POPUP|WS_CAPTION|WS_SYSMENU|WS_MINIMIZEBOX
0, //x
0, //y
510, //nWidth
710, //nHeight
hMainWnd, //hWndParent
0, //ID
hInstanceDLL, //hInstance
DialogCallback); //Script function callback. To use it class must be registered by WindowRegisterClass.
if (hWndDlg)
{
//Allow other scripts running
AkelPad.ScriptNoMutex();

//Message loop
AkelPad.WindowGetMessage();
}
AkelPad.WindowUnregisterClass(pClassName);
}
else if (hWndDlg = oSys.Call("user32::FindWindowEx" + _TCHAR, 0, 0, pClassName, 0))
{
AkelPad.SendMessage(hWndDlg, 7 /*WM_SETFOCUS*/, 0, 0);
}
AkelPad.MemFree(lpBuffer);
}
}

function DialogCallback(hWnd, uMsg, wParam, lParam)
{
var i, nLowParam, nHiwParam;

if (uMsg == 1) //WM_CREATE
{
//Create windows
for (i = 1000; i < aWnd.length; ++i)
{
aWnd[i][WND] = oSys.Call("user32::CreateWindowEx" + _TCHAR,
aWnd[i][WNDEXSTY], //dwExStyle
aWnd[i][WNDTYPE], //lpClassName
0, //lpWindowName
aWnd[i][WNDSTY], //dwStyle
aWnd[i][WNDX], //x
aWnd[i][WNDY], //y
aWnd[i][WNDW], //nWidth
aWnd[i][WNDH], //nHeight
hWnd, //hWndParent
i, //ID
hInstanceDLL, //hInstance
0); //lpParam
//Set font and text
SetWndFontAndText(aWnd[i][WND], hGuiFont, aWnd[i][WNDTXT]);
}

//Set limit edit text
AkelPad.SendMessage(aWnd[IDEDSOURCE ][WND], 197 /*EM_SETLIMITTEXT*/, 256, 0);
AkelPad.SendMessage(aWnd[IDEDRE ][WND], 197 /*EM_SETLIMITTEXT*/, 256, 0);
AkelPad.SendMessage(aWnd[IDEDSTRING ][WND], 197 /*EM_SETLIMITTEXT*/, nBufSize - 1, 0);
AkelPad.SendMessage(aWnd[IDEDWITH ][WND], 197 /*EM_SETLIMITTEXT*/, 256, 0);
AkelPad.SendMessage(aWnd[IDEDRESULT ][WND], 197 /*EM_SETLIMITTEXT*/, nBufSize - 1, 0);
AkelPad.SendMessage(aWnd[IDEDGLOBPRO][WND], 197 /*EM_SETLIMITTEXT*/, nBufSize - 1, 0);
//Check
CheckButtons();
//Set window position
if ((nWndPosX == undefined) || (nWndPosY == undefined))
MoveWindow(hMainWnd, hWnd, "RT");
else
MoveWindow(hMainWnd, hWnd, [nWndPosX, nWndPosY]);
//Set opaque
if (nOpaque < 255)
SetOpaqueLevel(hWnd, nOpaque);

hFocus = aWnd[IDEDSOURCE][WND];

SetLastIndex();
SetSource();
}

else if ((uMsg == 6) /*WM_ACTIVATE*/ && (! wParam))
hFocus = oSys.Call("user32::GetFocus");

else if (uMsg == 7) //WM_SETFOCUS
oSys.Call("user32::SetFocus", hFocus);

else if ((uMsg == 256) /*WM_KEYDOWN*/ &&
(! (oSys.Call("user32::GetAsyncKeyState", 0x11 /*VK_CONTROL*/) & 0x80000000)))
{
if (wParam == 27) //VK_ESCAPE
oSys.Call("user32::PostMessage" + _TCHAR, hWnd, 16 /*WM_CLOSE*/, 0, 0);
else if (wParam == 13) //VK_RETURN
{
if (bIsTest)
bIsTest = 0;
else
{
hFocus = oSys.Call("user32::GetFocus");
if ((hFocus != aWnd[IDESCAPE ][WND]) && (hFocus != aWnd[IDUNESCAPE ][WND]) &&
(hFocus != aWnd[IDCOPYSOU ][WND]) && (hFocus != aWnd[IDCOLLECT ][WND]) &&
(hFocus != aWnd[IDCOPYRE ][WND]) && (hFocus != aWnd[IDCOPYSTR ][WND]) &&
(hFocus != aWnd[IDRESETIND ][WND]) && (hFocus != aWnd[IDCOPYRES ][WND]) &&
(hFocus != aWnd[IDTEST ][WND]) && (hFocus != aWnd[IDHELP ][WND]) &&
(hFocus != aWnd[IDOPAQMINUS][WND]) && (hFocus != aWnd[IDOPAQPLUS ][WND]) &&
(hFocus != aWnd[IDCLOSE ][WND]))
oSys.Call("user32::PostMessage" + _TCHAR, hWnd, 273 /*WM_COMMAND*/, IDTEST, 0);
}
}
else if (wParam == 112) //VK_F1
oSys.Call("user32::PostMessage" + _TCHAR, hWnd, 273 /*WM_COMMAND*/, IDHELP, 0);
}

else if ((uMsg == 258 /*WM_CHAR*/) && (wParam == 9 /*VK_TAB*/))
oSys.Call("user32::SetFocus",
oSys.Call("user32::GetNextDlgTabItem", hWnd, oSys.Call("user32::GetFocus"),
oSys.Call("user32::GetAsyncKeyState", 0xA0 /*VK_LSHIFT*/) & 0x80000000));

else if (uMsg == 260) //WM_SYSKEYDOWN
{
if (oSys.Call("user32::GetAsyncKeyState", 0xA0 /*VK_LSHIFT*/) & 0x80000000)
{
if (wParam == 0x27) //VK_RIGHT
MoveWindow(hMainWnd, hWnd, "R");
else if (wParam == 0x25) //VK_LEFT
MoveWindow(hMainWnd, hWnd, "L");
else if (wParam == 0x28) //VK_DOWN
MoveWindow(hMainWnd, hWnd, "D");
else if (wParam == 0x26) //VK_UP
MoveWindow(hMainWnd, hWnd, "U");
else if (wParam == 0x23) //VK_END
MoveWindow(hMainWnd, hWnd, "E");
else if (wParam == 0x24) //VK_HOME
MoveWindow(hMainWnd, hWnd, "H");
else if (wParam == 0x22) //VK_NEXT
MoveWindow(hMainWnd, hWnd, "B");
else if (wParam == 0x21) //VK_PRIOR
MoveWindow(hMainWnd, hWnd, "T");
}

if ((wParam == 109) || (wParam == 189)) //Num- or -
SetOpaqueLevel(hWnd, -2);
else if ((wParam == 107) || (wParam == 187)) //Num+ or +
SetOpaqueLevel(hWnd, -1);
}

else if (uMsg == 273) //WM_COMMAND
{
nLowParam = LoWord(wParam);
nHiwParam = HiWord(wParam);

if (nLowParam == IDEDSOURCE)
{
if (nHiwParam == 0x0100 /*EN_SETFOCUS*/)
AkelPad.SendMessage(aWnd[IDEDSOURCE][WND], 0x00B1 /*EM_SETSEL*/, oSel.Source1, oSel.Source2);
else if (nHiwParam == 0x0200 /*EN_KILLFOCUS*/)
{
oSel.Source1 = LoWord(AkelPad.SendMessage(aWnd[IDEDSOURCE][WND], 0x00B0 /*EM_GETSEL*/, 0, 0));
oSel.Source2 = HiWord(AkelPad.SendMessage(aWnd[IDEDSOURCE][WND], 0x00B0 /*EM_GETSEL*/, 0, 0));
}
else if (nHiwParam == 0x0300 /*EN_CHANGE*/)
{
SetLastIndex(0);
SetRE();
}
}
else if (nLowParam == IDEDRE)
{
if (nHiwParam == 0x0100 /*EN_SETFOCUS*/)
AkelPad.SendMessage(aWnd[IDEDRE][WND], 0x00B1 /*EM_SETSEL*/, oSel.RE1, oSel.RE2);
else if (nHiwParam == 0x0200 /*EN_KILLFOCUS*/)
{
oSel.RE1 = LoWord(AkelPad.SendMessage(aWnd[IDEDRE][WND], 0x00B0 /*EM_GETSEL*/, 0, 0));
oSel.RE2 = HiWord(AkelPad.SendMessage(aWnd[IDEDRE][WND], 0x00B0 /*EM_GETSEL*/, 0, 0));
SetRE();
}
else if (nHiwParam == 0x0300 /*EN_CHANGE*/)
{
SetLastIndex(0);
SetSource();
}
}
else if (nLowParam == IDEDSTRING)
{
if (nHiwParam == 0x0100 /*EN_SETFOCUS*/)
AkelPad.SendMessage(aWnd[IDEDSTRING][WND], 0x00B1 /*EM_SETSEL*/, oSel.String1, oSel.String2);
else if (nHiwParam == 0x0200 /*EN_KILLFOCUS*/)
{
oSel.String1 = LoWord(AkelPad.SendMessage(aWnd[IDEDSTRING][WND], 0x00B0 /*EM_GETSEL*/, 0, 0));
oSel.String2 = HiWord(AkelPad.SendMessage(aWnd[IDEDSTRING][WND], 0x00B0 /*EM_GETSEL*/, 0, 0));
}
else if (nHiwParam == 0x0300 /*EN_CHANGE*/)
SetLastIndex(0);
}
else if (nLowParam == IDEDWITH)
{
if (nHiwParam == 0x0100 /*EN_SETFOCUS*/)
AkelPad.SendMessage(aWnd[IDEDWITH][WND], 0x00B1 /*EM_SETSEL*/, oSel.With1, oSel.With2);
else if (nHiwParam == 0x0200 /*EN_KILLFOCUS*/)
{
oSel.With1 = LoWord(AkelPad.SendMessage(aWnd[IDEDWITH][WND], 0x00B0 /*EM_GETSEL*/, 0, 0));
oSel.With2 = HiWord(AkelPad.SendMessage(aWnd[IDEDWITH][WND], 0x00B0 /*EM_GETSEL*/, 0, 0));
}
else if (nHiwParam == 0x0300 /*EN_CHANGE*/)
SetLastIndex(0);
}
else if (nLowParam == IDEDRESULT)
{
if (nHiwParam == 0x0100 /*EN_SETFOCUS*/)
AkelPad.SendMessage(aWnd[IDEDRESULT][WND], 0x00B1 /*EM_SETSEL*/, oSel.Result1, oSel.Result2);
else if (nHiwParam == 0x0200 /*EN_KILLFOCUS*/)
{
oSel.Result1 = LoWord(AkelPad.SendMessage(aWnd[IDEDRESULT][WND], 0x00B0 /*EM_GETSEL*/, 0, 0));
oSel.Result2 = HiWord(AkelPad.SendMessage(aWnd[IDEDRESULT][WND], 0x00B0 /*EM_GETSEL*/, 0, 0));
}
}
else if (nLowParam == IDEDGLOBPRO)
{
if (nHiwParam == 0x0100 /*EN_SETFOCUS*/)
AkelPad.SendMessage(aWnd[IDEDGLOBPRO][WND], 0x00B1 /*EM_SETSEL*/, oSel.GlobPro1, oSel.GlobPro2);
else if (nHiwParam == 0x0200 /*EN_KILLFOCUS*/)
{
oSel.GlobPro1 = LoWord(AkelPad.SendMessage(aWnd[IDEDGLOBPRO][WND], 0x00B0 /*EM_GETSEL*/, 0, 0));
oSel.GlobPro2 = HiWord(AkelPad.SendMessage(aWnd[IDEDGLOBPRO][WND], 0x00B0 /*EM_GETSEL*/, 0, 0));
}
}
else if ((nLowParam >= IDIGCASE) && (nLowParam <= IDMULTIL))
{
CheckButtons(nLowParam);
SetLastIndex(0);
SetRE();
}
else if (((nLowParam >= IDNLWIN) && (nLowParam <= IDNLMAC)) ||
((nLowParam >= IDMETEST) && (nLowParam <= IDMEREPLACE)))
{
CheckButtons(nLowParam);
SetLastIndex(0);
}
else if ((nLowParam == IDESCAPE) || (nLowParam == IDUNESCAPE))
{
if (EscapeUnescape(nLowParam == IDESCAPE))
{
SetLastIndex(0);
SetRE();
}
}
else if ((nLowParam == IDCOPYSOU) || (nLowParam == IDCOPYRE) ||
(nLowParam == IDCOPYSTR) || (nLowParam == IDCOPYRES))
{
if (CopyPaste(nLowParam))
{
SetLastIndex(0);
if (nLowParam == IDCOPYSOU)
SetRE();
else if (nLowParam == IDCOPYRE)
SetSource();
}
}
else if (nLowParam == IDCOLLECT)
Collection();
else if (nLowParam == IDRESETIND)
SetLastIndex(0);
else if (nLowParam == IDTEST)
{
bIsTest = (oSys.Call("user32::GetFocus") == aWnd[IDTEST][WND]) ? 1 : 0;
SetRE();
TestRE();
}
else if (nLowParam == IDHELP)
Help();
else if (nLowParam == IDOPAQMINUS)
SetOpaqueLevel(hWnd, -2);
else if (nLowParam == IDOPAQPLUS)
SetOpaqueLevel(hWnd, -1);
else if (nLowParam == IDCLOSE)
oSys.Call("user32::PostMessage" + _TCHAR, hWnd, 16 /*WM_CLOSE*/, 0, 0);
}

else if (uMsg == 16) //WM_CLOSE
{
WriteIni();
//Destroy dialog
oSys.Call("user32::DestroyWindow", hWnd);
}

else if (uMsg == 2) //WM_DESTROY
{
//Exit message loop
oSys.Call("user32::PostQuitMessage", 0);
}

else
SetDefID(hWnd);

return 0;
}

function SetWndFontAndText(hWnd, hFont, pText)
{
AkelPad.SendMessage(hWnd, 48 /*WM_SETFONT*/, hFont, true);

AkelPad.MemCopy(lpBuffer, pText.substr(0, nBufSize - 1), _TSTR);
oSys.Call("user32::SetWindowText" + _TCHAR, hWnd, lpBuffer);
}

function MoveWindow(hWndParent, hWnd, Action)
{
var rcWndParent;
var rcWnd;
var nX;
var nY;

if (! hWndParent)
hWndParent=oSys.Call("user32::GetDesktopWindow");

rcWndParent = GetWindowPos(hWndParent);
rcWnd = GetWindowPos(hWnd);

nX = rcWnd.left;
nY = rcWnd.top;

if (Action == "R") //Move right
nX = rcWnd.left + ((rcWnd.left < rcWndParent.right - 50) ? 20: 0);
else if (Action == "L") //Move left
nX = rcWnd.left - ((rcWnd.right > rcWndParent.left + 50) ? 20: 0);
else if (Action == "D") //Move down
nY = rcWnd.top + ((rcWnd.top < rcWndParent.bottom - 50) ? 20: 0);
else if (Action == "U") //Move up
nY = rcWnd.top - ((rcWnd.bottom > rcWndParent.top + 50) ? 20: 0);
else if (Action == "E") //Move end (right)
nX = rcWnd.left + (rcWndParent.right - rcWnd.right);
else if (Action == "H") //Move home (left)
nX = rcWnd.left + (rcWndParent.left - rcWnd.left);
else if (Action == "B") //Move bottom
nY = rcWnd.top + (rcWndParent.bottom - rcWnd.bottom);
else if (Action == "T") //Move top
nY = rcWnd.top + (rcWndParent.top - rcWnd.top);
else if (Action == "C") //Center window
{
nX = rcWndParent.left + ((rcWndParent.right - rcWndParent.left) / 2 - (rcWnd.right - rcWnd.left) / 2);
nY = rcWndParent.top + ((rcWndParent.bottom - rcWndParent.top) / 2 - (rcWnd.bottom - rcWnd.top) / 2);
}
else if (Action == "LT") //Move left top
{
nX = rcWndParent.left;
nY = rcWndParent.top;
}
else if (Action == "RT") //Move right top
{
nX = rcWnd.left + (rcWndParent.right - rcWnd.right);
nY = rcWndParent.top;
}
else if (Action == "LB") //Move left bottom
{
nX = rcWndParent.left;
nY = rcWnd.top + (rcWndParent.bottom - rcWnd.bottom);
}
else if (Action == "RB") //Move right bottom
{
nX = rcWnd.left + (rcWndParent.right - rcWnd.right);
nY = rcWnd.top + (rcWndParent.bottom - rcWnd.bottom);
}
else
{
nX = Action[0];
nY = Action[1];
}

oSys.Call("user32::SetWindowPos", hWnd, 0, nX, nY, 0, 0, 0x15 /*SWP_NOZORDER|SWP_NOACTIVATE|SWP_NOSIZE*/);
}

function GetWindowPos(hWnd)
{
var lpRect = AkelPad.MemAlloc(16) //sizeof(RECT);
var rcRect = [];

oSys.Call("user32::GetWindowRect", hWnd, lpRect);

rcRect.left = AkelPad.MemRead(_PtrAdd(lpRect, 0), DT_DWORD);
rcRect.top = AkelPad.MemRead(_PtrAdd(lpRect, 4), DT_DWORD);
rcRect.right = AkelPad.MemRead(_PtrAdd(lpRect, 8), DT_DWORD);
rcRect.bottom = AkelPad.MemRead(_PtrAdd(lpRect, 12), DT_DWORD);
AkelPad.MemFree(lpRect);

return rcRect;
}

function LoWord(nParam)
{
return (nParam & 0xffff);
}

function HiWord(nParam)
{
return ((nParam >> 16) & 0xffff);
}

function SetOpaqueLevel(hWnd, nLevel)
{
var lpAlpha;
var nStyle;

if (nLevel < 0)
{
lpAlpha = AkelPad.MemAlloc(1);
if (oSys.Call("user32::GetLayeredWindowAttributes", hWnd, 0, lpAlpha, 0))
{
nOpaque = AkelPad.MemRead(lpAlpha, 5 /*DT_BYTE*/);
nOpaque += (nLevel == -1) ? 20 : -20;
}
AkelPad.MemFree(lpAlpha);
}

if (nOpaque > 255)
nOpaque = 255;
else if (nOpaque < 55)
nOpaque = 55;

//WS_EX_LAYERED style
nStyle = oSys.Call("User32::GetWindowLong" + _TCHAR, hWnd, -20 /*GWL_EXSTYLE*/);

if (! (nStyle & 0x00080000 /*WS_EX_LAYERED*/))
{
nStyle |= 0x00080000 /*WS_EX_LAYERED*/;
oSys.Call("User32::SetWindowLongW", hWnd, -20 /*GWL_EXSTYLE*/, nStyle);
}

oSys.Call("user32::SetLayeredWindowAttributes", hWnd, 0, nOpaque, 2 /*LWA_ALPHA*/);
}

function SetDefID(hWnd)
{
var nID = 1000;
var hFocus = oSys.Call("user32::GetFocus");

while ((nID < aWnd.length) && (hFocus != aWnd[nID][WND]))
++nID;

if ((nID != IDESCAPE) && (nID != IDUNESCAPE) && (nID != IDCOPYSOU) && (nID != IDCOLLECT) &&
(nID != IDCOPYRE) && (nID != IDCOPYSTR) && (nID != IDCOPYRES) && (nID != IDRESETIND) &&
(nID != IDHELP) && (nID != IDOPAQMINUS) && (nID != IDOPAQPLUS) && (nID != IDCLOSE))
nID = IDTEST;

oSys.Call("user32::DefDlgProc" + _TCHAR, hWnd, 1025 /*DM_SETDEFID*/, nID, 0);
}

function CheckButtons(nButton)
{
var nID;

if (nButton)
{
bIgCase = AkelPad.SendMessage(aWnd[IDIGCASE][WND], BM_GETCHECK, 0, 0);
bGlobal = AkelPad.SendMessage(aWnd[IDGLOBAL][WND], BM_GETCHECK, 0, 0);
bMultiL = AkelPad.SendMessage(aWnd[IDMULTIL][WND], BM_GETCHECK, 0, 0);

for (nID = IDNLWIN; nID <= IDNLMAC; ++nID)
{
if (AkelPad.SendMessage(aWnd[nID][WND], BM_GETCHECK, 0, 0))
{
nNL = nID - IDNLWIN + 1;
break;
}
}

for (nID = IDMETEST; nID <= IDMEREPLACE; ++nID)
{
if (AkelPad.SendMessage(aWnd[nID][WND], BM_GETCHECK, 0, 0))
{
nAction = nID - IDMETEST + 1;
break;
}
}
}

AkelPad.SendMessage(aWnd[IDIGCASE ][WND], BM_SETCHECK, bIgCase , 0);
AkelPad.SendMessage(aWnd[IDGLOBAL ][WND], BM_SETCHECK, bGlobal , 0);
AkelPad.SendMessage(aWnd[IDMULTIL ][WND], BM_SETCHECK, bMultiL , 0);
AkelPad.SendMessage(aWnd[IDNLWIN ][WND], BM_SETCHECK, (nNL == 1) , 0);
AkelPad.SendMessage(aWnd[IDNLUNIX ][WND], BM_SETCHECK, (nNL == 2) , 0);
AkelPad.SendMessage(aWnd[IDNLMAC ][WND], BM_SETCHECK, (nNL == 3) , 0);
AkelPad.SendMessage(aWnd[IDMETEST ][WND], BM_SETCHECK, (nAction == 1), 0);
AkelPad.SendMessage(aWnd[IDMEEXEC ][WND], BM_SETCHECK, (nAction == 2), 0);
AkelPad.SendMessage(aWnd[IDMESEARCH ][WND], BM_SETCHECK, (nAction == 3), 0);
AkelPad.SendMessage(aWnd[IDMEMATCH ][WND], BM_SETCHECK, (nAction == 4), 0);
AkelPad.SendMessage(aWnd[IDMESPLIT ][WND], BM_SETCHECK, (nAction == 5), 0);
AkelPad.SendMessage(aWnd[IDMEREPLACE][WND], BM_SETCHECK, (nAction == 6), 0);

oSys.Call("user32::EnableWindow", aWnd[IDEDWITH][WND], (nAction == 6));
oSys.Call("user32::EnableWindow", aWnd[IDCOLLECT][WND], (typeof Collection == "function"));
}

function EscapeUnescape(bEscape)
{
var bIsChange = 0;
var pSource;

oSys.Call("user32::GetWindowText" + _TCHAR, aWnd[IDEDSOURCE][WND], lpBuffer, nBufSize);
pSource = AkelPad.MemRead(lpBuffer, _TSTR);

if (bEscape)
pSource = pSource.replace(/[\\\/.^$+*?|()\[\]{}]/g, "\\$&");
else
pSource = pSource.replace(/\\([\\\/.^$+*?|()\[\]{}])/g, "$1");

if (pSource != AkelPad.MemRead(lpBuffer, _TSTR))
{
SetWndFontAndText(aWnd[IDEDSOURCE][WND], hGuiFont, pSource);
bIsChange = 1;
}
return bIsChange;
}

function CopyPaste(nID)
{
var bIsChange = 0;
var rcWnd;
var hMenu;
var nCmd;
var nIDED;

if (nID == IDCOPYSOU)
nIDED = IDEDSOURCE;
else if (nID == IDCOPYRE)
nIDED = IDEDRE;
else if (nID == IDCOPYSTR)
nIDED = IDEDSTRING;
else if (nID == IDCOPYRES)
nIDED = IDEDRESULT;

oSys.Call("user32::GetWindowText" + _TCHAR, aWnd[nIDED][WND], lpBuffer, nBufSize);

rcWnd = GetWindowPos(aWnd[nID][WND]);
hMenu = oSys.Call("user32::CreatePopupMenu");

oSys.Call("user32::AppendMenu" + _TCHAR, hMenu,
AkelPad.MemRead(lpBuffer, _TSTR) ? 0x0 /*MF_STRING*/ : 0x1 /*MF_GRAYED*/, 1, pTxtCopyCB);
oSys.Call("user32::AppendMenu" + _TCHAR, hMenu,
AkelPad.MemRead(lpBuffer, _TSTR) ? 0x0 /*MF_STRING*/ : 0x1 /*MF_GRAYED*/, 2, pTxtCopyAP);

if ((nID == IDCOPYSOU) || (nID == IDCOPYRE) || (nID == IDCOPYSTR))
{
oSys.Call("user32::AppendMenu" + _TCHAR, hMenu, 0x800 /*MF_SEPARATOR*/, 0, 0);
oSys.Call("user32::AppendMenu" + _TCHAR, hMenu,
AkelPad.GetClipboardText() ? 0x0 /*MF_STRING*/ : 0x1 /*MF_GRAYED*/, 3, pTxtPasteCB);
oSys.Call("user32::AppendMenu" + _TCHAR, hMenu,
AkelPad.GetSelText() ? 0x0 /*MF_STRING*/ : 0x1 /*MF_GRAYED*/, 4, pTxtPasteAP);
}

nCmd = oSys.Call("user32::TrackPopupMenu", hMenu, 0x188 /*TPM_RIGHTALIGN|TPM_NONOTIFY|TPM_RETURNCMD*/,
rcWnd.right, rcWnd.bottom, 0, hWndDlg, 0);
oSys.Call("user32::DestroyMenu", hMenu);

if (nCmd == 1)
AkelPad.SetClipboardText(AkelPad.MemRead(lpBuffer, _TSTR));
else if (nCmd == 2)
AkelPad.ReplaceSel(AkelPad.MemRead(lpBuffer, _TSTR), -1);
else if (nCmd == 3)
{
if (AkelPad.GetClipboardText() != AkelPad.MemRead(lpBuffer, _TSTR))
{
SetWndFontAndText(aWnd[nIDED][WND], hGuiFont, AkelPad.GetClipboardText());
bIsChange = 1;
}
}
else if (nCmd == 4)
{
if (AkelPad.GetSelText(3 /*\r\n*/) != AkelPad.MemRead(lpBuffer, _TSTR))
{
SetWndFontAndText(aWnd[nIDED][WND], hGuiFont, AkelPad.GetSelText(3 /*\r\n*/));
bIsChange = 1;
}
}

return bIsChange;
}

function SetLastIndex(nInd)
{
if (nInd == undefined)
nInd = oRE.lastIndex;
else
oRE.lastIndex = nInd;

SetWndFontAndText(aWnd[IDLASTIND][WND], hGuiFont, pTxtLastInd + nInd);
}

function SetRE()
{
var pModyf = "";
var pSource;
var oError;

if (bIgCase) pModyf += "i";
if (bGlobal) pModyf += "g";
if (bMultiL) pModyf += "m";

oSys.Call("user32::GetWindowText" + _TCHAR, aWnd[IDEDSOURCE][WND], lpBuffer, nBufSize);
pSource = AkelPad.MemRead(lpBuffer, _TSTR);

try
{
pREStr = String(RegExp(pSource, pModyf));
if (pREStr.length > AkelPad.SendMessage(aWnd[IDEDRE][WND], 213 /*EM_GETLIMITTEXT*/, 0, 0))
pREStr = "";
}
catch (oError)
{
pREStr = "";
}

SetWndFontAndText(aWnd[IDEDRE][WND], hGuiFont, pREStr);
}

function SetSource()
{
var pSource = "";
var nPos;
var pModyf;
var oError;

oSys.Call("user32::GetWindowText" + _TCHAR, aWnd[IDEDRE][WND], lpBuffer, nBufSize);
pREStr = AkelPad.MemRead(lpBuffer, _TSTR).replace(/(^[ \t]+)|([ \t]+$)/g, "");

if ((pREStr.charAt(0) == "/") && ((nPos = pREStr.lastIndexOf("/")) > 0))
{
pModyf = pREStr.substring(nPos + 1);
if (! (pModyf && /[^igm]/.test(pModyf)))
{
pSource = pREStr.substring(1, nPos);

if (pSource.length > AkelPad.SendMessage(aWnd[IDEDSOURCE][WND], 213 /*EM_GETLIMITTEXT*/, 0, 0))
pSource = "";
else
{
bIgCase = (pModyf.indexOf("i") < 0) ? 0 : 1;
bGlobal = (pModyf.indexOf("g") < 0) ? 0 : 1;
bMultiL = (pModyf.indexOf("m") < 0) ? 0 : 1;
CheckButtons();
}
}
}

SetWndFontAndText(aWnd[IDEDSOURCE][WND], hGuiFont, pSource);
}

function TestRE()
{
var pResult = "";
var pModyf = "";
var pNLWin = "\r\n";
var pSource;
var aTestRes;
var i;

oSys.Call("user32::GetWindowText" + _TCHAR, aWnd[IDEDRE][WND], lpBuffer, nBufSize);
pREStr = AkelPad.MemRead(lpBuffer, _TSTR);
if (! pREStr)
{
AkelPad.MessageBox(hWndDlg, pTxtNoRE, pTxtCaption, 48 /*MB_ICONEXCLAMATION*/);
oSys.Call("user32::SetFocus", aWnd[IDEDRE][WND]);
return;
}

oSys.Call("user32::GetWindowText" + _TCHAR, aWnd[IDEDSTRING][WND], lpBuffer, nBufSize);
pString = AkelPad.MemRead(lpBuffer, _TSTR);
if (! pString)
{
AkelPad.MessageBox(hWndDlg, pTxtNoStr, pTxtCaption, 48 /*MB_ICONEXCLAMATION*/);
oSys.Call("user32::SetFocus", aWnd[IDEDSTRING][WND]);
return;
}

if (nNL == 2)
pString = pString.replace(/\r\n/g, "\n");
else if (nNL == 3)
pString = pString.replace(/\r\n/g, "\r");

if (oRE.lastIndex == 0)
{
oSys.Call("user32::GetWindowText" + _TCHAR, aWnd[IDEDSOURCE][WND], lpBuffer, nBufSize);
pSource = AkelPad.MemRead(lpBuffer, _TSTR);
if (bIgCase) pModyf += "i";
if (bGlobal) pModyf += "g";
if (bMultiL) pModyf += "m";
oRE = new RegExp(pSource, pModyf);
}

if (nAction == 1) //.test
pResult = oRE.test(pString).toString();

else if (nAction == 2) //.exec
{
aTestRes = oRE.exec(pString);
if (aTestRes)
{
for (i = 0; i < aTestRes.length; ++i)
pResult += pTxtArray + "[" + i + "]=" + aTestRes[i] + ((i == aTestRes.length - 1) ? "" : pNLWin);
}
else
pResult = String(aTestRes);
}

else if (nAction == 3) //.search
pResult = pString.search(oRE).toString();

else if (nAction == 4) //.match
{
aTestRes = pString.match(oRE);
if (aTestRes)
{
for (i = 0; i < aTestRes.length; ++i)
pResult += pTxtArray + "[" + i + "]=" + aTestRes[i] + ((i == aTestRes.length - 1) ? "" : pNLWin);
}
else
pResult = String(aTestRes);
}

else if (nAction == 5) //.split
{
aTestRes = pString.split(oRE);
if (aTestRes.length)
{
for (i = 0; i < aTestRes.length; ++i)
pResult += pTxtArray + "[" + i + "]=" + aTestRes[i] + ((i == aTestRes.length - 1) ? "" : pNLWin);
}
else
pResult = pTxtEmpArray;
}

else if (nAction == 6) //.replace
{
oSys.Call("user32::GetWindowText" + _TCHAR, aWnd[IDEDWITH][WND], lpBuffer, nBufSize);
pWith = AkelPad.MemRead(lpBuffer, _TSTR);
pResult = pString.replace(oRE, pWith);
}

SetWndFontAndText(aWnd[IDEDRESULT][WND], hGuiFont, pResult);
SetLastIndex();

pResult = "RegExp.$1=" + RegExp.$1 + pNLWin;
pResult += "RegExp.$2=" + RegExp.$2 + pNLWin;
pResult += "RegExp.$3=" + RegExp.$3 + pNLWin;
pResult += "RegExp.$4=" + RegExp.$4 + pNLWin;
pResult += "RegExp.$5=" + RegExp.$5 + pNLWin;
pResult += "RegExp.$6=" + RegExp.$6 + pNLWin;
pResult += "RegExp.$7=" + RegExp.$7 + pNLWin;
pResult += "RegExp.$8=" + RegExp.$8 + pNLWin;
pResult += "RegExp.$9=" + RegExp.$9 + pNLWin;
pResult += "RegExp.index=" + RegExp.index + pNLWin;
pResult += "RegExp.lastIndex=" + RegExp.lastIndex + pNLWin;
pResult += "RegExp.lastMatch=" + RegExp.lastMatch + pNLWin;
pResult += "RegExp.lastParen=" + RegExp.lastParen + pNLWin;
pResult += "RegExp.leftContext=" + RegExp.leftContext + pNLWin;
pResult += "RegExp.rightContext=" + RegExp.rightContext;

SetWndFontAndText(aWnd[IDEDGLOBPRO][WND], hGuiFont, pResult);

oSys.Call("user32::SetFocus", aWnd[IDEDRESULT][WND]);
}

function Help()
{
var rcWnd = GetWindowPos(hWndDlg);
var hWndHlp = oSys.Call("user32::CreateWindowEx" + _TCHAR,
0, //dwExStyle
pClassName, //lpClassName
pTxtREHelp, //lpWindowName
0x90C80000, //WS_VISIBLE|WS_POPUP|WS_CAPTION|WS_SYSMENU
rcWnd.left+15, //x
rcWnd.top+40, //y
425, //nWidth
500, //nHeight
hWndDlg, //hWndParent
0, //ID
hInstanceDLL, //hInstance
DialogCallbackHelp); //lpParam

if (hWndHlp)
{
oSys.Call("user32::EnableWindow", hMainWnd, 0);
oSys.Call("user32::EnableWindow", hWndDlg, 0);
AkelPad.WindowGetMessage();
}
}

function DialogCallbackHelp(hWnd, uMsg, wParam, lParam)
{
if (uMsg == 1) //WM_CREATE
{
hWndEdHlp = oSys.Call("user32::CreateWindowEx" + _TCHAR,
0x200, //dwExStyle
"EDIT", //lpClassName
0, //lpWindowName
0x50200804, //WS_VISIBLE|WS_CHILD|WS_VSCROLL|ES_READONLY|ES_MULTILINE
10, //x
10, //y
400, //nWidth
450, //nHeight
hWnd, //hWndParent
0, //ID
hInstanceDLL, //hInstance
0); //lpParam
SetWndFontAndText(hWndEdHlp, hGuiFont, pTxtHelpText);
}

else if (uMsg == 7) //WM_SETFOCUS
oSys.Call("user32::SetFocus", hWndEdHlp);

else if (uMsg == 256 /*WM_KEYDOWN*/)
{
if ((wParam == 27 /*VK_ESCAPE*/) || (wParam == 112 /*VK_F1*/))
oSys.Call("user32::PostMessage" + _TCHAR, hWnd, 16 /*WM_CLOSE*/, 0, 0);
}

else if (uMsg == 16) //WM_CLOSE
{
oSys.Call("user32::EnableWindow", hMainWnd, 1);
oSys.Call("user32::EnableWindow", hWndDlg, 1);
oSys.Call("user32::DestroyWindow", hWnd);
}

else if (uMsg == 2) //WM_DESTROY
oSys.Call("user32::PostQuitMessage", 0);

return 0;
}

function Collection()
{
var rcWnd = GetWindowPos(hWndDlg);
var hWndCol = oSys.Call("user32::CreateWindowEx" + _TCHAR,
0, //dwExStyle
pClassName, //lpClassName
pTxtRECollect, //lpWindowName
0x90C80000, //WS_VISIBLE|WS_POPUP|WS_CAPTION|WS_SYSMENU
rcWnd.left-4, //x
rcWnd.top+180, //y
520, //nWidth
350, //nHeight
hWndDlg, //hWndParent
0, //ID
hInstanceDLL, //hInstance
DialogCallbackCol); //lpParam

if (hWndCol)
{
oSys.Call("user32::EnableWindow", hMainWnd, 0);
oSys.Call("user32::EnableWindow", hWndDlg, 0);
AkelPad.WindowGetMessage();
}
}

function DialogCallbackCol(hWnd, uMsg, wParam, lParam)
{
var i, nPos, nLowParam, nHiwParam;

if (uMsg == 1) //WM_CREATE
{
for (i = 1000; i < aCol.length; ++i)
{
aCol[i][WND] = oSys.Call("user32::CreateWindowEx" + _TCHAR,
aCol[i][WNDEXSTY], //dwExStyle
aCol[i][WNDTYPE], //lpClassName
0, //lpWindowName
aCol[i][WNDSTY], //dwStyle
aCol[i][WNDX], //x
aCol[i][WNDY], //y
aCol[i][WNDW], //nWidth
aCol[i][WNDH], //nHeight
hWnd, //hWndParent
i, //ID
hInstanceDLL, //hInstance
0); //lpParam
SetWndFontAndText(aCol[i][WND], hGuiFont, aCol[i][WNDTXT]);
}

//Fill listbox
for (i = 0; i < aRECol.length; ++i)
{
AkelPad.MemCopy(lpBuffer, aRECol[i][0], _TSTR);
nPos = AkelPad.SendMessage(aCol[IDLIST][WND], 0x0180 /*LB_ADDSTRING*/, 0, lpBuffer);
if (nPos >= 0)
{
AkelPad.SendMessage(aCol[IDLIST][WND], 0x019A /*LB_SETITEMDATA*/, nPos, i);
if (aRECol[i][1] == pREStr)
AkelPad.SendMessage(aCol[IDLIST][WND], 0x0186 /*LB_SETCURSEL*/, nPos, 0);
}
}

CheckButtonsCollection();
}

else if (uMsg == 7) //WM_SETFOCUS
{
oSys.Call("user32::SetFocus", aCol[IDLIST][WND]);
SetSelRE();
}

else if (uMsg == 256 /*WM_KEYDOWN*/)
{
if (wParam == 27 /*VK_ESCAPE*/)
oSys.Call("user32::PostMessage" + _TCHAR, hWnd, 16 /*WM_CLOSE*/, 0, 0);
else if (wParam == 13 /*VK_RETURN*/)
{
if (! bIsReturn)
oSys.Call("user32::PostMessage" + _TCHAR, hWnd, 273 /*WM_COMMAND*/, IDOK, 0);
}
else if (wParam == 45 /*VK_INSERT*/)
oSys.Call("user32::PostMessage" + _TCHAR, hWnd, 273 /*WM_COMMAND*/, IDADD, 0);
else if (wParam == 46 /*VK_DELETE*/)
oSys.Call("user32::PostMessage" + _TCHAR, hWnd, 273 /*WM_COMMAND*/, IDDELETE, 0);
else if (wParam == 113 /*VK_F2*/)
oSys.Call("user32::PostMessage" + _TCHAR, hWnd, 273 /*WM_COMMAND*/, IDRENAME, 0);
}

else if (uMsg == 257 /*WM_KEYUP*/)
bIsReturn = 0;

else if (uMsg == 258 /*WM_CHAR*/)
FindRE(wParam);

else if (uMsg == 273) //WM_COMMAND
{
nLowParam = LoWord(wParam);
nHiwParam = HiWord(wParam);

if (nLowParam == IDLIST)
{
if (nHiwParam == 1 /*LBN_SELCHANGE*/)
SetSelRE();
else if (nHiwParam == 2 /*LBN_DBLCLK*/)
oSys.Call("user32::PostMessage" + _TCHAR, hWnd, 273 /*WM_COMMAND*/, IDOK, 0);
}
else if (nLowParam == IDADD)
{
bIsReturn = 1;
AddRE(hWnd);
}
else if (nLowParam == IDRENAME)
{
bIsReturn = 1;
RenameRE(hWnd);
}
else if (nLowParam == IDDELETE)
{
bIsReturn = 1;
DeleteRE();
}
else if (nLowParam == IDOK)
{
nPos = AkelPad.SendMessage(aCol[IDLIST][WND], 0x0188 /*LB_GETCURSEL*/, 0, 0);
if (nPos >= 0)
{
i = AkelPad.SendMessage(aCol[IDLIST][WND], 0x0199 /*LB_GETITEMDATA*/, nPos, 0);
SetWndFontAndText(aWnd[IDEDRE][WND], hGuiFont, aRECol[i][1]);
SetLastIndex(0);
SetSource();
}
oSys.Call("user32::PostMessage" + _TCHAR, hWnd, 16 /*WM_CLOSE*/, 0, 0);
}
else if (nLowParam == IDCOLCLOSE)
oSys.Call("user32::PostMessage" + _TCHAR, hWnd, 16 /*WM_CLOSE*/, 0, 0);
}

else if (uMsg == 16) //WM_CLOSE
{
for (i = aRECol.length - 1; i >= 0; --i)
{
if (! aRECol[i][0])
aRECol.splice(i, 1);
}
oSys.Call("user32::EnableWindow", hMainWnd, 1);
oSys.Call("user32::EnableWindow", hWndDlg, 1);
oSys.Call("user32::DestroyWindow", hWnd);
}

else if (uMsg == 2) //WM_DESTROY
oSys.Call("user32::PostQuitMessage", 0);

else
SetDefIDCollection(hWnd);

return 0;
}

function SetDefIDCollection(hWnd)
{
var nID = 1000;
var hFocus = oSys.Call("user32::GetFocus");

while ((nID < aCol.length) && (hFocus != aCol[nID][WND]))
++nID;

if (nID == IDLIST)
nID = IDOK;

oSys.Call("user32::DefDlgProc" + _TCHAR, hWnd, 1025 /*DM_SETDEFID*/, nID, 0);
}

function CheckButtonsCollection()
{
var bEnable;

oSys.Call("user32::GetWindowText" + _TCHAR, aWnd[IDEDRE][WND], lpBuffer, nBufSize);
if (AkelPad.MemRead(lpBuffer, _TSTR))
bEnable = 1;
else
bEnable = 0;
oSys.Call("user32::EnableWindow", aCol[IDADD][WND], bEnable);

if (AkelPad.SendMessage(aCol[IDLIST][WND], 0x018B /*LB_GETCOUNT*/, 0, 0) > 0)
bEnable = 1;
else
{
bEnable = 0;
oSys.Call("user32::SetFocus", aCol[IDLIST][WND]);
}

oSys.Call("user32::EnableWindow", aCol[IDRENAME][WND], bEnable);
oSys.Call("user32::EnableWindow", aCol[IDDELETE][WND], bEnable);
oSys.Call("user32::EnableWindow", aCol[IDOK ][WND], bEnable);
}

function SetSelRE(nPos)
{
var pVal = "";
var i;

if (nPos == undefined)
nPos = AkelPad.SendMessage(aCol[IDLIST][WND], 0x0188 /*LB_GETCURSEL*/, 0, 0);
if (nPos < 0)
nPos = 0;

nPos = AkelPad.SendMessage(aCol[IDLIST][WND], 0x0186 /*LB_SETCURSEL*/, nPos, 0);

if (nPos >= 0)
{
i = AkelPad.SendMessage(aCol[IDLIST][WND], 0x0199 /*LB_GETITEMDATA*/, nPos, 0);
pVal = aRECol[i][1];
}

SetWndFontAndText(aCol[IDREVAL][WND], hGuiFont, pVal);
}

}

KDJ · Joined: 06 Mar 2010 Posts: 1929 Location: Poland

Regular expression tester for JavaScript - Part Two.

The second part of the script: RegExpTestJS.js (see previous post).
Both parts should be placed in one file.

RegExpTestJS_part2.js

Code:

Interface language files:
RegExpTestJS_1033.lng

Code:

/********************************
RegExpTestJS.js - ver. 2015-09-19
Interface language
Language: English (1033)
Translated by: KDJ
*********************************/
pTxtCaption = "Regular Expressions Tester for JavaScript";
pTxtRegExp = "Regular Expression (RE)";
pTxtSource = "RE.source";
pTxtEscape = "&Escape";
pTxtUnEscape = "&UnEscape";
pTxtRE = "RE";
pTxtIgCase = "&ignoreCase";
pTxtGlobal = "&global";
pTxtMultiL = "&multiline";
pTxtNewLine = "New line:";
pTxtCollect = "&Collection";
pTxtNLWin = "Win (\\r\\n)";
pTxtNLUnix = "Unix (\\n)";
pTxtNLMac = "Mac (\\r)";
pTxtString = "String to test (Str)";
pTxtAction = "Action";
pTxtMeTest = "RE.test(Str)";
pTxtMeExec = "RE.exec(Str)";
pTxtMeSearch = "Str.search(RE)";
pTxtMeMatch = "Str.match(RE)";
pTxtMeSplit = "Str.split(RE)";
pTxtMeReplace = "Str.replace(RE,With):";
pTxtResult = "Result";
pTxtLastInd = "RE.lastIndex=";
pTxtResetInd = "&Reset lastIndex";
pTxtArray = "Array";
pTxtEmpArray = "empty Array";
pTxtGlobPro = "Global RegExp object properties";
pTxtTest = "Test";
pTxtHelp = "Help";
pTxtOpaqMinus = "Opaque-";
pTxtOpaqPlus = "Opaque+";
pTxtClose = "Close";
pTxtCopyPaste = "Copy/Paste";
pTxtCopy = "Copy";
pTxtCopyCB = "Copy to clipboard";
pTxtCopyAP = "Copy to AkelPad";
pTxtPasteCB = "Paste from clipboard";
pTxtPasteAP = "Paste from AkelPad";
pTxtNoRE = "There is no Regular Expression."
pTxtNoStr = "There is no string to test.";
pTxtRECollect = "Collection of Regular Expressions";
pTxtName = "Name";
pTxtValue = "Value";
pTxtAdd = "Add (Ins)";
pTxtRename = "Rename (F2)";
pTxtDelete = "Delete (Del)";
pTxtOK = "OK (Enter)";
pTxtAddRE = "Add Regular Expression";
pTxtRenRE = "Rename Regular Expression";
pTxtNewName = "New name";
pTxtREExist = "This Regular Expression already exists under name: ";
pTxtNameExist = "This name already exists: ";
pTxtREHelp = "Help for Regular Expressions";
pTxtHelpText = " Modifiers\r\nModifiers are used to perform case-insensitive and global searches:\r\nModifier Description\r\ni Perform case-insensitive matching\r\ng Perform a global match (find all matches rather than stopping after the\r\n first match)\r\nm Perform multiline matching\r\n\r\n Brackets\r\nBrackets are used to find a range of characters:\r\nExpression Description\r\n[abc] Find any character between the brackets\r\n[^abc] Find any character not between the brackets\r\n[0-9] Find any digit from 0 to 9\r\n[A-Z] Find any character from uppercase A to uppercase Z\r\n[a-z] Find any character from lowercase a to lowercase z\r\n[A-z] Find any character from uppercase A to lowercase z\r\n[adgk] Find any character in the given set\r\n[^adgk] Find any character outside the given set\r\n(red|blue|green) Find any of the alternatives specified\r\n\r\n Metacharacters\r\nMetacharacters are characters with a special meaning:\r\nMetachar Description\r\n. Find a single character, except newline or line terminator\r\n\\w Find a word character\r\n\\W Find a non-word character\r\n\\d Find a digit\r\n\\D Find a non-digit character\r\n\\s Find a whitespace character\r\n\\S Find a non-whitespace character\r\n\\b Find a match at the beginning/end of a word\r\n\\B Find a match not at the beginning/end of a word\r\n\\0 Find a NUL character\r\n\\n Find a new line character\r\n\\f Find a form feed character\r\n\\r Find a carriage return character\r\n\\t Find a tab character\r\n\\v Find a vertical tab character\r\n\\xxx Find the character specified by an octal number xxx\r\n\\xdd Find the character specified by a hexadecimal number dd\r\n\\uxxxx Find the Unicode character specified by a hexadecimal number xxxx\r\n\r\n Quantifiers\r\nQuantifier Description\r\nn+ Matches any string that contains at least one n\r\nn* Matches any string that contains zero or more occurrences of n\r\nn? Matches any string that contains zero or one occurrences of n\r\nn{X} Matches any string that contains a sequence of X n's\r\nn{X,Y} Matches any string that contains a sequence of X or Y n's\r\nn{X,} Matches any string that contains a sequence of at least X n's\r\nn$ Matches any string with n at the end of it\r\n^n Matches any string with n at the beginning of it\r\n?=n Matches any string that is followed by a specific string n\r\n?!n Matches any string that is not followed by a specific string n\r\n\r\n RegExp Object Properties\r\nProperty Description\r\nglobal Specifies if the \"g\" modifier is set\r\nignoreCase Specifies if the \"i\" modifier is set\r\nlastIndex The index at which to start the next match\r\nmultiline Specifies if the \"m\" modifier is set\r\nsource The text of the RegExp pattern\r\n\r\n RegExp Object Methods\r\nMethod Description\r\ncompile() Compiles a regular expression\r\nexec() Tests for a match in a string. Returns the first match\r\ntest() Tests for a match in a string. Returns true or false\r\n\r\n _____________________________\r\n Source: http://www.w3schools.com";

- English template for translation
RegExpTestJS_1045.lng

Code:

/********************************
RegExpTestJS.js - ver. 2015-09-19
Interface language
Language: Polish (1045)
Translated by: KDJ
*********************************/
pTxtCaption = "Tester wyrażeń regularnych dla JavaScript";
pTxtRegExp = "Wyrażenie regularne (RE)";
pTxtSource = "RE.source";
pTxtEscape = "&Escape";
pTxtUnEscape = "&UnEscape";
pTxtRE = "RE";
pTxtIgCase = "&ignoreCase";
pTxtGlobal = "&global";
pTxtMultiL = "&multiline";
pTxtNewLine = "Nowy wiersz:";
pTxtCollect = "&Kolekcja";
pTxtNLWin = "Win (\\r\\n)";
pTxtNLUnix = "Unix (\\n)";
pTxtNLMac = "Mac (\\r)";
pTxtString = "Tekst do testowania (Str)";
pTxtAction = "Wykonaj";
pTxtMeTest = "RE.test(Str)";
pTxtMeExec = "RE.exec(Str)";
pTxtMeSearch = "Str.search(RE)";
pTxtMeMatch = "Str.match(RE)";
pTxtMeSplit = "Str.split(RE)";
pTxtMeReplace = "Str.replace(RE,With):";
pTxtResult = "Wynik";
pTxtLastInd = "RE.lastIndex=";
pTxtResetInd = "&Resetuj lastIndex";
pTxtArray = "Array";
pTxtEmpArray = "empty Array";
pTxtGlobPro = "Właściowości globalnego objektu RegExp";
pTxtTest = "Testuj";
pTxtHelp = "Pomoc";
pTxtOpaqMinus = "Przezroczystość+";
pTxtOpaqPlus = "Przezroczystość-";
pTxtClose = "Zamknij";
pTxtCopyPaste = "Kopiuj/Wklej";
pTxtCopy = "Kopiuj";
pTxtCopyCB = "Kopiuj do schowka";
pTxtCopyAP = "Wstaw do AkelPad'a";
pTxtPasteCB = "Wklej ze schowka";
pTxtPasteAP = "Wklej z AkelPad'a";
pTxtNoRE = "Brak wyrażenia regularnego."
pTxtNoStr = "Brak tekstu do testowania.";
pTxtRECollect = "Kolekcja wyrażeń regularnych";
pTxtName = "Nazwa";
pTxtValue = "Wartość";
pTxtAdd = "Dodaj (Ins)";
pTxtRename = "Zmień nazwę (F2)";
pTxtDelete = "Usuń (Del)";
pTxtOK = "OK (Enter)";
pTxtAddRE = "Dodawanie wyrażenia regularnego";
pTxtRenRE = "Zmiana nazwy wyrażenia regularnego";
pTxtNewName = "Nowa nazwa";
pTxtREExist = "To wyrażenie regularne już istnieje pod nazwą: ";
pTxtNameExist = "Ta nazwa już istnieje: ";
pTxtREHelp = "Pomoc dla wyrażeń regularnych";
pTxtHelpText = " Modifiers\r\nModifiers are used to perform case-insensitive and global searches:\r\nModifier Description\r\ni Perform case-insensitive matching\r\ng Perform a global match (find all matches rather than stopping after the\r\n first match)\r\nm Perform multiline matching\r\n\r\n Brackets\r\nBrackets are used to find a range of characters:\r\nExpression Description\r\n[abc] Find any character between the brackets\r\n[^abc] Find any character not between the brackets\r\n[0-9] Find any digit from 0 to 9\r\n[A-Z] Find any character from uppercase A to uppercase Z\r\n[a-z] Find any character from lowercase a to lowercase z\r\n[A-z] Find any character from uppercase A to lowercase z\r\n[adgk] Find any character in the given set\r\n[^adgk] Find any character outside the given set\r\n(red|blue|green) Find any of the alternatives specified\r\n\r\n Metacharacters\r\nMetacharacters are characters with a special meaning:\r\nMetachar Description\r\n. Find a single character, except newline or line terminator\r\n\\w Find a word character\r\n\\W Find a non-word character\r\n\\d Find a digit\r\n\\D Find a non-digit character\r\n\\s Find a whitespace character\r\n\\S Find a non-whitespace character\r\n\\b Find a match at the beginning/end of a word\r\n\\B Find a match not at the beginning/end of a word\r\n\\0 Find a NUL character\r\n\\n Find a new line character\r\n\\f Find a form feed character\r\n\\r Find a carriage return character\r\n\\t Find a tab character\r\n\\v Find a vertical tab character\r\n\\xxx Find the character specified by an octal number xxx\r\n\\xdd Find the character specified by a hexadecimal number dd\r\n\\uxxxx Find the Unicode character specified by a hexadecimal number xxxx\r\n\r\n Quantifiers\r\nQuantifier Description\r\nn+ Matches any string that contains at least one n\r\nn* Matches any string that contains zero or more occurrences of n\r\nn? Matches any string that contains zero or one occurrences of n\r\nn{X} Matches any string that contains a sequence of X n's\r\nn{X,Y} Matches any string that contains a sequence of X or Y n's\r\nn{X,} Matches any string that contains a sequence of at least X n's\r\nn$ Matches any string with n at the end of it\r\n^n Matches any string with n at the beginning of it\r\n?=n Matches any string that is followed by a specific string n\r\n?!n Matches any string that is not followed by a specific string n\r\n\r\n RegExp Object Properties\r\nProperty Description\r\nglobal Specifies if the \"g\" modifier is set\r\nignoreCase Specifies if the \"i\" modifier is set\r\nlastIndex The index at which to start the next match\r\nmultiline Specifies if the \"m\" modifier is set\r\nsource The text of the RegExp pattern\r\n\r\n RegExp Object Methods\r\nMethod Description\r\ncompile() Compiles a regular expression\r\nexec() Tests for a match in a string. Returns the first match\r\ntest() Tests for a match in a string. Returns true or false\r\n\r\n _____________________________\r\n Source: http://www.w3schools.com";

- Polish
RegExpTestJS_1049.lng

Code:

/*********************************
RegExpTestJS.js - ver. 2015-09-19
Interface language
Language: Russian (1049)
Translated by: VladSh & F. Phoenix
*********************************/
pTxtCaption = "Отладчик регулярных выражений JavaScript";
pTxtRegExp = "Регулярное выражение (RE)";
pTxtSource = "RE.source";
pTxtEscape = "&Экранировать";
pTxtUnEscape = "&Деэкранировать";
pTxtRE = "RE";
pTxtIgCase = "&ignoreCase";
pTxtGlobal = "&global";
pTxtMultiL = "&multiline";
pTxtNewLine = "Переносы:";
pTxtCollect = "&Коллекция";
pTxtNLWin = "Win (\\r\\n)";
pTxtNLUnix = "Unix (\\n)";
pTxtNLMac = "Mac (\\r)";
pTxtString = "Строка с данными для обработки (Str)";
pTxtAction = "Операция";
pTxtMeTest = "RE.test(Str)";
pTxtMeExec = "RE.exec(Str)";
pTxtMeSearch = "Str.search(RE)";
pTxtMeMatch = "Str.match(RE)";
pTxtMeSplit = "Str.split(RE)";
pTxtMeReplace = "Str.replace(RE,With):";
pTxtResult = "Результат";
pTxtLastInd = "RE.lastIndex=";
pTxtResetInd = "Сбросить &индекс";
pTxtArray = "Array";
pTxtEmpArray = "(пустой массив)";
pTxtGlobPro = "Свойства глобального объекта RegExp";
pTxtTest = "Тест";
pTxtHelp = "Справка";
pTxtOpaqMinus = "Прозрачность +";
pTxtOpaqPlus = "Прозрачность -";
pTxtClose = "Закрыть";
pTxtCopyPaste = "Обмен";
pTxtCopy = "Обмен";
pTxtCopyCB = "Копировать в буфер";
pTxtCopyAP = "Копировать в AkelPad";
pTxtPasteCB = "Вставить из буфера";
pTxtPasteAP = "Вставить из AkelPad";
pTxtNoRE = "Регулярное выражение отсутствует."
pTxtNoStr = "Строка для тестирования отсутствует.";
pTxtRECollect = "Коллекция шаблонов";
pTxtName = "Наименование";
pTxtValue = "Значение";
pTxtAdd = "Добавить (Ins)";
pTxtRename = "Переим. (F2)";
pTxtDelete = "Удалить (Del)";
pTxtOK = "OK (Enter)";
pTxtAddRE = "Новый шаблон";
pTxtRenRE = "Переименование шаблона";
pTxtNewName = "Новое имя";
pTxtREExist = "Шаблон уже сохранен под именем ";
pTxtNameExist = "Данное наименование уже существует: ";
pTxtREHelp = "Справка по регулярным выражениям";
pTxtHelpText = "\tМодификаторы, использующиеся для поиска\r\ni\t\tне различать строчные и заглавные буквы\r\ng\t\tглобальный поиск (обрабатываются все совпадения\r\n\t\tс шаблоном поиска)\r\nm\t\tмногострочный поиск\r\n\r\n\tНаборы символов, использующиеся для поиска\r\nВыражение\tОписание\r\n[abc]\t\tНайти любой, указанный в скобках, символ\r\n[^abc]\t\tНайти любой символ, исключая те, что в скобках\r\n[0-9]\t\tНайти любую цифру от 0 до 9\r\n[A-Z]\t\tНайти любой символ в верхнем регистре от A до Z\r\n[a-z]\t\tНайти любой символ в нижнем регистре от a до z\r\n[A-z]\t\tНайти любой символ от A в верхнем регистре до z\r\n\t\tв нижнем регистре\r\n[adgk]\t\tНайти любой символ из заданного набора\r\n[^adgk]\t\tНайти любой символ кроме данного набора\r\n(red|blue|green)\tНайти любое из перечисленных вхождений\r\n\r\n\tСпециальные метасимволы\r\n.\t\tНайдёт любой символ, кроме переводов строк: \\n, \\r,\r\n\t\t\\u2028 или \\u2029 (можно использовать [\\s\\S] для\r\n\t\tпоиска любого символа, включая переводы строк)\r\n\\w\t\tНайдёт любой символ латинского алфавита, включая\r\n\t\tбуквы, цифры и знак подчеркивания\r\n\\W\t\tНайдет любой не-(лат.)словесный символ\r\n\\d\t\tНайдёт цифру из любого алфавита (у нас же юникод);\r\n\t\tиспльзуйте [0-9], чтобы найти только обычные цифры\r\n\\D\t\tНайдет нецифровой символ (все алфавиты)\r\n\\s\t\tНайдет любой пробельный символ, включая пробел,\r\n\t\tтабуляцию, переводы строки и другие юникодные\r\n\t\tпробельные символы\r\n\\S\t\tНайдет любой символ, кроме пробельного\r\n\\b\t\tНаходит границу слов латинских алфавитов, например\r\n\t\tпробел; не путать с [\\b]!\r\n\\B\t\tНаходит совпадения не по границам слов\r\n\\0\t\tНайдет символ NUL; не добавляйте в конец другие\r\n\t\tцифры\r\n\\n\t\tНаходит символ новой строки\r\n\\f\t\tНаходит символ прогона (form-feed)\r\n\\r\t\tНаходит символ возврата каретки\r\n\\t\t\tНаходит символ обычной табуляции\r\n\\v\t\tНаходит символ вертикальной табуляции\r\n\\hhh\t\tНаходит символ, заданный восьмеричным числом hhh\r\n\\xhh\t\tНаходит символ, заданный шестнадцатиричным\r\n\t\tчислом, с кодом hh (2 шестнадцатиричных цифры)\r\n\\uhhhh\t\tНаходит юникодный символ, заданный\r\n\t\tшестнадцатиричным числом, с кодом hhhh\r\n\t\t(4 шестнадцатиричных цифры)\r\n\r\n\tКвантификаторы\r\n^\t\tОбозначает начало входных данных; если установлен\r\n\t\tфлаг многострочного поиска \"m\", то также сработает\r\n\t\tпри начале новой строки\r\n$\t\tОбозначает конец входных данных; если установлен\r\n\t\tфлаг многострочного поиска, то также сработает\r\n\t\tв конце строки\r\nx(?=y)\t\tНаходит x, только если за x следует y\r\nx(?!y)\t\tНаходит x, только если за x не следует y\r\n+\t\tОбозначает повторение предшествующего элемента\r\n\t\t1 или более раз, эквивалентно {1,}\r\n*\t\tОбозначает повторение предшествующего элемента\r\n\t\t0 или более раз\r\n?\t\tОбозначает, что предшествующий элемент может\r\n\t\tкак присутствовать, так и отсутствовать\r\n{n}\t\tНаходит ровно n повторений предшествующего\r\n\t\tэлемента\r\n{n,}\t\tНаходит n и более повторений предшествующего\r\n\t\tэлемента\r\n{n,m}\t\tНаходит от n до m повторений предшествующего\r\n\t\tэлемента\r\n\r\n\tСвойства объекта RegExp\r\nglobal\t\tПоказывает, был ли включен флаг поиска всех\r\n\t\tсовпадений \"g\"\r\nignoreCase\tПоказывает, был ли включен флаг\r\n\t\tрегистронезависимого поиска \"i\"\r\nmultiline\t\tПоказывает, был ли включен флаг многострочного\r\n\t\tпоиска \"m\"\r\nlastIndex\t\tИндекс, с которого начинать следующий поиск\r\nsource\t\tТекст RegExp-паттерна\r\n\r\n\tМетоды объекта RegExp\r\ncompile()\t\tКомпилирует регулярное выражение\r\nexec()\t\tПри совпадении возвращает массив и обновляет\r\n\t\tсвойства объекта RegExp, если совпадений нет,\r\n\t\tвозвращает null\r\ntest()\t\tИспользуется, чтобы выяснить, есть ли совпадения\r\n\t\tрегулярного выражения со строкой (аналогично\r\n\t\tString#search), возвращает true или false; чтобы\r\n\t\tполучить сами совпадения, используйте exec или\r\n\t\tString#match\r\ntoString()\t\tВыводит строковое представление объекта RegExp,\r\n\t\tт.е. \"/паттерн/\"\r\n\t________________________________________________\r\n\tИсточники: http://www.w3schools.com, http://javascript.ru";

- Russian by VladSh & F. Phoenix
RegExpTestJS_2052.lng

Code:

/********************************
RegExpTestJS.js - ver. 2015-09-19
Interface language
Language: ChineseSimplified (2052)
Translated by: cnnnc
*********************************/
pTxtCaption = "JavaScript 正则表达式测试工具";
pTxtRegExp = "正则表达式 (RE)";
pTxtSource = "RE.source";
pTxtEscape = "转义(&E)";
pTxtUnEscape = "反转义(&U)";
pTxtRE = "RE";
pTxtIgCase = "忽略大小写(&I)";
pTxtGlobal = "全局(&G)";
pTxtMultiL = "多行(&M)";
pTxtNewLine = "换行符:";
pTxtCollect = "收集(&C)";
pTxtNLWin = "Win (\\r\\n)";
pTxtNLUnix = "Unix (\\n)";
pTxtNLMac = "Mac (\\r)";
pTxtString = "待测字串 (Str)";
pTxtAction = "行为";
pTxtMeTest = "RE.test(Str)";
pTxtMeExec = "RE.exec(Str)";
pTxtMeSearch = "Str.search(RE)";
pTxtMeMatch = "Str.match(RE)";
pTxtMeSplit = "Str.split(RE)";
pTxtMeReplace = "Str.replace(RE,With):";
pTxtResult = "结果";
pTxtLastInd = "RE.lastIndex=";
pTxtResetInd = "重置 lastIndex(&R)";
pTxtArray = "数组";
pTxtEmpArray = "空数组";
pTxtGlobPro = "全局 RegExp 对象属性";
pTxtTest = "测试";
pTxtHelp = "帮助";
pTxtOpaqMinus = "透明 +";
pTxtOpaqPlus = "透明 -";
pTxtClose = "关闭";
pTxtCopyPaste = "复制/粘贴";
pTxtCopy = "复制";
pTxtCopyCB = "复制到剪贴板";
pTxtCopyAP = "复制到 AkelPad";
pTxtPasteCB = "从剪贴板粘贴";
pTxtPasteAP = "从 AkelPad 粘贴";
pTxtNoRE = "无正则表达式。"
pTxtNoStr = "无待测字串。";
pTxtRECollect = "RegExp 收集";
pTxtName = "名称";
pTxtValue = "值";
pTxtAdd = "添加 (Ins)";
pTxtRename = "重命名 (F2)";
pTxtDelete = "删除 (Del)";
pTxtOK = "确定 (Enter)";
pTxtAddRE = "添加 RegExp";
pTxtRenRE = "重命名 RegExp";
pTxtNewName = "新名称";
pTxtREExist = "本 RegExp 已经存在于名下: ";
pTxtNameExist = "此名称已存在: ";
pTxtREHelp = "RegExp 帮助";
pTxtHelpText = " 修饰符\r\n============\r\n修饰符用于执行不区分大小写和全局的搜索:\r\n------------\r\n修饰符说明\r\n------------\r\ni 执行不区分大小写匹配\r\ng 执行全局匹配 (查找所有匹配，而不是在第一个匹配之后停止)\r\nm 执行多行匹配\r\n\r\n 括号\r\n============\r\n括号用于查找一定范围的字符:\r\n------------\r\n表达式说明\r\n------------\r\n[abc] 查找括号内的任一字符\r\n[^abc] 查找非括号内的任一字符\r\n[0-9] 查找任一从 0 到 9 的数字\r\n[A-Z] 查找任一大写字母 A 到大写字母 Z\r\n[a-z] 查找任一小写字母 a 到小写字母 z\r\n[A-z] 查找任一大写字母 A 到小写字母 z\r\n[adgk] 查找已给集合中的任一字符\r\n[^adgk] 查找除已给集合外的任一字符\r\n(red|blue|green) 查找任何指定的选择\r\n\r\n 元字符\r\n============\r\n元字符是一种指定含义的字符:\r\n------------\r\n元字符说明\r\n------------\r\n. 查找任一字符，换行符、行终止符除外\r\n\\w 查找单词字符\r\n\\W 查找非单词字符\r\n\\d 查找数字\r\n\\D 查找非数字字符\r\n\\s 查找空白字符\r\n\\S 查找非空白字符\r\n\\b 查找匹配在单词的开始/结束\r\n\\B 查找匹配不在单词的开始/结束\r\n\\0 查找 NUL 字符\r\n\\n 查找换行符\r\n\\f 查找换页符\r\n\\r 查找回车符\r\n\\t 查找制表符\r\n\\v 查找垂直制表符\r\n\\xxx 查找由一个八进制数字 xxx 指定的字符\r\n\\xdd 查找由一个16进制数字 dd 指定的字符\r\n\\uxxxx 查找由一个16进制数字 xxxx 指定的 Unicode 字符\r\n\r\n 数量符\r\n============\r\n数量符说明\r\n------------\r\nn+ 匹配大于等于一个 n\r\nn* 匹配大于等于零个 n\r\nn? 匹配小于等于一个 n\r\nn{X} 匹配 X 个 n\r\nn{X,Y} 匹配在 X 和 Y 之间个 n\r\nn{X,} 匹配大于等于 X 个 n\r\nn$ 匹配任何以 n 结束的字串\r\n^n 匹配任何以 n 开始的字串\r\n?=n 在任何匹配 n 的字符串开始处匹配查找字符串。\r\n?!n 在任何不匹配 n 的字符串开始处匹配查找字符串。\r\n\r\n RegExp 对象属性\r\n============\r\n属性说明\r\n------------\r\nglobal 如果修饰符 \"g\" 使用时指定\r\nignoreCase 如果修饰符 \"i\" 使用时指定\r\nlastIndex 该索引便于开始下一个匹配\r\nmultiline 如果修饰符 \"m\" 使用时指定\r\nsource RegExp 模式的文字\r\n\r\n RegExp 对象方法\r\n============\r\n方法说明\r\n------------\r\ncompile() 编译正则表达式\r\nexec() 测试在字串中的匹配。返回第一个匹配\r\ntest() 测试在字串中的匹配。返回 true 或 false\r\n\r\n _____________________________\r\n 来自: http://www.w3schools.com";

- Chinese-Simplified by cnnnc

se7h · Joined: 28 Sep 2009 Posts: 767 Location: Minsk, Belarus

insertPathToFile.js

Code:

/// insertPathToFile v0.1.1
// (c) se7h
// http://akelpad.sourceforge.net/forum/viewtopic.php?p=11477#11477
//
// Insert relative/absolute path to selected file
//
// Usage in Toolbar/ContextMenu plugin:
// -"Insert relative path..." Call("Scripts::Main", 1, "insertRelativePath.js", `"%d"`) Icon(pathToAnyIcon)
// -"Insert absolute path..." Call("Scripts::Main", 1, "insertRelativePath.js") Icon(pathToAnyIcon)
//
// CommonFunctions.js you found here http://akelpad.sourceforge.net/forum/viewtopic.php?p=1582#1582

//Options
var pFilter = "Text files (*.txt)\x00*.txt\x00All Files (*.*)\x00*.*\x00\x00";
var nFilterIndex = 2;
var dirSysSeparator = "\\";

//Variables
var hMainWnd = AkelPad.GetMainWnd();
var pInitialFile = AkelPad.GetEditFile(0);
var pSelFilePath;
var DirPath = "";

if(WScript.Arguments.length) {
DirPath = WScript.Arguments(0);
}

if(hMainWnd) {
if (! AkelPad.Include("CommonFunctions.js"))
pSelFilePath = FileDialog(true, hMainWnd, pInitialFile, pFilter, nFilterIndex);
else
pSelFilePath = FileDialogDefault(true, pInitialFile, "*");

if(pSelFilePath) {
if(!DirPath) {
AkelPad.ReplaceSel(pSelFilePath);
} else {
AkelPad.ReplaceSel(GetRelativePath(DirPath, pSelFilePath));
}
}
}

function GetRelativePath(mainDirPath, absoluteFilePath) {
var firstPathParts = new Array();
var secondPathParts = new Array();
firstPathParts = mainDirPath.split(dirSysSeparator);
secondPathParts = absoluteFilePath.split(dirSysSeparator);
var sameCounter = 0;

for(var i = 0; i < Math.min(firstPathParts.length, secondPathParts.length); i++) {
if(!(firstPathParts[i].toLowerCase() == secondPathParts[i].toLowerCase())) {
break;
}

sameCounter++;
}

if(sameCounter == 0) {
return absoluteFilePath;
}

var newPath = "";

for(var i = sameCounter; i < firstPathParts.length; i++) {
if(i > sameCounter) {
newPath += dirSysSeparator;
}

newPath += "..";
}

if(newPath.length == 0) {
newPath = ".";
}

for(var i = sameCounter; i < secondPathParts.length; i++) {
newPath += dirSysSeparator;
newPath += secondPathParts[i];
}

return newPath;
}

//Instructor function
function FileDialog(bOpenTrueSaveFalse, hWnd, pInitialFile, pFilter, nFilterIndex) {
var nFlags = 0x880804; //OFN_HIDEREADONLY|OFN_PATHMUSTEXIST|OFN_EXPLORER|OFN_ENABLESIZING
var pDefaultExt = "txt";
var lpStructure;
var lpFilterBuffer;
var lpFileBuffer;
var lpExtBuffer;
var oSys;
var pResultFile = "";
var nCallResult;

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

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

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

if(lpStructure = AkelPad.MemAlloc(_X64 ? 136 : 76)) { //sizeof(OPENFILENAMEA) or sizeof(OPENFILENAMEW)
//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
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 ? 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);
}
}

AkelPad.MemFree(lpStructure);
}

AkelPad.MemFree(lpExtBuffer);
}

AkelPad.MemFree(lpFileBuffer);
}

AkelPad.MemFree(lpFilterBuffer);
}

return pResultFile;
}

Insert relative/absolute path to selected file

History version:
0.1 - initial release
0.1.1 - extended file dialogue with files extensions list (provided by CommonFunction.js)

KDJ · Joined: 06 Mar 2010 Posts: 1929 Location: Poland

Sorting strings contained between any separators.

SortWords.js

Code:

// http://akelpad.sourceforge.net/forum/viewtopic.php?p=11749#11749
// Version: 2015-09-19
// Author: KDJ
//
// *** Sort words ***
//
// Usage:
// Call("Scripts::Main", 1, "SortWords.js")
//
// Shortcut keys in dialog box:
// Enter - Sort
// Esc - Close
// Shift+Alt+Right (Left, Down, Up, End, Home, PgDn, PgUp) - move dialog box

if (AkelPad.GetLangId(0 /*LANGID_FULL*/) == 0x0415) //Polish
{
var sTxtCaption = "Sortowanie słów";
var sTxtSep = "Separator";
var sTxtSepWord = "Dowolny separator słów";
var sTxtSepNo = "Brak separatora - sortowanie znaków";
var sTxtSepAny = "Dowolny z:";
var sTxtSepStr = "String:";
var sTxtTab = "\\t = Tabulacja";
var sTxtSortMet = "Metoda sortowania";
var sTxtDesc = "&Malejąco";
var sTxtIgCase = "&Ignoruj wlk. liter";
var sTxtString = "&String";
var sTxtLocale = "&Alfabetycznie";
var sTxtNum = "&Numerycznie";
var sTxtNoSort = "Nie sortuj, ale";
var sTxtReverse = "&Odwróć kolejność słów";
var sTxtRemoDup = "&Usuń duplikaty słów";
var sTxtExtrDup = "&Zachowaj tylko powielone słowa";
var sTxtExtrUni = "Zac&howaj tylko unikalne słowa";
var sTxtInLine = "&W każdym wierszu sortuj oddzielnie";
var sTxtCopyToCB = "Wynik kopiuj do schowka, nie zmieniaj &tekstu";
var sTxtSort = "Sortuj";
var sTxtUndo = "&Cofnij";
var sTxtRedo = "&Powtórz";
}
else
{
var sTxtCaption = "Sort words";
var sTxtSep = "Separator";
var sTxtSepWord = "Any words separator";
var sTxtSepNo = "No separator - sorts single chars";
var sTxtSepAny = "Any of:";
var sTxtSepStr = "String:";
var sTxtTab = "\\t = Tabulation";
var sTxtSortMet = "Sort method";
var sTxtDesc = "&Descending";
var sTxtIgCase = "&Ignore case";
var sTxtString = "&String";
var sTxtLocale = "&Alphabetically";
var sTxtNum = "&Numerically";
var sTxtNoSort = "No sort, but";
var sTxtReverse = "Reverse &order of words";
var sTxtRemoDup = "Re&move duplicate words";
var sTxtExtrDup = "E&xtract duplicate words";
var sTxtExtrUni = "Extra&ct unique words";
var sTxtInLine = "In each &line, sort separately";
var sTxtCopyToCB = "Resul&t copy to clipboard, do not replace text";
var sTxtSort = "Sort";
var sTxtUndo = "&Undo";
var sTxtRedo = "&Redo";
}

var DT_DWORD = 3;
var BM_SETCHECK = 241;

var oSys = AkelPad.SystemFunction();
var hMainWnd = AkelPad.GetMainWnd();
var hEditWnd = AkelPad.GetEditWnd();
var hGuiFont = oSys.Call("Gdi32::GetStockObject", 17 /*DEFAULT_GUI_FONT*/);
var hInstDLL = AkelPad.GetInstanceDll();
var sClassName = "AkelPad::Scripts::" + WScript.ScriptName + "::" + hInstDLL;
var nSep = 0;
var sSep = ";";
var bTabSep = 1;
var bIgCaseSep = 1;
var bDesc = 0;
var bIgCase = 1;
var nMethod = 1;
var nNoSort = 0;
var bInLine = 1;
var bCopyToCB = 0;
var nUndoLimit = 0;
var nRedoLimit = 0;
var lpStrA;
var lpStrB;
var hWndDlg;
var lpBuffer;
var bColSel;
var bIsReturn;
var hFocus;
var nWndPosX;
var nWndPosY;

ReadWriteIni(0);

var aWnd = [];
var IDGROUP1 = 1000;
var IDSEPWORD = 1001;
var IDSEPNO = 1002;
var IDSEPANY = 1003;
var IDSEPSTR = 1004;
var IDGROUP2 = 1005;
var IDSEP = 1006;
var IDTABSEP = 1007;
var IDIGCASESEP = 1008;
var IDGROUP3 = 1009;
var IDDESC = 1010;
var IDIGCASE = 1011;
var IDGROUP4 = 1012;
var IDSTRING = 1013;
var IDLOCALE = 1014;
var IDNUM = 1015;
var IDGROUP5 = 1016;
var IDREVERSE = 1017;
var IDREMODUP = 1018;
var IDEXTRDUP = 1019;
var IDEXTRUNI = 1020;
var IDINLINE = 1021;
var IDCOPYTOCB = 1022;
var IDSORT = 1023;
var IDUNDO = 1024;
var IDREDO = 1025;

var CLASS = 0;
var WND = 1;
var EXSTYLE = 2;
var STYLE = 3;
var X = 4;
var Y = 5;
var W = 6;
var H = 7;
var TXT = 8;

//0x50000007 - WS_VISIBLE|WS_CHILD|BS_GROUPBOX
//0x50000009 - WS_VISIBLE|WS_CHILD|BS_AUTORADIOBUTTON
//0x50010000 - WS_VISIBLE|WS_CHILD|WS_TABSTOP
//0x50010001 - WS_VISIBLE|WS_CHILD|WS_TABSTOP|BS_DEFPUSHBUTTON
//0x50010003 - WS_VISIBLE|WS_CHILD|WS_TABSTOP|BS_AUTOCHECKBOX
//0x50010080 - WS_VISIBLE|WS_CHILD|WS_TABSTOP|ES_AUTOHSCROLL
//Windows CLASS, WND, EXSTYLE, STYLE, X, Y, W, H, TXT
aWnd[IDGROUP1 ] = ["BUTTON", 0, 0, 0x50000007, 10, 10, 230, 135, sTxtSep];
aWnd[IDSEPWORD ] = ["BUTTON", 0, 0, 0x50000009, 20, 30, 200, 16, sTxtSepWord];
aWnd[IDSEPNO ] = ["BUTTON", 0, 0, 0x50000009, 20, 50, 200, 16, sTxtSepNo];
aWnd[IDSEPANY ] = ["BUTTON", 0, 0, 0x50000009, 30, 75, 70, 16, sTxtSepAny];
aWnd[IDSEPSTR ] = ["BUTTON", 0, 0, 0x50000009, 30, 95, 70, 16, sTxtSepStr];
aWnd[IDGROUP2 ] = ["BUTTON", 0, 0, 0x50000007, 100, 63, 140, 82, ""];
aWnd[IDSEP ] = ["EDIT", 0, 0x200, 0x50010080, 110, 80, 120, 20, sSep];
aWnd[IDTABSEP ] = ["BUTTON", 0, 0, 0x50010003, 125, 105, 90, 16, sTxtTab];
aWnd[IDIGCASESEP] = ["BUTTON", 0, 0, 0x50010003, 125, 125, 90, 16, sTxtIgCase];
aWnd[IDGROUP3 ] = ["BUTTON", 0, 0, 0x50000007, 10, 155, 230, 80, sTxtSortMet];
aWnd[IDDESC ] = ["BUTTON", 0, 0, 0x50010003, 35, 180, 90, 16, sTxtDesc];
aWnd[IDIGCASE ] = ["BUTTON", 0, 0, 0x50010003, 35, 200, 90, 16, sTxtIgCase];
aWnd[IDGROUP4 ] = ["BUTTON", 0, 0, 0x50000007, 130, 155, 110, 80, ""];
aWnd[IDSTRING ] = ["BUTTON", 0, 0, 0x50000009, 145, 170, 90, 16, sTxtString];
aWnd[IDLOCALE ] = ["BUTTON", 0, 0, 0x50000009, 145, 190, 90, 16, sTxtLocale];
aWnd[IDNUM ] = ["BUTTON", 0, 0, 0x50000009, 145, 210, 90, 16, sTxtNum];
aWnd[IDGROUP5 ] = ["BUTTON", 0, 0, 0x50000007, 10, 245, 230, 105, sTxtNoSort];
aWnd[IDREVERSE ] = ["BUTTON", 0, 0, 0x50010003, 50, 265, 180, 16, sTxtReverse];
aWnd[IDREMODUP ] = ["BUTTON", 0, 0, 0x50010003, 50, 285, 180, 16, sTxtRemoDup];
aWnd[IDEXTRDUP ] = ["BUTTON", 0, 0, 0x50010003, 50, 305, 180, 16, sTxtExtrDup];
aWnd[IDEXTRUNI ] = ["BUTTON", 0, 0, 0x50010003, 50, 325, 180, 16, sTxtExtrUni];
aWnd[IDINLINE ] = ["BUTTON", 0, 0, 0x50010003, 10, 360, 230, 16, sTxtInLine];
aWnd[IDCOPYTOCB ] = ["BUTTON", 0, 0, 0x50010003, 10, 380, 230, 16, sTxtCopyToCB];
aWnd[IDSORT ] = ["BUTTON", 0, 0, 0x50010001, 10, 405, 70, 23, sTxtSort];
aWnd[IDUNDO ] = ["BUTTON", 0, 0, 0x50010000, 90, 405, 70, 23, sTxtUndo];
aWnd[IDREDO ] = ["BUTTON", 0, 0, 0x50010000, 170, 405, 70, 23, sTxtRedo];

if (hEditWnd)
{
if (AkelPad.GetSelStart() == AkelPad.GetSelEnd())
AkelPad.SetSel(0, -1);

if (AkelPad.GetSelStart() == AkelPad.GetSelEnd())
WScript.Quit();

if (bColSel = AkelPad.SendMessage(hEditWnd, 3127 /*AEM_GETCOLUMNSEL*/, 0, 0))
bInLine = 1;

if (AkelPad.WindowRegisterClass(sClassName))
{
if (lpBuffer = AkelPad.MemAlloc(256 * _TSIZE))
{
hWndDlg = oSys.Call("User32::CreateWindowEx" + _TCHAR,
0, //dwExStyle
sClassName, //lpClassName
sTxtCaption, //lpWindowName
0x90CA0000, //WS_VISIBLE|WS_POPUP|WS_CAPTION|WS_SYSMENU|WS_MINIMIZEBOX
0, //x
0, //y
255, //nWidth
465, //nHeight
hMainWnd, //hWndParent
0, //ID
hInstDLL, //hInstance
DialogCallback); //Script function callback. To use it class must be registered by WindowRegisterClass.
if (hWndDlg)
{
//Disable main window, to make dialog modal
oSys.Call("User32::EnableWindow", hMainWnd, false);

//Message loop
AkelPad.WindowGetMessage();
}
AkelPad.MemFree(lpBuffer);
}
AkelPad.WindowUnregisterClass(sClassName);
}
}

function DialogCallback(hWnd, uMsg, wParam, lParam)
{
var i, nLowParam;

if (uMsg == 1) //WM_CREATE
{
for (i = 1000; i < aWnd.length; ++i)
{
aWnd[i][WND] = oSys.Call("User32::CreateWindowEx" + _TCHAR,
aWnd[i][EXSTYLE], //dwExStyle
aWnd[i][CLASS], //lpClassName
0, //lpWindowName
aWnd[i][STYLE], //dwStyle
aWnd[i][X], //x
aWnd[i][Y], //y
aWnd[i][W], //nWidth
aWnd[i][H], //nHeight
hWnd, //hWndParent
i, //ID
hInstDLL, //hInstance
0); //lpParam
SetWindowFontAndText(aWnd[i][WND], hGuiFont, aWnd[i][TXT]);
}

//Set limit edit text
AkelPad.SendMessage(aWnd[IDSEP][WND], 197 /*EM_LIMITTEXT*/, 24, 0);

CheckButtons();
CheckUndoRedo();

//Set window position
if ((nWndPosX == undefined) || (nWndPosY == undefined))
MoveWindow(hMainWnd, hWnd, "RT");
else
MoveWindow(hMainWnd, hWnd, [nWndPosX, nWndPosY]);
}

else if (uMsg == 7) //WM_SETFOCUS
oSys.Call("User32::SetFocus", aWnd[IDSEPWORD + nSep][WND]);

else if (uMsg == 256) //WM_KEYDOWN
{
if (wParam == 27) //VK_ESCAPE
oSys.Call("User32::PostMessage" + _TCHAR, hWnd, 16 /*WM_CLOSE*/, 0, 0);
else if (wParam == 13) //VK_RETURN
{
if (! bIsReturn)
{
hFocus = oSys.Call("User32::GetFocus");
if ((hFocus != aWnd[IDSORT][WND]) && (hFocus != aWnd[IDUNDO][WND]) && (hFocus != aWnd[IDREDO][WND]))
oSys.Call("User32::PostMessage" + _TCHAR, hWnd, 273 /*WM_COMMAND*/, IDSORT, 0);
}
}
}

else if (uMsg == 257) //WM_KEYUP
bIsReturn = 0;

else if ((uMsg == 260) /*WM_SYSKEYDOWN*/ &&
(oSys.Call("User32::GetAsyncKeyState", 0xA0 /*VK_LSHIFT*/)))
{
if (wParam == 0x27) //VK_RIGHT
MoveWindow(hMainWnd, hWnd, "R");
else if (wParam == 0x25) //VK_LEFT
MoveWindow(hMainWnd, hWnd, "L");
else if (wParam == 0x28) //VK_DOWN
MoveWindow(hMainWnd, hWnd, "D");
else if (wParam == 0x26) //VK_UP
MoveWindow(hMainWnd, hWnd, "U");
else if (wParam == 0x23) //VK_END
MoveWindow(hMainWnd, hWnd, "E");
else if (wParam == 0x24) //VK_HOME
MoveWindow(hMainWnd, hWnd, "H");
else if (wParam == 0x22) //VK_NEXT
MoveWindow(hMainWnd, hWnd, "B");
else if (wParam == 0x21) //VK_PRIOR
MoveWindow(hMainWnd, hWnd, "T");
}

else if (uMsg == 273) //WM_COMMAND
{
nLowParam = LoWord(wParam);

if ((nLowParam >= IDSEPWORD) && (nLowParam <= IDCOPYTOCB) && (nLowParam != IDSEP))
CheckButtons(nLowParam);
else if (nLowParam == IDSORT)
{
if (SortWords())
CheckUndoRedo(nLowParam);
}
else if (nLowParam == IDUNDO)
{
bIsReturn = 1;
CheckUndoRedo(nLowParam);
}
else if (nLowParam == IDREDO)
{
bIsReturn = 1;
CheckUndoRedo(nLowParam);
}
}

else if (uMsg == 16) //WM_CLOSE
{
ReadWriteIni(1);

//Enable main window
oSys.Call("User32::EnableWindow", hMainWnd, true);
//Destroy dialog
oSys.Call("User32::DestroyWindow", hWnd);
}

else if (uMsg == 2) //WM_DESTROY
{
//Exit message loop
oSys.Call("User32::PostQuitMessage", 0);
}

else
SetDefID(hWnd);

return 0;
}

function SetWindowFontAndText(hWnd, hFont, sText)
{
AkelPad.SendMessage(hWnd, 48 /*WM_SETFONT*/, hFont, true);
oSys.Call("User32::SetWindowText" + _TCHAR, hWnd, sText);
}

function MoveWindow(hWndParent, hWnd, vAction)
{
var aRectParent;
var aRect;
var nX;
var nY;

if (! hWndParent)
hWndParent=oSys.Call("User32::GetDesktopWindow");

aRectParent = GetWindowPos(hWndParent);
aRect = GetWindowPos(hWnd);

nX = aRect.left;
nY = aRect.top;

if (vAction == "R") //Move right
nX = aRect.left + ((aRect.left < aRectParent.right - 50) ? 20: 0);
else if (vAction == "L") //Move left
nX = aRect.left - ((aRect.right > aRectParent.left + 50) ? 20: 0);
else if (vAction == "D") //Move down
nY = aRect.top + ((aRect.top < aRectParent.bottom - 50) ? 20: 0);
else if (vAction == "U") //Move up
nY = aRect.top - ((aRect.bottom > aRectParent.top + 50) ? 20: 0);
else if (vAction == "E") //Move end (right)
nX = aRect.left + (aRectParent.right - aRect.right);
else if (vAction == "H") //Move home (left)
nX = aRect.left + (aRectParent.left - aRect.left);
else if (vAction == "B") //Move bottom
nY = aRect.top + (aRectParent.bottom - aRect.bottom);
else if (vAction == "T") //Move top
nY = aRect.top + (aRectParent.top - aRect.top);
else if (vAction == "C") //Center window
{
nX = aRectParent.left + ((aRectParent.right - aRectParent.left) / 2 - (aRect.right - aRect.left) / 2);
nY = aRectParent.top + ((aRectParent.bottom - aRectParent.top) / 2 - (aRect.bottom - aRect.top) / 2);
}
else if (vAction == "LT") //Move left top
{
nX = aRectParent.left;
nY = aRectParent.top;
}
else if (vAction == "RT") //Move right top
{
nX = aRect.left + (aRectParent.right - aRect.right);
nY = aRectParent.top;
}
else if (vAction == "LB") //Move left bottom
{
nX = aRectParent.left;
nY = aRect.top + (aRectParent.bottom - aRect.bottom);
}
else if (vAction == "RB") //Move right bottom
{
nX = aRect.left + (aRectParent.right - aRect.right);
nY = aRect.top + (aRectParent.bottom - aRect.bottom);
}
else
{
nX = vAction[0];
nY = vAction[1];
}

oSys.Call("User32::SetWindowPos", hWnd, 0, nX, nY, 0, 0, 0x15 /*SWP_NOZORDER|SWP_NOACTIVATE|SWP_NOSIZE*/);
}

function GetWindowPos(hWnd)
{
var lpRect = AkelPad.MemAlloc(16) //sizeof(RECT);
var aRect = [];

oSys.Call("User32::GetWindowRect", hWnd, lpRect);

aRect.left = AkelPad.MemRead(_PtrAdd(lpRect, 0), DT_DWORD);
aRect.top = AkelPad.MemRead(_PtrAdd(lpRect, 4), DT_DWORD);
aRect.right = AkelPad.MemRead(_PtrAdd(lpRect, 8), DT_DWORD);
aRect.bottom = AkelPad.MemRead(_PtrAdd(lpRect, 12), DT_DWORD);
AkelPad.MemFree(lpRect);

return aRect;
}

function LoWord(nParam)
{
return (nParam & 0xffff);
}

function SetDefID(hWnd)
{
var nID = 1000;
var hFocus = oSys.Call("User32::GetFocus");

while ((nID < aWnd.length) && (hFocus != aWnd[nID][WND]))
++nID;

if ((nID != IDUNDO) && (nID != IDREDO))
nID = IDSORT;

oSys.Call("User32::DefDlgProc" + _TCHAR, hWnd, 1025 /*DM_SETDEFID*/, nID, 0);
}

function ReadWriteIni(bWrite)
{
var oFSO = new ActiveXObject("Scripting.FileSystemObject");
var sIniName = WScript.ScriptFullName.substring(0, WScript.ScriptFullName.lastIndexOf(".")) + ".ini";
var aRect;
var oFile;
var sIniTxt;

if (bWrite)
{
aRect = GetWindowPos(hWndDlg);

oSys.Call("User32::GetWindowText" + _TCHAR, aWnd[IDSEP][WND], lpBuffer, 256);
sSep = AkelPad.MemRead(lpBuffer, _TSTR);

sIniTxt = 'nWndPosX=' + aRect.left + ';\r\n' +
'nWndPosY=' + aRect.top + ';\r\n' +
'nSep=' + nSep + ';\r\n' +
'sSep="' + sSep.replace(/[\\"]/g, "\\$&") + '";\r\n' +
'bTabSep=' + bTabSep + ';\r\n' +
'bIgCaseSep=' + bIgCaseSep + ';\r\n' +
'bDesc=' + bDesc + ';\r\n' +
'bIgCase=' + bIgCase + ';\r\n' +
'nMethod=' + nMethod + ';\r\n' +
'nNoSort=' + nNoSort + ';\r\n' +
'bInLine=' + bInLine + ';\r\n' +
'bCopyToCB=' + bCopyToCB + ';'

oFile = oFSO.OpenTextFile(sIniName, 2, true, 0);
oFile.Write(sIniTxt);
oFile.Close();
}

else if (oFSO.FileExists(sIniName))
{
try
{
eval(AkelPad.ReadFile(sIniName));
}
catch (oError)
{
}
}
}

function CheckButtons(nButton)
{
if ((nButton == IDSEPWORD) || (nButton == IDSEPNO) || (nButton == IDSEPANY) || (nButton == IDSEPSTR))
nSep = nButton - IDSEPWORD;
else if (nButton == IDTABSEP)
bTabSep = ! bTabSep;
else if (nButton == IDIGCASESEP)
bIgCaseSep = ! bIgCaseSep;
else if (nButton == IDDESC)
bDesc = ! bDesc;
else if (nButton == IDIGCASE)
bIgCase = ! bIgCase;
else if ((nButton == IDSTRING) || (nButton == IDLOCALE) || (nButton == IDNUM))
nMethod = nButton - IDSTRING + 1;
else if ((nButton == IDREVERSE) || (nButton == IDREMODUP) ||
(nButton == IDEXTRDUP) || (nButton == IDEXTRUNI))
{
if (nNoSort == nButton - IDREVERSE + 1)
nNoSort = 0;
else
nNoSort = nButton - IDREVERSE + 1;
}
else if (nButton == IDINLINE)
bInLine = ! bInLine;
else if (nButton == IDCOPYTOCB)
bCopyToCB = ! bCopyToCB;

AkelPad.SendMessage(aWnd[IDSEPWORD][WND], BM_SETCHECK, (nSep == 0), 0);
AkelPad.SendMessage(aWnd[IDSEPNO][WND], BM_SETCHECK, (nSep == 1), 0);
AkelPad.SendMessage(aWnd[IDSEPANY][WND], BM_SETCHECK, (nSep == 2), 0);
AkelPad.SendMessage(aWnd[IDSEPSTR][WND], BM_SETCHECK, (nSep == 3), 0);
AkelPad.SendMessage(aWnd[IDTABSEP][WND], BM_SETCHECK, bTabSep, 0);
AkelPad.SendMessage(aWnd[IDIGCASESEP][WND], BM_SETCHECK, bIgCaseSep, 0);
AkelPad.SendMessage(aWnd[IDDESC][WND], BM_SETCHECK, bDesc, 0);
AkelPad.SendMessage(aWnd[IDIGCASE][WND], BM_SETCHECK, bIgCase, 0);
AkelPad.SendMessage(aWnd[IDSTRING][WND], BM_SETCHECK, (nMethod == 1), 0);
AkelPad.SendMessage(aWnd[IDLOCALE][WND], BM_SETCHECK, (nMethod == 2), 0);
AkelPad.SendMessage(aWnd[IDNUM][WND], BM_SETCHECK, (nMethod == 3), 0);
AkelPad.SendMessage(aWnd[IDREVERSE][WND], BM_SETCHECK, (nNoSort == 1), 0);
AkelPad.SendMessage(aWnd[IDREMODUP][WND], BM_SETCHECK, (nNoSort == 2), 0);
AkelPad.SendMessage(aWnd[IDEXTRDUP][WND], BM_SETCHECK, (nNoSort == 3), 0);
AkelPad.SendMessage(aWnd[IDEXTRUNI][WND], BM_SETCHECK, (nNoSort == 4), 0);
AkelPad.SendMessage(aWnd[IDINLINE][WND], BM_SETCHECK, bInLine, 0);
AkelPad.SendMessage(aWnd[IDCOPYTOCB][WND], BM_SETCHECK, bCopyToCB, 0);

oSys.Call("User32::EnableWindow", aWnd[IDSEP][WND], (nSep > 1));
oSys.Call("User32::EnableWindow", aWnd[IDTABSEP][WND], (nSep > 1));
oSys.Call("User32::EnableWindow", aWnd[IDIGCASESEP][WND], (nSep > 1));
oSys.Call("User32::EnableWindow", aWnd[IDDESC][WND], (nNoSort == 0));
oSys.Call("User32::EnableWindow", aWnd[IDIGCASE][WND], (nNoSort != 1) && (nMethod != 3));
oSys.Call("User32::EnableWindow", aWnd[IDSTRING][WND], (nNoSort != 1));
oSys.Call("User32::EnableWindow", aWnd[IDLOCALE][WND], (nNoSort != 1));
oSys.Call("User32::EnableWindow", aWnd[IDNUM][WND], (nNoSort != 1));
oSys.Call("User32::EnableWindow", aWnd[IDINLINE][WND], ! bColSel);
}

function CheckUndoRedo(nButton)
{
var nBegSel = AkelPad.GetSelStart();
var sTxtUndo = aWnd[IDUNDO][TXT];
var sTxtRedo = aWnd[IDREDO][TXT];

if (nButton == IDSORT)
{
if (nUndoLimit < AkelPad.SendMessage(hEditWnd, 3084 /*AEM_GETUNDOLIMIT*/, 0, 0))
++nUndoLimit;
nRedoLimit = 0;
}
else if ((nButton == IDUNDO) && (nUndoLimit))
{
--nUndoLimit;
++nRedoLimit;
AkelPad.SendMessage(hEditWnd, 3077 /*AEM_UNDO*/, 0, 0);
if ((! nUndoLimit) && (oSys.Call("User32::GetFocus") == aWnd[IDUNDO][WND]))
oSys.Call("User32::SetFocus", aWnd[IDSORT][WND]);
}
else if ((nButton == IDREDO) && (nRedoLimit))
{
++nUndoLimit;
--nRedoLimit;
AkelPad.SendMessage(hEditWnd, 3078 /*AEM_REDO*/, 0, 0);
AkelPad.SetSel(nBegSel, AkelPad.GetSelEnd());
AkelPad.SendMessage(hEditWnd, 3128 /*AEM_UPDATESEL*/, bColSel, 0);
if ((! nRedoLimit) && (oSys.Call("User32::GetFocus") == aWnd[IDREDO][WND]))
oSys.Call("User32::SetFocus", aWnd[IDSORT][WND]);
}

if (nUndoLimit)
sTxtUndo += " (" + nUndoLimit + ")";
if (nRedoLimit)
sTxtRedo += " (" + nRedoLimit + ")";

SetWindowFontAndText(aWnd[IDUNDO][WND], hGuiFont, sTxtUndo);
SetWindowFontAndText(aWnd[IDREDO][WND], hGuiFont, sTxtRedo);

oSys.Call("User32::EnableWindow", aWnd[IDUNDO][WND], nUndoLimit);
oSys.Call("User32::EnableWindow", aWnd[IDREDO][WND], nRedoLimit);
}

function SortWords()
{
var sText = AkelPad.GetSelText();
var aTxt = [];
var sSep = "";
var sMod = "g";
var rSep;
var aWord;
var aSep;
var i, n;

lpStrA = AkelPad.MemAlloc(sText.length * _TSIZE);
lpStrB = AkelPad.MemAlloc(sText.length * _TSIZE);

if (bInLine)
aTxt = sText.split("\r");
else
aTxt[0] = sText;

if (nSep == 0)
sSep = " \t'`\"\\|[](){}<>,.;:+-=~!@#$%^&*/?";
else if (nSep > 1)
{
oSys.Call("User32::GetWindowText" + _TCHAR, aWnd[IDSEP][WND], lpBuffer, 256);
sSep = AkelPad.MemRead(lpBuffer, _TSTR);
if (bTabSep)
sSep = sSep.replace(/\\t/g, "\t");
}

if (sSep)
{
sSep = sSep.replace(/[\\\/.^$+*?|()\[\]{}-]/g, "\\$&");

if ((nSep == 0) || (nSep == 2))
sSep = "[" + sSep + "\r]+";
else if (nSep == 3)
sSep = "((" + sSep + ")|\r)+";

if ((nSep > 1) && bIgCaseSep)
sMod += "i";
}

rSep = new RegExp(sSep, sMod);

for (i = 0; i < aTxt.length; ++i)
{
aWord = aTxt[i].split(rSep);
aSep = aTxt[i].match(rSep);

if ((! sSep) && (! bInLine))
{
n = 0;
while (n < aWord.length)
{
if (aWord[n] == "\r")
{
aWord.splice(n, 1);
aSep.splice(n, 2, "\r");
}
else
++n;
}
}

if (aWord.length > 1)
{
if (! RegExp("^" + sSep, sMod).test(aTxt[i]))
aSep.unshift("");
if (! RegExp(sSep + "$", sMod).test(aTxt[i]))
aSep.push("");

if (nNoSort == 1)
aWord.reverse();
else if (nNoSort > 1)
NoSort(aWord);
else
aWord.sort(CompareValue);

aTxt[i] = aSep[0];

for (n = 0; n < aWord.length; ++n)
aTxt[i] += aWord[n] + aSep[n + 1];
}
}

sText = aTxt.join("\r");

if (bCopyToCB)
AkelPad.SetClipboardText(sText);
else
AkelPad.ReplaceSel(sText, -1);

AkelPad.MemFree(lpStrA);
AkelPad.MemFree(lpStrB);

return (! bCopyToCB);
}

function CompareValue(ValA, ValB)
{
var nResult = 0;

if (nMethod == 1)
{
if (bIgCase)
{
if (ValA.toUpperCase() > ValB.toUpperCase())
nResult = bDesc ? -1 : 1;
else if (ValA.toUpperCase() < ValB.toUpperCase())
nResult = bDesc ? 1 : -1;
}
else
{
if (ValA > ValB)
nResult = bDesc ? -1 : 1;
else if (ValA < ValB)
nResult = bDesc ? 1 : -1;
}
}
else if (nMethod == 2)
{
AkelPad.MemCopy(lpStrA, ValA, _TSTR);
AkelPad.MemCopy(lpStrB, ValB, _TSTR);
nResult = oSys.Call("Kernel32::lstrcmp" + (bIgCase ? "i" : "") + _TCHAR, lpStrA, lpStrB);
if (bDesc)
nResult = -nResult;
}
else
{
var rNumber = /(-?\d+\.?\d*)|(-?\.\d+)/;
ValA = rNumber.exec(ValA);
ValB = rNumber.exec(ValB);
ValA = ValA ? parseFloat(ValA[0]) : 0;
ValB = ValB ? parseFloat(ValB[0]) : 0;
nResult = bDesc ? (ValB - ValA) : (ValA - ValB);
}

return nResult;
}

function NoSort(aWord)
{
var i, n, bIsDup;

if (nNoSort == 2)
{
for (n = 0; n < aWord.length; ++n)
{
for (i = n + 1; i < aWord.length; ++i)
{
if (CompareValue(aWord[i], aWord[n]) == 0)
aWord[i] = "";
}
}
}
else if (nNoSort == 3)
{
for (n = 0; n < aWord.length; ++n)
{
bIsDup = false;
for (i = 0; i < aWord.length; ++i)
{
if ((CompareValue(aWord[i], aWord[n]) == 0) && (i != n))
{
bIsDup = true;
break;
}
}
if (! bIsDup)
aWord[n] = "";
}
}
else
{
for (n = 0; n < aWord.length; ++n)
{
bIsDup = false;
for (i = n + 1; i < aWord.length; ++i)
{
if (CompareValue(aWord[i], aWord[n]) == 0)
{
bIsDup = true;
aWord[i] = "";
}
}
if (bIsDup)
aWord[n] = "";
}
}
}

Infocatcher · Joined: 06 Aug 2007 Posts: 1767

runScript.js

Code:

// http://akelpad.sourceforge.net/forum/viewtopic.php?p=11863#11863
// http://infocatcher.ucoz.net/js/akelpad_scripts/runScript.js
// https://github.com/Infocatcher/AkelPad_scripts/blob/master/runScript.js

// (c) Infocatcher 2011, 2013-2014
// version 0.2.8 - 2014-08-16

//===================
// Run script from AkelFiles\Plugs\Scripts\ directory

// Hotkeys:
// Enter - Ok
// Ctrl+Enter (Shift+Enter), F3 - Exec
// F4, Ctrl+E - Edit
// F2, Ctrl+S - Rewrite options (and remove arguments for removed files)
// F1, Shift+F1 - Next/previous script
// F5 - Refresh scripts list
// Escape - Cancel

// Arguments:
// -saveOptions=0 - don't save options
// =1 - save options only for runned scripts (default)
// =2 - always save options
// -savePosition=true - allow store last window position
// -saveSize=true - allow store last window size
// -script="someScript.js" - select someScript.js in the list

// Usage:
// Call("Scripts::Main", 1, "runScript.js")
// Call("Scripts::Main", 1, "runScript.js", `-script="someScript.js" -saveOptions=0 -savePosition=false`)
//===================

function _localize(s) {
var strings = {
   "&Arguments": {
      ru: "&Аргументы"
   },
   "OK": {
      ru: "ОК"
   },
   "Exec": {
      ru: "Запустить"
   },
   "Edit": {
      ru: "Изменить"
   },
   "Cancel": {
      ru: "Отмена"
   }
};
var lng;
switch(AkelPad.GetLangId(1 /*LANGID_PRIMARY*/)) {
   case 0x19: lng = "ru"; break;
   default: lng = "en";
}
_localize = function(s) {
   return strings[s] && strings[s][lng] || s;
};
return _localize(s);
}

var hMainWnd = AkelPad.GetMainWnd();
if(!hMainWnd)
WScript.Quit();

var oSys = AkelPad.SystemFunction();
var oSet = AkelPad.ScriptSettings();
var fso = new ActiveXObject("Scripting.FileSystemObject");
var scriptsDir = AkelPad.GetAkelDir(5 /*ADTYPE_SCRIPTS*/);
var dialogTitle = WScript.ScriptName.replace(/^[!-\-_]+/, "");
dialogTitle = dialogTitle.charAt(0).toUpperCase() + dialogTitle.substr(1);

function getPrefName(scriptName) {
return "/" + scriptName.replace(/=/g, "<equals>");
}

// Read arguments:
var scriptName = AkelPad.GetArgValue("script", "");
var saveOptions = AkelPad.GetArgValue("saveOptions", 1);
var savePosition = AkelPad.GetArgValue("savePosition", true);
var saveSize = AkelPad.GetArgValue("saveSize", true);

var filePath = AkelPad.GetEditFile(0);
if(!scriptName && fso.GetParentFolderName(filePath).toLowerCase() == scriptsDir.toLowerCase())
scriptName = fso.GetFileName(filePath);

selectScriptDialog();

function isScript(path) {
return /\.(js|vbs)$/i.test(path);
}
function expandArgs(args) {
var wsh = new ActiveXObject("WScript.Shell");
expandArgs = function(args) {
   var file = AkelPad.GetEditFile(0);
   return wsh.ExpandEnvironmentStrings(args)
      .replace(/%f/ig, file)
      .replace(/%d/ig, fso.GetParentFolderName(file))
      .replace(/%a/ig, AkelPad.GetAkelDir())
      .replace(/%([^%]|$)/g, "$1")
      .replace(/%%/g, "%");
};
return expandArgs(args);
}

function selectScriptDialog(modal) {
var hInstanceDLL = AkelPad.GetInstanceDll();
var dialogClass = "AkelPad::Scripts::" + WScript.ScriptName + "::" + oSys.Call("kernel32::GetCurrentProcessId");

var hWndDialog = oSys.Call("user32::FindWindowEx" + _TCHAR, 0, 0, dialogClass, 0);
if(hWndDialog) {
   if(oSys.Call("user32::IsIconic", hWndDialog))
      oSys.Call("user32::ShowWindow", hWndDialog, 9 /*SW_RESTORE*/);
   AkelPad.SendMessage(hWndDialog, 7 /*WM_SETFOCUS*/, 0, 0);
   return;
}

if(
   !AkelPad.WindowRegisterClass(dialogClass)
   && ( // Previous script instance crashed
      !AkelPad.WindowUnregisterClass(dialogClass)
      || !AkelPad.WindowRegisterClass(dialogClass)
   )
)
   return;

var curName = isScript(scriptName) && scriptName;

var dlgX, dlgY;
var lastW, lastH;
if((saveOptions || savePosition || saveSize) && oSet.Begin(WScript.ScriptBaseName, 0x1 /*POB_READ*/)) {
   if(saveOptions && !curName)
      curName = oSet.Read("lastScript", 3 /*PO_STRING*/, "");
   if(savePosition) {
      dlgX = oSet.Read("windowLeft", 1 /*PO_DWORD*/);
      dlgY = oSet.Read("windowTop", 1 /*PO_DWORD*/);
   }
   if(saveSize) {
      lastW = oSet.Read("windowWidth", 1 /*PO_DWORD*/);
      lastH = oSet.Read("windowHeight", 1 /*PO_DWORD*/);
   }
   oSet.End();
}
var _cleanup = {};
function saveSettings(rewrite) {
   if(!saveOptions && !savePosition && !saveSize)
      return;
   if(!oSet.Begin(WScript.ScriptBaseName, 0x2 /*POB_SAVE*/ | (rewrite ? 0x4 /*POB_CLEAR*/ : 0)))
      return;
   if(saveOptions) {
      if(runned || saveOptions == 2)
         oSet.Write("lastScript", 3 /*PO_STRING*/, saveOptions == 2 ? curName : runnedName);
      var names = saveOptions == 2 ? argsObj : runned || {};
      for(var name in names)
         saveArgs(name, argsObj[name]);
      for(var name in _cleanup) {
         oSet.Delete("lastArgs-" + encodeURIComponent(name));
         !names[name] && saveArgs(name, _cleanup[name]);
      }
   }
   if((savePosition || saveSize) && !oSys.Call("user32::IsIconic", hWndDialog)) {
      var rcWnd = getWindowRect(hWndDialog);
      if(rcWnd) {
         if(savePosition) {
            oSet.Write("windowLeft", 1 /*PO_DWORD*/, rcWnd.left);
            oSet.Write("windowTop", 1 /*PO_DWORD*/, rcWnd.top);
         }
         if(saveSize) {
            oSet.Write("windowWidth", 1 /*PO_DWORD*/, Math.round((rcWnd.right - rcWnd.left)/scale.x(10000)*10000) - sizeNonClientX);
            oSet.Write("windowHeight", 1 /*PO_DWORD*/, Math.round((rcWnd.bottom - rcWnd.top)/scale.y(10000)*10000) - sizeNonClientY);
         }
      }
   }
   oSet.End();
}
function saveArgs(name, args) {
   var prefName = getPrefName(name);
   if(args)
      oSet.Write(prefName, 3 /*PO_STRING*/, args);
   else
      oSet.Delete(prefName);
}

var IDC_STATIC = -1;
var IDC_LISTBOX = 1000;
var IDC_ARGS = 1001;
var IDC_OK = 1002;
var IDC_EXEC = 1003;
var IDC_EDIT = 1004;
var IDC_CANCEL = 1005;

var selfRun = false;
var runned, runnedName;
var argsObj = {};

var hWndListBox, hWndGroupArgs, hWndArgs;
var hWndOK, hWndExec, hWndEdit, hWndCancel;

var lbW = 260;
var lbH = 320;

var btnW = 82;
var btnH = 23;
var btnSep = 4;

var gbH = 48;
var gbW = lbW + 12 + btnW;

var dlgW = 12 + lbW + 12 + btnW + 12;
var dlgH = 12 + lbH + 12 + gbH + 12;

var dlgMinW = dlgW - lbW + 120;
var dlgMinH = 12 + btnH*4 + btnSep*3 + 12 + gbH + 12;

if(lastW != undefined)
   lastW = Math.max(dlgMinW, lastW);
if(lastH != undefined)
   lastH = Math.max(dlgMinH, lastH);

var scale = new Scale(0, hMainWnd);
var sizeNonClientX = oSys.Call("user32::GetSystemMetrics", 32 /*SM_CXSIZEFRAME*/) * 2;
var sizeNonClientY = oSys.Call("user32::GetSystemMetrics", 33 /*SM_CYSIZEFRAME*/) * 2 + oSys.Call("user32::GetSystemMetrics", 4 /*SM_CYCAPTION*/);

// Create dialog
hWndDialog = oSys.Call(
   "user32::CreateWindowEx" + _TCHAR,
   0, //dwExStyle
   dialogClass, //lpClassName
   0, //lpWindowName
   0x90CE0000, //WS_VISIBLE|WS_POPUP|WS_CAPTION|WS_SYSMENU|WS_MINIMIZEBOX|WS_THICKFRAME
   scale.x(dlgX || 0), //x
   scale.y(dlgY || 0), //y
   scale.x(lastW || dlgW) + sizeNonClientX, //nWidth
   scale.y(lastH || dlgH) + sizeNonClientY, //nHeight
   hMainWnd, //hWndParent
   0, //ID
   hInstanceDLL, //hInstance
   dialogCallback //Script function callback. To use it class must be registered by WindowRegisterClass.
);
if(!hWndDialog)
   return;

function dialogCallback(hWnd, uMsg, wParam, lParam) {
   switch(uMsg) {
      case 1: //WM_CREATE
         dlgW = scale.x(dlgW) + sizeNonClientX;
         dlgH = scale.y(dlgH) + sizeNonClientY;
         dlgMinW = scale.x(dlgMinW) + sizeNonClientX;
         dlgMinH = scale.y(dlgMinH) + sizeNonClientY;

         var hGuiFont = oSys.Call("gdi32::GetStockObject", 17 /*DEFAULT_GUI_FONT*/);

         // Dialog caption
         oSys.Call("user32::SetWindowText" + _TCHAR, hWnd, dialogTitle);

         hWndListBox = createWindowEx(
            0x204, //WS_EX_CLIENTEDGE|WS_EX_NOPARENTNOTIFY
            "LISTBOX", //lpClassName
            0, //lpWindowName
            0x50210103, //WS_VISIBLE|WS_CHILD|WS_VSCROLL|WS_TABSTOP|LBS_NOINTEGRALHEIGHT|LBS_SORT|LBS_NOTIFY
            12, //x
            12, //y
            lbW, //nWidth
            lbH, //nHeight
            hWnd, //hWndParent
            IDC_LISTBOX, //ID
            hInstanceDLL, //hInstance
            0 //lpParam
         );
         setWindowFont(hWndListBox, hGuiFont);

         // GroupBox action
         hWndGroupArgs = createWindowEx(
            0, //dwExStyle
            "BUTTON", //lpClassName
            0, //lpWindowName
            0x50000007, //WS_VISIBLE|WS_CHILD|BS_GROUPBOX
            12, //x
            12 + lbH + 12, //y
            gbW, //nWidth
            gbH, //nHeight
            hWnd, //hWndParent
            IDC_STATIC, //ID
            hInstanceDLL, //hInstance
            0 //lpParam
         );
         setWindowFontAndText(hWndGroupArgs, hGuiFont, _localize("&Arguments"));

         // Edit: arguments
         hWndArgs = createWindowEx(
            0x200, //WS_EX_CLIENTEDGE
            "EDIT", //lpClassName
            0, //lpWindowName
            0x50010080, //WS_VISIBLE|WS_CHILD|WS_TABSTOP|ES_AUTOHSCROLL
            12 + 8, //x
            12 + lbH + 12 + 18, //y
            gbW - 8*2, //nWidth
            21, //nHeight
            hWnd, //hWndParent
            IDC_ARGS, //ID
            hInstanceDLL, //hInstance
            0 //lpParam
         );
         setWindowFont(hWndArgs, hGuiFont);
         setEditText(hWndArgs, "");

         // OK button window
         hWndOK = createWindowEx(
            0, //dwExStyle
            "BUTTON", //lpClassName
            0, //lpWindowName
            0x50010001, //WS_VISIBLE|WS_CHILD|WS_TABSTOP|BS_DEFPUSHBUTTON
            12 + lbW + 12, //x
            12, //y
            btnW, //nWidth
            btnH, //nHeight
            hWnd, //hWndParent
            IDC_OK, //ID
            hInstanceDLL, //hInstance
            0 //lpParam
         );
         setWindowFontAndText(hWndOK, hGuiFont, _localize("OK"));

         // Exec button window
         hWndExec = createWindowEx(
            0, //dwExStyle
            "BUTTON", //lpClassName
            0, //lpWindowName
            0x50010000, //WS_VISIBLE|WS_CHILD|WS_TABSTOP
            12 + lbW + 12, //x
            12 + btnH + btnSep, //y
            btnW, //nWidth
            btnH, //nHeight
            hWnd, //hWndParent
            IDC_EXEC, //ID
            hInstanceDLL, //hInstance
            0 //lpParam
         );
         setWindowFontAndText(hWndExec, hGuiFont, _localize("Exec"));

         // Edit button window
         hWndEdit = createWindowEx(
            0, //dwExStyle
            "BUTTON", //lpClassName
            0, //lpWindowName
            0x50010000, //WS_VISIBLE|WS_CHILD|WS_TABSTOP
            12 + lbW + 12, //x
            12 + (btnH + btnSep)*2, //y
            btnW, //nWidth
            btnH, //nHeight
            hWnd, //hWndParent
            IDC_EDIT, //ID
            hInstanceDLL, //hInstance
            0 //lpParam
         );
         setWindowFontAndText(hWndEdit, hGuiFont, _localize("Edit"));

         // Cancel button window
         hWndCancel = createWindowEx(
            0, //dwExStyle
            "BUTTON", //lpClassName
            0, //lpWindowName
            0x50010000, //WS_VISIBLE|WS_CHILD|WS_TABSTOP
            12 + lbW + 12, //x
            12 + (btnH + btnSep)*3, //y
            btnW, //nWidth
            btnH, //nHeight
            hWnd, //hWndParent
            IDC_CANCEL, //ID
            hInstanceDLL, //hInstance
            0 //lpParam
         );
         setWindowFontAndText(hWndCancel, hGuiFont, _localize("Cancel"));

         if(lastW != undefined || lastH != undefined)
            resizeDialog(hWnd, lastW || dlgW, lastH || dlgH);

         fillListBox();
         updArgs();

         //centerWindow(hWnd);
         //centerWindow(hWnd, hMainWnd);
         restoreWindowPosition(hWnd, hMainWnd);
      break;
      case 7: //WM_SETFOCUS
         oSys.Call("user32::SetFocus", curName ? hWndArgs : hWndListBox);
      break;
      case 256: //WM_KEYDOWN
         var ctrl = oSys.Call("user32::GetAsyncKeyState", 162 /*VK_LCONTROL*/)
            || oSys.Call("user32::GetAsyncKeyState", 163 /*VK_RCONTROL*/);
         var shift = oSys.Call("user32::GetAsyncKeyState", 160 /*VK_LSHIFT*/)
            || oSys.Call("user32::GetAsyncKeyState", 161 /*VK_RSHIFT*/);
         //var alt = oSys.Call("user32::GetAsyncKeyState", 164 /*VK_LMENU*/)
         // || oSys.Call("user32::GetAsyncKeyState", 165 /*VK_RMENU*/);
         if(wParam == 27) //VK_ESCAPE
            oSys.Call("user32::PostMessage" + _TCHAR, hWnd, 273 /*WM_COMMAND*/, IDC_CANCEL, 0);
         else if(wParam == 13) { //VK_RETURN
            if(ctrl || shift) // Ctrl+Enter, Shift+Enter
               oSys.Call("user32::PostMessage" + _TCHAR, hWnd, 273 /*WM_COMMAND*/, IDC_EXEC, 0);
            else // Enter
               oSys.Call("user32::PostMessage" + _TCHAR, hWnd, 273 /*WM_COMMAND*/, IDC_OK, 0);
         }
         else if(wParam == 114 /*VK_F3*/) // F3
            oSys.Call("user32::PostMessage" + _TCHAR, hWnd, 273 /*WM_COMMAND*/, IDC_EXEC, 0);
         else if(wParam == 112 /*VK_F1*/)
            navigate(ctrl || shift);
         else if(wParam == 113 /*VK_F2*/ || ctrl && wParam == 83 /*S*/) { // F2, Ctrl+S
            var so = saveOptions;
            saveOptions = 2;
            saveSettings(true);
            saveOptions = so;
         }
         else if(wParam == 115 /*VK_F4*/ || ctrl && wParam == 69 /*E*/) // F4, Ctrl+E
            oSys.Call("user32::PostMessage" + _TCHAR, hWnd, 273 /*WM_COMMAND*/, IDC_EDIT, 0);
         else if(wParam == 116 /*VK_F5*/)
            redrawListbox();

         //else if(wParam != 16 /*VK_SHIFT*/ && wParam != 17 /*VK_CONTROL*/ && wParam != 18 /*VK_MENU*/)
         // AkelPad.MessageBox(hWnd, wParam, dialogTitle, 0 /*MB_OK*/);
      break;
      case 273: //WM_COMMAND
         var idc = wParam & 0xffff;
         switch(idc) {
            case IDC_OK:
            case IDC_EXEC:
               var isSelf = curName == WScript.ScriptName;
               selfRun = false;
               if(!curName || isSelf && idc == IDC_EXEC)
                  break;
               if(!runned)
                  runned = {};
               runned[runnedName = curName] = true;
               if(isSelf)
                  selfRun = true;
               else
                  AkelPad.Call("Scripts::Main", 1, curName, expandArgs(argsObj[curName] || ""));
               if(idc == IDC_OK)
                  closeDialog();
               else
                  ensureVisibility();
            break;
            case IDC_EDIT:
               curName && AkelPad.Call("Scripts::Main", 3, curName);
            break;
            case IDC_CANCEL:
               closeDialog();
            break;
            case IDC_ARGS:
               argsObj[curName] = windowText(hWndArgs).replace(/^\s+|\s+$/g, "");
            break;
            case IDC_LISTBOX:
               updArgs();
               if((wParam >> 16 & 0xFFFF) == 2 /*LBN_DBLCLK*/)
                  oSys.Call("user32::PostMessage" + _TCHAR, hWnd, 273 /*WM_COMMAND*/, IDC_EXEC, 0);
         }
      break;
      case 36: //WM_GETMINMAXINFO
         AkelPad.MemCopy(lParam + 24, dlgMinW, 3 /*DT_DWORD*/); //ptMinTrackSize.x
         AkelPad.MemCopy(lParam + 28, dlgMinH, 3 /*DT_DWORD*/); //ptMinTrackSize.y
      break;
      case 5: //WM_SIZE
         if(oSys.Call("user32::IsIconic", hWnd))
            break;
         var rcWnd = getWindowRect(hWnd);
         var curW = rcWnd.right - rcWnd.left;
         var curH = rcWnd.bottom - rcWnd.top;
         resizeDialog(hWnd, curW, curH);
      break;
      case 15: //WM_PAINT
         // Based on code of SearchReplace.js script
         var ps;
         var hDC;
         var lpGrip;
         var rcGrip;
         if(ps = AkelPad.MemAlloc(_X64 ? 72 : 64 /*sizeof(PAINTSTRUCT)*/)) {
            if(hDC = oSys.Call("user32::BeginPaint", hWnd, ps)) {
               if(lpGrip = AkelPad.MemAlloc(16 /*sizeof(RECT)*/)) {
                  if(oSys.Call("user32::GetClientRect", hWnd, lpGrip)) {
                     rcGrip = parseRect(lpGrip);
                     rcGrip.left = rcGrip.right - oSys.Call("user32::GetSystemMetrics", 2 /*SM_CXVSCROLL*/);
                     rcGrip.top = rcGrip.bottom - oSys.Call("user32::GetSystemMetrics", 20 /*SM_CYVSCROLL*/);

                     AkelPad.MemCopy(lpGrip, rcGrip.left, 3 /*DT_DWORD*/);
                     AkelPad.MemCopy(lpGrip + 4, rcGrip.top, 3 /*DT_DWORD*/);
                     AkelPad.MemCopy(lpGrip + 8, rcGrip.right, 3 /*DT_DWORD*/);
                     AkelPad.MemCopy(lpGrip + 12, rcGrip.bottom, 3 /*DT_DWORD*/);

                     oSys.Call("user32::DrawFrameControl", hDC, lpGrip, 3 /*DFC_SCROLL*/, 0x8 /*DFCS_SCROLLSIZEGRIP*/);
                  }
                  AkelPad.MemFree(lpGrip);
               }
               oSys.Call("user32::EndPaint", hWnd, ps);
            }
            AkelPad.MemFree(ps);
         }
      break;
      case 16: //WM_CLOSE
         saveSettings();
         modal && enabled(hMainWnd, true); // Enable main window
         oSys.Call("user32::DestroyWindow", hWnd); // Destroy dialog
      break;
      case 2: //WM_DESTROY
         oSys.Call("user32::PostQuitMessage", 0); // Exit message loop
   }
   return 0;
}

function fillListBox() {
   //var t = new Date().getTime();
   var files = [];
   // Foollowing is very slow (especially on slow devices like USB flash):
   //var filesEnum = new Enumerator(fso.GetFolder(scriptsDir).Files);
   //for(; !filesEnum.atEnd(); filesEnum.moveNext()) {
   // var name = filesEnum.item().Name;
   // if(isScript(name))
   //    files[files.length] = name;
   //}

   // Based on Instructor's code: http://akelpad.sourceforge.net/forum/viewtopic.php?p=12548#12548
   var lpFindData = AkelPad.MemAlloc(592 /*sizeof(WIN32_FIND_DATAW)*/);
   if(!lpFindData)
      return;
   var hSearch = oSys.Call("kernel32::FindFirstFile" + _TCHAR, scriptsDir + "\\*", lpFindData);
   if(!hSearch)
      return;
   do {
      var fName = AkelPad.MemRead(lpFindData + 44 /*offsetof(WIN32_FIND_DATAW, cFileName)*/, _TSTR);
      if(fName == "." || fName == "..")
         continue;
      if(isScript(fName))
         files[files.length] = fName;
   }
   while(oSys.Call("kernel32::FindNextFile" + _TCHAR, hSearch, lpFindData));
   oSys.Call("kernel32::FindClose", hSearch);
   AkelPad.MemFree(lpFindData);
   //WScript.Echo(new Date().getTime() - t);
   //files.sort();

   var lpStr = AkelPad.MemAlloc(256*_TSIZE);
   if(!lpStr)
      return;

   var read = oSet.Begin(WScript.ScriptBaseName, 0x1 /*POB_READ*/);

   var indx = 0;
   for(var i = 0, l = files.length; i < l; ++i) {
      var name = files[i];

      if(read) {
         var args = oSet.Read(getPrefName(name), 3 /*PO_STRING*/);
         var oldArgs = oSet.Read("lastArgs-" + encodeURIComponent(name), 3 /*PO_STRING*/);
         if(oldArgs != undefined)
            _cleanup[name] = oldArgs;
         argsObj[name] = args || oldArgs || "";
      }

      AkelPad.MemCopy(lpStr, name.substr(0, 255), _TSTR);
      AkelPad.SendMessage(hWndListBox, 0x180 /*LB_ADDSTRING*/, 0, lpStr);
   }
   AkelPad.MemFree(lpStr);
   read && oSet.End();

   var indx = getIndexFromString(curName);
   if(indx != undefined)
      AkelPad.SendMessage(hWndListBox, 0x186 /*LB_SETCURSEL*/, indx, 0);
   else
      curName = "";
}
function redrawListbox() {
   for(var name in argsObj)
      delete argsObj[name];

   AkelPad.SendMessage(hWndDialog, 11 /*WM_SETREDRAW*/, false, 0);

   var maxIndx = AkelPad.SendMessage(hWndListBox, 0x18B /*LB_GETCOUNT*/, 0, 0) - 1;
   for(var i = maxIndx; i >= 0; --i)
      AkelPad.SendMessage(hWndListBox, 0x182 /*LB_DELETESTRING*/, i, 0);
   fillListBox();

   AkelPad.SendMessage(hWndDialog, 11 /*WM_SETREDRAW*/, true, 0);
   //var lpRect = AkelPad.MemAlloc(16); //sizeof(RECT)
   //if(lpRect) {
   // var rc = getWindowRect(hWndListBox, hWndDialog);
   // AkelPad.MemCopy(lpRect, rc.left, 3 /*DT_DWORD*/);
   // AkelPad.MemCopy(lpRect + 4, rc.top, 3 /*DT_DWORD*/);
   // AkelPad.MemCopy(lpRect + 8, rc.right, 3 /*DT_DWORD*/);
   // AkelPad.MemCopy(lpRect + 12, rc.bottom, 3 /*DT_DWORD*/);
   // oSys.Call("user32::InvalidateRect", hWndDialog, lpRect, true);
   // AkelPad.MemFree(lpRect);
   //}
   oSys.Call("user32::InvalidateRect", hWndListBox, 0, true);

   updArgs();
}
function updArgs() {
   var str = getStringFromIndex(AkelPad.SendMessage(hWndListBox, 0x188 /*LB_GETCURSEL*/, 0, 0));
   if(!str) {
      enableControls({
         exec: false,
         edit: false,
         ok: false
      });
      return;
   }
   curName = str;
   setEditText(hWndArgs, argsObj[str] || "");
   enableControls({
      exec: str != WScript.ScriptName,
      edit: true,
      ok: true
   });
}
function enableControls(enable) {
   var hWndFocused = oSys.Call("user32::GetFocus");
   enabled(hWndExec, enable.exec);
   enabled(hWndEdit, enable.edit);
   enabled(hWndOK, enable.ok);
   if(
      !enable.exec && hWndFocused == hWndExec
      || !enable.edit && hWndFocused == hWndEdit
      || !enable.ok && hWndFocused == hWndOK
   )
      oSys.Call("user32::SetFocus", hWndDialog);
}
function ensureVisibility() {
   var indx = AkelPad.SendMessage(hWndListBox, 0x188 /*LB_GETCURSEL*/, 0, 0);
   if(indx != -1)
      AkelPad.SendMessage(hWndListBox, 0x186 /*LB_SETCURSEL*/, indx, 0);
}
function navigate(up) {
   var i = AkelPad.SendMessage(hWndListBox, 0x188 /*LB_GETCURSEL*/, 0, 0);
   var max = AkelPad.SendMessage(hWndListBox, 0x18B /*LB_GETCOUNT*/, 0, 0) - 1;
   if(up) {
      if(--i < 0)
         i = max;
   }
   else {
      if(++i > max)
         i = 0;
   }
   AkelPad.SendMessage(hWndListBox, 0x186 /*LB_SETCURSEL*/, i, 0);
   oSys.Call("user32::PostMessage" + _TCHAR, hWndDialog, 273 /*WM_COMMAND*/, IDC_LISTBOX, 0);
}

function restoreWindowPosition(hWnd, hWndParent) {
   if(dlgX == undefined || dlgY == undefined) {
      centerWindow(hWnd, hWndParent);
      return;
   }

   var rcWnd = getWindowRect(hWnd);
   if(!rcWnd)
      return;

   var lpRect = AkelPad.MemAlloc(16); //sizeof(RECT)
   if(!lpRect)
      return;
   AkelPad.MemCopy(lpRect, dlgX, 3 /*DT_DWORD*/);
   AkelPad.MemCopy(lpRect + 4, dlgY, 3 /*DT_DWORD*/);
   AkelPad.MemCopy(lpRect + 8, dlgX + (rcWnd.right - rcWnd.left), 3 /*DT_DWORD*/);
   AkelPad.MemCopy(lpRect + 12, dlgY + (rcWnd.top - rcWnd.bottom), 3 /*DT_DWORD*/);
   var hMonitor = oSys.Call("user32::MonitorFromRect", lpRect, 0x2 /*MONITOR_DEFAULTTONEAREST*/);

   if(hMonitor) {
      //typedef struct tagMONITORINFO {
      // DWORD cbSize;
      // RECT rcMonitor;
      // RECT rcWork;
      // DWORD dwFlags;
      //} MONITORINFO, *LPMONITORINFO;
      var sizeofMonitorInfo = 4 + 16 + 16 + 4;
      var lpMi = AkelPad.MemAlloc(sizeofMonitorInfo);
      if(lpMi) {
         AkelPad.MemCopy(lpMi, sizeofMonitorInfo, 3 /*DT_DWORD*/);
         oSys.Call("user32::GetMonitorInfo" + _TCHAR, hMonitor, lpMi);
         var rcWork = parseRect(lpMi + 4 + 16);
         AkelPad.MemFree(lpMi);
      }
   }
   else { //?
      oSys.Call("user32::SystemParametersInfo" + _TCHAR, 48 /*SPI_GETWORKAREA*/, 0, lpRect, 0);
      var rcWork = parseRect(lpRect);
   }
   AkelPad.MemFree(lpRect);

   if(rcWork) {
      var edge = Math.max(
         16,
         oSys.Call("user32::GetSystemMetrics", 33 /*SM_CYSIZEFRAME*/)
            + oSys.Call("user32::GetSystemMetrics", 4 /*SM_CYCAPTION*/)
      );

      var minX = rcWork.left - (rcWnd.right - rcWnd.left) + edge;
      var minY = rcWork.top;
      var maxX = rcWork.right - edge;
      var maxY = rcWork.bottom - edge;

      dlgX = Math.max(minX, Math.min(maxX, dlgX));
      dlgY = Math.max(minY, Math.min(maxY, dlgY));
   }

   moveWindow(hWnd, dlgX, dlgY);
}
function centerWindow(hWnd, hWndParent) {
   var rcWnd = getWindowRect(hWnd);
   var rcWndParent = getWindowRect(hWndParent || oSys.Call("user32::GetDesktopWindow"));
   if(!rcWndParent || !rcWnd)
      return;
   var x = rcWndParent.left + ((rcWndParent.right - rcWndParent.left) / 2 - (rcWnd.right - rcWnd.left) / 2);
   var y = rcWndParent.top + ((rcWndParent.bottom - rcWndParent.top) / 2 - (rcWnd.bottom - rcWnd.top) / 2);
   moveWindow(hWnd, x, y);
}
function moveWindow(hWnd, x, y, hWndParent) {
   if(hWndParent) {
      var rcWnd = getWindowRect(hWnd, hWndParent);
      x += rcWnd.left;
      y += rcWnd.top;
   }
   oSys.Call("user32::SetWindowPos", hWnd, 0, x, y, 0, 0, 0x15 /*SWP_NOZORDER|SWP_NOACTIVATE|SWP_NOSIZE*/);
}
function resizeWindow(hWnd, dw, dh) {
   var rcWnd = getWindowRect(hWnd);
   var w = rcWnd.right - rcWnd.left + dw;
   var h = rcWnd.bottom - rcWnd.top + dh;
   oSys.Call("user32::SetWindowPos", hWnd, 0, 0, 0, w, h, 0x16 /*SWP_NOZORDER|SWP_NOACTIVATE|SWP_NOMOVE*/);
}
function resizeDialog(hWnd, curW, curH) {
   var dw = curW - dlgW;
   var dh = curH - dlgH;

   resizeWindow(hWndListBox, dw, dh);

   resizeWindow(hWndGroupArgs, dw, 0);
   resizeWindow(hWndArgs, dw, 0);
   moveWindow(hWndGroupArgs, 0, dh, hWnd);
   moveWindow(hWndArgs, 0, dh, hWnd);

   moveWindow(hWndOK, dw, 0, hWnd);
   moveWindow(hWndExec, dw, 0, hWnd);
   moveWindow(hWndEdit, dw, 0, hWnd);
   moveWindow(hWndCancel, dw, 0, hWnd);

   dlgW = curW;
   dlgH = curH;
}
function getWindowRect(hWnd, hWndParent) {
   var lpRect = AkelPad.MemAlloc(16); //sizeof(RECT)
   if(!lpRect)
      return null;
   oSys.Call("user32::GetWindowRect", hWnd, lpRect);
   hWndParent && oSys.Call("user32::ScreenToClient", hWndParent, lpRect);
   var rcWnd = parseRect(lpRect);
   AkelPad.MemFree(lpRect);
   return rcWnd;
}
function parseRect(lpRect) {
   return {
      left: AkelPad.MemRead(lpRect, 3 /*DT_DWORD*/),
      top: AkelPad.MemRead(lpRect + 4, 3 /*DT_DWORD*/),
      right: AkelPad.MemRead(lpRect + 8, 3 /*DT_DWORD*/),
      bottom: AkelPad.MemRead(lpRect + 12, 3 /*DT_DWORD*/)
   };
}

function getStringFromIndex(i) {
   if(i == -1 || i == undefined)
      return "";
   var len = AkelPad.SendMessage(hWndListBox, 0x18A /*LB_GETTEXTLEN*/, i, 0);
   var lpString = AkelPad.MemAlloc((len + 1)*_TSIZE);
   if(!lpString)
      return "";
   AkelPad.SendMessage(hWndListBox, 0x189 /*LB_GETTEXT*/, i, lpString);
   var str = AkelPad.MemRead(lpString, _TSTR);
   AkelPad.MemFree(lpString);
   return str;
}
function getIndexFromString(str) {
   for(var i = 0, l = AkelPad.SendMessage(hWndListBox, 0x18B /*LB_GETCOUNT*/, 0, 0); i < l; ++i) {
      var s = getStringFromIndex(i);
      if(s == str)
         return i;
   }
   return undefined;
}

function windowText(hWnd, pText) {
   if(arguments.length > 1)
      return oSys.Call("user32::SetWindowText" + _TCHAR, hWnd, pText);
   var len = oSys.Call("user32::GetWindowTextLength" + _TCHAR, hWnd);
   var lpText = AkelPad.MemAlloc((len + 1)*_TSIZE);
   if(!lpText)
      return "";
   oSys.Call("user32::GetWindowText" + _TCHAR, hWnd, lpText, len + 1);
   pText = AkelPad.MemRead(lpText, _TSTR);
   AkelPad.MemFree(lpText);
   return pText;
}
function setWindowFont(hWnd, hFont) {
   AkelPad.SendMessage(hWnd, 48 /*WM_SETFONT*/, hFont, true);
}
function setWindowFontAndText(hWnd, hFont, pText) {
   setWindowFont(hWnd, hFont);
   windowText(hWnd, pText);
}
function setEditText(hWnd, pText, selectAll) {
   windowText(hWnd, pText);
   pText && AkelPad.SendMessage(hWnd, 177 /*EM_SETSEL*/, selectAll ? 0 : pText.length, -1);
}
function enabled(hWnd, val) {
   oSys.Call("user32::EnableWindow", hWnd, val);
}
function destroyWindow(hWnd) {
   oSys.Call("user32::DestroyWindow", hWnd);
}
function closeDialog() {
   oSys.Call("user32::PostMessage" + _TCHAR, hWndDialog, 16 /*WM_CLOSE*/, 0, 0);
}
function Scale(hDC, hWnd) {
   var hNewDC = hDC || oSys.Call("user32::GetDC", hWnd);
   if(hNewDC) {
      this._x = oSys.Call("gdi32::GetDeviceCaps", hNewDC, 88 /*LOGPIXELSX*/);
      this._y = oSys.Call("gdi32::GetDeviceCaps", hNewDC, 90 /*LOGPIXELSY*/);

      //Align to 16 pixel
      this._x += (16 - this._x % 16) % 16;
      this._y += (16 - this._y % 16) % 16;

      !hDC && oSys.Call("user32::ReleaseDC", hWnd, hNewDC);

      this.x = function(x) {
         return oSys.Call("kernel32::MulDiv", x, this._x, 96);
      };
      this.y = function(y) {
         return oSys.Call("kernel32::MulDiv", y, this._y, 96);
      };
   }
   else {
      this.x = this.y = function(n) {
         return n;
      };
   }
}
function createWindowEx(
   dwExStyle, lpClassName, lpWindowName, dwStyle,
   x, y, w, h,
   hWndParent, id, hInstance, callback
) {
   return oSys.Call(
      "user32::CreateWindowEx" + _TCHAR,
      dwExStyle, lpClassName, lpWindowName, dwStyle,
      scale.x(x), scale.y(y),
      scale.x(w), scale.y(h),
      hWndParent, id, hInstance, callback || 0
   );
}

modal && enabled(hMainWnd, false); // Disable main window, to make dialog modal

AkelPad.ScriptNoMutex(); // Allow other scripts running
AkelPad.WindowGetMessage(); // Message loop

AkelPad.WindowUnregisterClass(dialogClass);

selfRun && AkelPad.Call("Scripts::Main", 1, WScript.ScriptName, expandArgs(argsObj[curName] || ""));
}

<download | mirror | development version>
Run script from AkelFiles\Plugs\Scripts\ directory with arguments.
Screenshots

executeScript.js

Code:

// http://akelpad.sourceforge.net/forum/viewtopic.php?p=11863#11863
// http://infocatcher.ucoz.net/js/akelpad_scripts/executeScript.js
// http://infocatcher.ucoz.net/js/akelpad_scripts/executeScript.vbs

// (c) Infocatcher 2011
// version 0.2.2 - 2011-12-20

//===================
// Execute selected or all code

// Arguments:
// -useTempFile=true - run script from temp file (useful for tracking errors)
// -onlySelected=true - use only selected text
// -type="js" - don't ask script type

// Usage:
// Call("Scripts::Main", 1, "executeScript.js")
// Call("Scripts::Main", 1, "executeScript.js", `-type="js"`)
//===================

function _localize(s) {
var strings = {
   "Yes – run as JScript\nNo – run as VBScript": {
      ru: "Да – запустить как JScript\nНет – запустить как VBScript"
   }
};
var lng;
switch(AkelPad.GetLangId(1 /*LANGID_PRIMARY*/)) {
   case 0x19: lng = "ru"; break;
   default: lng = "en";
}
_localize = function(s) {
   return strings[s] && strings[s][lng] || s;
};
return _localize(s);
}

// Read arguments:
// getArg(argName, defaultValue)
var useTempFile = getArg("useTempFile", true);
var type = getArg("type");
var fileToDelete = getArg("fileToDelete");
var onlySelected = getArg("onlySelected", false);

if(fileToDelete) {
var fso = new ActiveXObject("Scripting.FileSystemObject");
if(fso.FileExists(fileToDelete))
   fso.DeleteFile(fileToDelete);
WScript.Quit();
}

var hMainWnd = AkelPad.GetMainWnd();
if(!hMainWnd)
WScript.Quit();
var dialogTitle = WScript.ScriptName.replace(/^[!-\-_]+/, "");
dialogTitle = dialogTitle.charAt(0).toUpperCase() + dialogTitle.substr(1);

var filePath = AkelPad.GetEditFile(0);

var isJs = type ? type == "js" : isJsFile(filePath);
var isVbs = type ? type == "vbs" : isVbsFile(filePath);

if(!isJs && !isVbs) {
var btn = AkelPad.MessageBox(
   hMainWnd,
   _localize("Yes – run as JScript\nNo – run as VBScript"),
   WScript.ScriptName,
   35 /*MB_YESNOCANCEL|MB_ICONQUESTION*/
);
isJs = btn == 6; //IDYES
isVbs = btn == 7; //IDNO
}

if(useTempFile && (isJs || isVbs)) {
var tmpFile = WScript.ScriptFullName.replace(/\.[^.]+$/, "") + "-exec." + (isJs ? "js" : "vbs");

var fso = new ActiveXObject("Scripting.FileSystemObject");
var textStream = fso.CreateTextFile(tmpFile, true /*overwrite*/, true /*unicode*/);
textStream.Write(AkelPad.GetSelText() || AkelPad.GetTextRange(0, -1));
textStream.Close();

AkelPad.Call("Scripts::Main", 1, fso.GetFileName(tmpFile));
AkelPad.Call("Scripts::Main", 1, WScript.ScriptName, "\"-fileToDelete='" + tmpFile.replace(/[\\'"]/g, "\\$&") + "'\"");
}
else if(isJs)
eval(AkelPad.GetSelText() || (onlySelected ? "" : AkelPad.GetTextRange(0, -1)));
else if(isVbs)
AkelPad.Call("Scripts::Main", 1, WScript.ScriptName.replace(/\.[^.]+$/, "") + ".vbs", "-onlySelected=" + onlySelected);

function getExt(path) {
return /\.([^.]+)$/.test(path) ? RegExp.$1 : "";;
}
function isJsFile(path) {
return /^js(m|on)?$/.test(getExt(path));
}
function isVbsFile(path) {
return /^(bas|vb[s5]?|wbt|frm)$/.test(getExt(path));
}

function getArg(argName, defaultVal) {
var args = {};
for(var i = 0, argsCount = WScript.Arguments.length; i < argsCount; i++)
   if(/^[-\/](\w+)(=(.+))?$/i.test(WScript.Arguments(i)))
      args[RegExp.$1.toLowerCase()] = RegExp.$3 ? eval(RegExp.$3) : true;
getArg = function(argName, defaultVal) {
   argName = argName.toLowerCase();
   return typeof args[argName] == "undefined" // argName in args
      ? defaultVal
      : args[argName];
};
return getArg(argName, defaultVal);
}

<download | mirror | development version>
executeScript.vbs (supplemental) <download | mirror | development version>
Execute selected or all code.

KDJ · Joined: 06 Mar 2010 Posts: 1929 Location: Poland

Replace replicate chars with one char.

ReplaceReplicateCharsWithOne.js

KDJ · Joined: 06 Mar 2010 Posts: 1929 Location: Poland

Inserts a tabulation or spaces, inversely to setting Options->Settings->Editor 1->Tab size->Spaces (bTabStopAsSpaces).

InsertTabOrSpaces.js

VladSh · Posted: Tue Mar 15, 2011 10:07 am Post subject: ini и "Избранное"

работа с внешними ini-файлами: INI.js

Code:

// http://akelpad.sourceforge.net/forum/viewtopic.php?p=11993#11993
// Description(1033): Works with ini-files. Script implemented as the library for using in other scripts.
// Description(1049): Библиотека функций для работы с внешними ini-файлами; имя секции не учитывается!
// Version: 1.0 (2011.03.15)
// Author: VladSh

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

//"Класс"-объект для одноразового чтения/записи значения в параметр ini-файла
var oINI =
{
file: {             //необходимые параметры файла
   name: "",       //полное имя файла
   text: ""          //полное содержимое
},
value: {          //значение параметра
   start: 0,          //позиция начала параметра в файле
   end: 0          //позиция окончания параметра в файле
},

//Установка файла и получение его содержимого
setFile: function(pFileName)
{
   this.file.name = pFileName;
   if (fso.FileExists(pFileName) == true) {
      this.file.text = AkelPad.ReadFile(pFileName);
      return true
   }
   else
      return false
},

//Получение границ значения параметра
getParameter: function(pParamName)
{
   this.value.start = this.file.text.indexOf(pParamName);
   if (this.value.start >= 0) {
      this.value.start = this.file.text.indexOf("=", this.value.start) + 1;
      this.value.end = this.file.text.indexOf("\r\n", this.value.start);
      return true
   }
   else
      return false
},

//Получение значения параметра
read: function(pParamName)
{
   if (this.getParameter(pParamName))
      return this.file.text.substring(this.value.start, this.value.end)
   else
      return ""
},

//Запись значения параметра
write: function(pParamName, pParamValue)    //чтобы удалить параметр из ini, передавайте в значении null
{
   var fw;
   if (this.getParameter(pParamName)) {
      fw = fso.OpenTextFile(this.file.name, 2 /*ForWriting*/, (pParamValue != null), true);
      if (fw) {
         if (pParamValue != null) {
            //изменение значения параметра
            this.file.text = this.file.text.substring(0, this.value.start) + pParamValue + this.file.text.substring(this.value.end);
         }
         else {
            //удаление параметра
            this.value.start = this.file.text.indexOf(pParamName) - 1;
            this.file.text = this.file.text.substring(0, this.value.start) + this.file.text.substring(this.value.end);
         }

         fw.Write(this.file.text);
         fw.Close();
      }
   }
   else {
      if (pParamValue != null) {
         //добавление параметра (если его не было)
         fw = fso.OpenTextFile(this.file.name, 8 /*ForAppend*/, true, true);
         fw.Write(pParamName + "=" + pParamValue);
         fw.WriteBlankLines(1);
         fw.Close();
      }
   }
}

};

работа с "Избранным"

Favourites.js

Code:

// Description(1033): Export/Replace Favourites-menu
// Description(1049): Работа с меню «Избранное»: экспорт / замена / очистка
// http://akelpad.sourceforge.net/forum/viewtopic.php?p=11993#11993
// Version: 1.7 (2014.12.17)
// Author: VladSh
//
// Usage:
// -"Экспортировать..." Call("Scripts::Main", 1, "Favourites.js", "1")
// -"Импортировать (заменить)..." Call("Scripts::Main", 1, "Favourites.js", "2")
// -"Очистить избранное..." Call("Scripts::Main", 1, "Favourites.js", "0") Icon("%a\AkelFiles\Plugs\ContextMenu.dll", 6)

var pDefFileName = "MyFavourites(AkelPad)";
var pDefFileExt = "mnu";
var pFavTextParam = "FavText";

var pMenuFileName = "ContextMenu.ini";
var pMenuFile = AkelPad.GetAkelDir(4) /*ADTYPE_PLUGS*/ + "\\" + pMenuFileName;

if (! AkelPad.Include("INI.js")) WScript.Quit();
if (! oINI.setFile(pMenuFile)) {
AkelPad.MessageBox(AkelPad.GetMainWnd(), pMenuFileName + " not found...", WScript.ScriptName, 64 /*MB_ICONINFORMATION*/);
WScript.Quit();
}
if (! WScript.Arguments.length) {
AkelPad.MessageBox(AkelPad.GetMainWnd(), "Arguments not found!", WScript.ScriptName, 48 /*MB_ICONEXCLAMATION*/);
WScript.Quit();
}
var nActn = parseInt(WScript.Arguments(0));

var pFavFile = "";
if (! AkelPad.Include("CommonFunctions.js")) WScript.Quit();

var pFavFileText = oINI.read(pFavTextParam);

if (nActn == 1)    //Экспорт
{
if (pFavFileText) {
   pFavFile = fileDialogDefault(false, pDefFileName, pDefFileExt);
   if (pFavFile) {
      pFavFile = correctFileNameFull(pFavFile);
      if (pFavFile) {
         var nOverwrite = 6 /*IDYES*/;
         if (fso.FileExists(pFavFile) == true)
            nOverwrite = AkelPad.MessageBox(AkelPad.GetMainWnd(), "File already exist. Replace it?", WScript.ScriptName, 32 /*MB_ICONQUESTION*/ + 4 /*MB_YESNO*/);

         if (nOverwrite == 6) {
            var fc = fso.CreateTextFile(pFavFile, true, true);
            fc.Write(pFavFileText);
            fc.Close();
            AkelPad.MessageBox(AkelPad.GetMainWnd(), "Favourites exported successfully.", WScript.ScriptName, 64 /*MB_ICONINFORMATION*/);
         }
      }
   }
}
else
   AkelPad.MessageBox(AkelPad.GetMainWnd(), "Favourites not found...", WScript.ScriptName, 64 /*MB_ICONINFORMATION*/);
}
else    //Импорт или Очистка
{
var bRunning = (nActn == 2 || (nActn == 0 && pFavFileText));    //при импорте возможно всегда, а при очистке, только если есть что очищать

if (bRunning) {
   if (pFavFileText)       //диалог с предупреждением о замене выводим только тогда, когда есть заменяемый текст
      bRunning = (AkelPad.MessageBox(AkelPad.GetMainWnd(), "Favorites will be replaced, continue?", WScript.ScriptName, 48 /*MB_ICONEXCLAMATION*/ + 4 /*MB_YESNO*/) == 6);

   if (bRunning) {
      if (nActn == 2)    //Импорт (замена)
      {
         pFavFile = fileDialogDefault(true, pDefFileName, pDefFileExt);
         if (pFavFile) {
            pFavFileText = AkelPad.ReadFile(pFavFile);
            if (!pFavFileText) {
               AkelPad.MessageBox(AkelPad.GetMainWnd(), "Choosed file is empty!", WScript.ScriptName, 48 /*MB_ICONEXCLAMATION*/);
               WScript.Quit();
            }
         }
         else
            WScript.Quit();    //в диалоге выбрали "Отмена"
      }
      else    //Очистка всего списка
         pFavFileText = "";

      //корректно перезаписываем Favorites-меню с немедленным отображением изменений (code from Instructor)
      bRunning = false;
      var sPluginFunction = "ContextMenu::Main";

      if (AkelPad.IsPluginRunning(sPluginFunction))
         bRunning = (AkelPad.Call(sPluginFunction, 10) != -1);    //отключаем плагин

      oINI.write(pFavTextParam, pFavFileText);

      if (bRunning)
         AkelPad.Call(sPluginFunction, 10);                               //включаем плагин

      if (nActn == 2)
         AkelPad.MessageBox(AkelPad.GetMainWnd(), "Favourites replaced successfully.", WScript.ScriptName, 64 /*MB_ICONINFORMATION*/);
   }
}
}

Благодарности: Instructor'у за реализацию возможности немедленного обновления меню!

Пример меню
Скрипт больше не поддерживается, т.к. не имеет смысла. Используйте SessionMenu.js.
Как пользоваться сессиями расписал здесь.

KDJ · Joined: 06 Mar 2010 Posts: 1929 Location: Poland

Restores default value URL prefixes (Options->Settings->Editor 2->Prefixes).

ResetUrlPrefixes.js

KDJ · Joined: 06 Mar 2010 Posts: 1929 Location: Poland

Restores default value URL delimiters (Options->Settings->Editor 2->Delimiters).

ResetUrlDelimiters.js

Infocatcher · Joined: 06 Aug 2007 Posts: 1767

measuresConverter.js <download | mirror | development version>
Convert measures (internal) and currency (used cached data from exchange-rates.org, fxexchangerate.com and bitcoincharts.com).
Can convert numbers and expressions, pick up selected text.

Screenshots

Post size limit, here is packed file:
measuresConverter.uue
Save as text file with .uue extension, unpack with Total Commander or WinRAR. And unpack .7z with WinRAR or 7-Zip.

VladSh

reassoc.js

Code:

// Description(1033): Associating with program the file extensions, listed in AkelPad.ini
// Description(1049): Ассоциирование с программой расширений, указанных в AkelPad.ini
// http://akelpad.sourceforge.net/forum/viewtopic.php?p=12169#12169
// Version: 1.3 (2015.01.14)
// Author: VladSh
//
// Usage:
// -"Files associating" Call("Scripts::Main", 1, "reassoc.js")                   - reassoc all operations
// -"Files associating (Edit)" Call("Scripts::Main", 1, "reassoc.js", "Edit")    - reassoc Edit operation only

var oSet = AkelPad.ScriptSettings();
if (!oSet.Begin("", 0x41 /* POB_PROGRAM + POB_READ */)) {
AkelPad.MessageBox(AkelPad.GetMainWnd(), "AkelPad settings are not found...", WScript.ScriptName, 64 /*MB_ICONINFORMATION*/);
WScript.Quit();
}

var arrOperations;
if (WScript.Arguments.length)
arrOperations = [WScript.Arguments(0)];
if (!arrOperations) arrOperations = ["Open", "Edit", "Print"];

var WshShell = new ActiveXObject("WScript.Shell");

for (var nOper = 0; nOper < arrOperations.length; nOper++) {
var sExts = oSet.Read("FileTypes" + arrOperations[nOper], 3 /*PO_STRING*/);
if (sExts) reassocList(sExts.split(";"), arrOperations[nOper].toLowerCase(), '"' + AkelPad.GetAkelDir(0) + '\\AkelPad.exe" "%1"', "AkelUndo");
}
oSet.End();

AkelPad.MessageBox(AkelPad.GetMainWnd(), "Ассоциирование типов файлов с программой выполнено.", WScript.ScriptName, 64);

function reassocList(arrExt, pOreration, pCommandLineNew, pUndoParamName) {
for (var nExt = 0; nExt < arrExt.length; nExt++)
   reassocExt(arrExt[nExt], pOreration, pCommandLineNew, pUndoParamName);
}

function reassocExt(pExt, pOreration, pCommandLineNew, pUndoParamName) {
//Определяем имя секции с настройками расширения, если оно зарегистрировано
var pExtSectionPName = "HKCR\\." + pExt + "\\";
var pExtSectionName = RegRead(pExtSectionPName);    //читаем сразу значение по умолчанию (имя секции с настройками)

if (!pExtSectionName) {
   //если расширение не зарегистрировано или не ссылается на секцию с настройками
   pExtSectionName = pExt + "file";
   WshShell.RegWrite(pExtSectionPName, pExtSectionName, "REG_SZ");    //записываем значение по умолчанию (имя секции с настройками)
}

//Работаем с секцией настроек расширения
var pCommandSectionName = "HKCR\\" + pExtSectionName + "\\shell\\" + pOreration + "\\command\\";
var pCommandLine = RegRead(pCommandSectionName);    //читаем сразу значение командной строки, возможно структура разделов есть, и оно заполнено

if (pCommandLine != '"%1" %*') {    //если это не исполняемый файл, - реассоциируем
   if (pCommandLine != pCommandLineNew) {    //если командные строки разные
      if (pCommandLine)    //если в старой командной строке что-то есть, - сгружаем в параметр pUndoParamName
         RegWriteSZ(pCommandSectionName + pUndoParamName, pCommandLine);

      RegWriteSZ(pCommandSectionName, pCommandLineNew);    //записываем новое значение по умолчанию
   }
}
}

function RegRead(pPath) {
try
   { return WshShell.RegRead(pPath) }
catch(e)
   { return null }
}

function RegWriteSZ(pSection, pValue) {
var arrValue = pValue.split('" "');
var pType = (arrValue[0].charAt(0) == "%") ? "REG_EXPAND_SZ" : "REG_SZ";
WshShell.RegWrite(pSection, pValue, pType);
}

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