//   DelNumLines.js
//  Если вызывать без параметров, то появится диалог,
//  где набо будет ввести номера строк, разделённых точкой с запятой.
//  Т.е, вызванных так.
//    Call("Scripts::Main", 1, "DelNumLines.js")
//
//  Если существуют аргументы, то соответственно, номера должны быть указаны.
//    Call("Scripts::Main", 1, "DelNumLines.js", "10;15;23")
//    Call("Scripts::Main", 1, "DelNumLines.js", "2;5;56")
//    Call("Scripts::Main", 4, "DelNumLines.js", "243;359;487;532")
//
//  Для работы с горячими клавишами надо использовать плагин Hotkeys.
//  В меню и тулбарах вызываете этот скрипт с разными аргументами.
//  У вас может быть целое подменю для работы с этим скриптом.
//   
//  Если в конце параметра будет стоять "cl", то тогда файл сохранится и закроется.
//  Call("Scripts::Main", 1, "DelNumLines.js", "2;5;56cl")

_function()
function _function(){if (AkelPad.GetMainWnd()){var r="",j,i,h=AkelPad.GetArgLine();
if (!h){var b,u={},z=new ActiveXObject('ScriptControl'),v=[];u.Function=function(f){return function()
{return u.Function.eval.call(this,f,arguments);};};u.Function.eval=function(f){h=Array.prototype.slice.call(arguments[1]);
for (i=0;i<h.length;i++){if (typeof h[i]!='string'){continue;}h[i]='"'+h[i].replace(/"/g,'"+Chr(34)+"')+'"';}
z.Language='VBScript';return z.eval(f+'('+h.join(', ')+')');};b=u.Function('InputBox');
h=b("Examples:          10;15;23",'Input Numbers Lines',"2;4;6");if (!h){WScript.Quit();}
u=h.split(";");for (i=0;i<u.length;++i){z=u[i].replace(/^\s*/g,"").replace(/\s*$/g,"");if (z.length>0){v.push(z);}};
}else{var v=h.split(";");};var u=[];for (i=0;i<v.length;++i){z=v[i].replace(/^\s*/g,"").replace(/\s*$/g,"");
if (z.length>0){u.push(parseInt(z,10));}};z=AkelPad.GetTextRange(0,-1).split("\r");v=0;for (i=0;i<u.length;++i){for (j=0;j<z.length;++j){
if (u[i]>z.length){WScript.Echo("Одно из введённых чисел больше, чем количество строк."+"\n\n\n"+"Число\t"+
u[i]+"\n\n\nСтрок\t"+z.length+"\n\n\n"+AkelPad.GetEditFile(0)+"  \n");z="";WScript.Quit();}}};for (i=0;i<u.length;++i){for (j=0;j<z.length;++j)
{if (u[i]>z.length){v=1;break;};if (u[i]==j+1){i+=1;continue;};if (i<=u.length){r+=z[j]+"\n";}else{r+=z[j]};}}
if (v==0){AkelPad.Command(0x103D);AkelPad.ReplaceSel(r);z="";r="";if (h.toLowerCase().lastIndexOf("cl")>0)
{AkelPad.Command(0x1009);WScript.sleep(200);AkelPad.Command(0x10E4);};WScript.Quit();};}
}

Call("Scripts::Main", 4, "DelNumLines.js", "2;6;7;65cl")