AkelPad

Code: Select all

var IDBUTTON = 1000;
var IDEDIT   = 1001;
var oSys     = AkelPad.SystemFunction();
var hMainWnd = AkelPad.GetMainWnd();
var sClass   = "AkelPad::Scripts::" + WScript.ScriptName + "::" + AkelPad.GetInstanceDll();
var hDlg;

AkelPad.WindowRegisterClass(sClass);

//0x90CA0000 = WS_POPUP|WS_VISIBLE|WS_CAPTION|WS_SYSMENU|WS_MINIMIZEBOX
//0x5081000B = WS_CHILD|WS_VISIBLE|WS_BORDER|WS_TABSTOP|BS_OWNERDRAW
//0x50810080 = WS_CHILD|WS_VISIBLE|WS_BORDER|WS_TABSTOP|ES_AUTOHSCROLL
AkelPad.CreateDialog(0, sClass, WScript.ScriptName, 0x90CA0000, 100, 100, 300, 90, hMainWnd, DialogCallback, 0x2 /*CDF_PIXELS*/, 0, 0, "", 0, 0, "|",
  //ExSt, Class,    Title,       Style,   X,   Y,   W,   H, ID,      lParam,
  0x0000, "BUTTON", "",     0x5081000B,  10,  10,  25,  25, IDBUTTON,     0, "|",
  0x0000, "EDIT",   "Edit", 0x50810080,  10,  50, 280,  21, IDEDIT,       0);

if (hDlg)
{
  AkelPad.ScriptNoMutex();
  AkelPad.WindowGetMessage(0x2 /*WGM_NOKEYSEND*/);
}

AkelPad.WindowUnregisterClass(sClass);

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

  if (uMsg == 272 /*WM_INITDIALOG*/)
  {
    hDlg = hWnd;

    //enforce set STYLE and EXSTYLE in controls
    oSys.Call("User32::SetWindowLongW", GetDlgItem(IDBUTTON), -16 /*GWL_STYLE*/, 0x5081000B);
    oSys.Call("User32::SetWindowLongW", GetDlgItem(IDBUTTON), -20 /*GWL_EXSTYLE*/, 0);
    oSys.Call("User32::SetWindowLongW", GetDlgItem(IDEDIT), -16 /*GWL_STYLE*/, 0x50810080);
    oSys.Call("User32::SetWindowLongW", GetDlgItem(IDEDIT), -20 /*GWL_EXSTYLE*/, 0);
    oSys.Call("User32::SetWindowPos", GetDlgItem(IDBUTTON), 0, 0, 0, 0, 0, 0x37 /*SWP_FRAMECHANGED|SWP_NOACTIVATE|SWP_NOZORDER|SWP_NOMOVE|SWP_NOSIZE*/);
    oSys.Call("User32::SetWindowPos", GetDlgItem(IDEDIT), 0, 0, 0, 0, 0, 0x37 /*SWP_FRAMECHANGED|SWP_NOACTIVATE|SWP_NOZORDER|SWP_NOMOVE|SWP_NOSIZE*/);
  }

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

    if (nID == IDBUTTON)
    {
      WScript.Echo("Button was pressed.");
    }

    else if (nID == 2 /*IDCANCEL*/)
      oSys.Call("User32::PostMessageW", hDlg, 16 /*WM_CLOSE*/, 0, 0);
  }

  else if (uMsg == 16 /*WM_CLOSE*/)
  {
    oSys.Call("User32::PostQuitMessage", 0);
    oSys.Call("User32::DestroyWindow", hDlg);
  }

  return 0;
}

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

function GetDlgItem(nID)
{
  return oSys.Call("User32::GetDlgItem", hDlg, nID);
}

Code: Select all

// Отсюда http://akelpad.sourceforge.net/forum/viewtopic.php?p=29871#p29871 и ниже,
// скрипт http://akelpad.sourceforge.net/forum/viewtopic.php?p=29873#p29873
// 2015-11-16

var pText = AkelPad.GetTextRange(0, -1).toLowerCase();
var aWordList = GetWords(pText);
var aDict;

pText = "";

for (i = 0; i < aWordList.length; ++i)
{
  if (aWordList[i].length > 1)
    pText += aWordList[i] + "\r";
}
// Читаем \AkelFiles\Tools\dictionary.txt (в UTF-8 без BOM) и режем в массив
aDict = AkelPad.ReadFile(AkelPad.GetAkelDir(1) + "\\Tools\\dictionary.txt", 0x10 /*OD_ADT_NOMESSAGES*/, 65001 /*UTF-8*/, false).split(/[\r\n]+/);
// Ищем в тексте документа слова из массива, если есть - удаляем
for (var i = 0; i < aDict.length; i++)
{
  if (pText.indexOf(aDict[i]) >= 0)
  {
    oPattern = new RegExp("^" + aDict[i] + "\r+", "gm");
    pText = pText.replace(oPattern, "");
  }
}
// Вставляем отсутствующие слова в документ, заменяя существующий текст
AkelPad.SetSel(0, -1);
AkelPad.ReplaceSel(pText);

// Kley, http://akelpad.sourceforge.net/forum/viewtopic.php?p=29879#p29879
function GetWords(pText)
{
  var aAllWords;
  var nAllWords;
  var aWords = [];
  var sWord;
  var i = 0;

  aAllWords = pText.match(/[^\s`"\\\|\[\]\(\)\{\}<>,\.;:\+\-=~!#\$%^&\*/\?«»]+/g);
  nAllWords = aAllWords ? aAllWords.length : 0;

  if (nAllWords)
  {
    aAllWords.sort();

    while (i < nAllWords)
    {
      sWord = aAllWords[i];
      ++i;
      while ((i < nAllWords) && (sWord == aAllWords[i]))
      {
        ++i;
      }
      // Пропускаем итерацию, если в строке содержится что-нибудь кроме "a-z'"
      if (sWord.search(/[^a-z']+/g) >= 0) continue;
      aWords.push(sWord);
    }
  }
  return aWords;
}

Code: Select all

// Основан на коде KDJ (FileInfo.js)

var pText = AkelPad.GetTextRange(0, -1).toLowerCase();
var aWordList = GetWords(pText);

pText = "";

for (i = 0; i < aWordList.length; ++i)
{
  if (aWordList[i].length > 1)
    pText += aWordList[i] + "\n";
}

AkelPad.SetSel(0, -1);
AkelPad.ReplaceSel(pText.substr(0, pText.length - 1));

function GetWords(pText)
{
  var aAllWords;
  var nAllWords;
  var aWords=[];
  var sWord;
  var i = 0;

  aAllWords = pText.match(/[^\s'`"\\\|\[\]\(\)\{\}<>,\.;:\+\-=~!@#\$%^&\*/\?\d]+/g); //оригинал (без \d в конце)
  nAllWords = aAllWords ? aAllWords.length : 0;

  if (nAllWords)
  {
    aAllWords.sort();

    while (i < nAllWords)
    {
      sWord = aAllWords[i];
      ++i;
      while ((i < nAllWords) && (sWord == aAllWords[i]))
      {
        ++i;
      }
      aWords.push(sWord);
    }
  }
  return aWords;
}