AkelPad

Code: Select all

// Usage:
//   eval(AkelPad.ReadFile(AkelPad.GetAkelDir(5 /*ADTYPE_SCRIPTS*/) + "\\modules\\__log.js"));
//   _log("Message");

function _log() {
	var logFile = WScript.ScriptFullName + ".log";
	var fso = new ActiveXObject("Scripting.FileSystemObject");
	_log = function() {
		var textStream = fso.OpenTextFile(logFile, 8 /*append*/, true /*create*/, -1 /*unicode*/);
		for(var i = 0, l = arguments.length; i < l; i++)
			textStream.WriteLine(arguments[i]);
		textStream.close();
	};
	return _log.apply(this, arguments);
}

Code: Select all

/// Rename current editing file

//Variables
var fso=new ActiveXObject("Scripting.FileSystemObject");
var hMainWnd=AkelPad.GetMainWnd();
var oSys=AkelPad.SystemFunction();
var pScriptName=WScript.ScriptName;
var pFileFullName=AkelPad.GetEditFile(0);
var pFileName=fso.GetFileName(pFileFullName);
var pFileDir=GetParent(pFileFullName);
var pText="";

if (hMainWnd)
{
  pText=AkelPad.InputBox(hMainWnd, pScriptName, GetLangString(0), pFileName);

  if (pText)
  {
    var OD_ADT_BINARY_ERROR    =1
    var OD_ADT_REG_CODEPAGE    =2
    var OD_ADT_DETECT_CODEPAGE =4
    var OD_ADT_DETECT_BOM      =8

    var pNewFileFullName=pFileDir + "\\" + pText;
    var nFlags=OD_ADT_BINARY_ERROR|OD_ADT_DETECT_CODEPAGE|OD_ADT_DETECT_BOM;
    var nCodePage=0;
    var nBOM=0;

    var lpPoint = AkelPad.MemAlloc(8 /*sizeof(POINT)*/, true);
    if(lpPoint) {
      var hWndEdit = AkelPad.GetEditWnd();
      AkelPad.SendMessage(hWndEdit, 1245 /*EM_GETSCROLLPOS*/, 0, lpPoint);
      var columnSel = AkelPad.SendMessage(hWndEdit, 3127 /*AEM_GETCOLUMNSEL*/, 0, 0);
      var ss = AkelPad.GetSelStart();
      var se = AkelPad.GetSelEnd();

      //Close editing file
      if(AkelPad.SendMessage(hMainWnd, 273 /*WM_COMMAND*/, 4324 /*IDM_WINDOW_FILECLOSE*/, 0)) {
        //Rename file
        fso.MoveFile(pFileFullName, pNewFileFullName);
  
        //Open file
        AkelPad.OpenFile(pNewFileFullName, nFlags, nCodePage, nBOM);
  
        hWndEdit = AkelPad.GetEditWnd();
        setRedraw(hWndEdit, false);
        AkelPad.SetSel(ss, se);
        columnSel && AkelPad.SendMessage(hWndEdit, 3128 /*AEM_UPDATESEL*/, 0x1 /*AESELT_COLUMNON*/, 0);
        AkelPad.SendMessage(hWndEdit, 1246 /*EM_SETSCROLLPOS*/, 0, lpPoint);
        setRedraw(hWndEdit, true);
      }      
      AkelPad.MemFree(lpPoint, true);
    }
  }
}


//Functions
function GetParent(pFile)
{
  var i;

  for (i=pFile.length - 1; i >= 0; --i)
  {
    if (pFile.charAt(i) == '\\')
      return pFile.substr(0, i);
  }
  return "";
}

function setRedraw(hWnd, bRedraw) {
	AkelPad.SendMessage(hWnd, 11 /*WM_SETREDRAW*/, bRedraw, 0);
	bRedraw && oSys.Call("user32::InvalidateRect", hWnd, 0, true);
}

function GetLangString(nStringID)
{
  var nLangID;

  nLangID=oSys.Call("kernel32::GetUserDefaultLangID");
  nLangID=nLangID & 0x3ff; //PRIMARYLANGID

  if (nLangID == 0x19) //LANG_RUSSIAN
  {
    if (nStringID == 0)
      return "\u041D\u043E\u0432\u043E\u0435\u0020\u0438\u043C\u044F\u003A";
  }
  else
  {
    if (nStringID == 0)
      return "New name:";
  }
  return "";
}