テキストエディタ Mery part3

668 ：名無しさん＠お腹いっぱい。：2014/03/13(木) 21:44:15.35 ID:zCJphnmo0.net

>>666
こんなのにしかならなかった

var InputBox = (function(){
var s = new ActiveXObject('ScriptControl');
s.Language = 'VBScript';
s.AddCode('Function P(msg, def): P=InputBox(msg, "Mery", def): End Function');
return function(msg, def){ return s.Run('P', msg, def||'') }
})();
if (/(\d+)(.+)/.test(InputBox(' d: 下へカーソル移動\n (: 括弧位置へ移動\n\\b: 単語出現位置へ移動', ''))) {
var n = Number(RegExp.$1);
var t = Document.Text;
var s = Document.Selection;
switch (RegExp.$2) {
case 'd':
s.LineDown(false, n);
break;
case '(':
var i = s.GetActivePos();
for (; n>0 && i>=0; --n) { i = t.indexOf('(', i+1) }
if (i >= 0) { s.SetActivePos(i) }
break;
case '\\b':
t.slice(s.GetActivePos()).search(/[ \n]+/m);
for (--n; n>0 && RegExp.lastMatch; --n) { RegExp.rightContext.search(/[ \n]+/m) }
if (RegExp.lastMatch) { s.SetActivePos(t.length - RegExp.rightContext.length) }
break;
}
}