07/04/29 17:03:31 Bcai5wiB0
>>658
どんな書式でナンバリングしたいのか明記してないので、適当にしたよ。
下記を、拡張子 .js で保存
main();
function main() {
var pat = InputBox("文字列を指定してください","文字列のナンバリング","");
if(pat=="") return;
MoveHistSet();
SelectAll();
var ary = GetSelectedString(0).split(pat);
for(var i=1 ; i<ary.length ; i++) {
ary[i] = "(" + i + ":" + pat + ")" + ary[i];
}
SelectAll();
InsText(ary.join(""));
MoveHistPrev();
}
function InputBox( prompt, title, defval ) {
if( prompt == null ) prompt = "";
if( title == null ) title = "";
if( defval == null ) defval = "";
var vbs = new ActiveXObject("ScriptControl");
vbs.Language = "VBScript";
vbs.AddCode( 'Function InputBox2(prompt,title,default)\nInputBox2=InputBox(prompt,title,default)\nEnd Function\n' );
return vbs.Run( 'InputBox2', prompt,title,defval );
}