サクラエディタふぁんくらぶ part8

サクラエディタふぁん ..

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

665:662
 07/04/29 16:19:59 dbQCvgbB0
 
　　　┌───────┐ 
　　（｜●　　　　　　　● ｜ 
　 ／｜ ┌▽▽▽▽┐　｜ 　／￣￣￣￣￣￣￣￣￣￣ 
　（　┤ ｜　　　　　　｜　｜＜>>664ど～もです。動作確認しました。神に感謝!! 
　　＼　 └△△△△┘　　＼ ＼＿＿＿＿＿＿＿＿＿＿ 
　　　｜　　　　　　　　　　｜＼＼ 
　　　｜　　　　　　　　　　｜ （＿） 
　　　｜　　　　　　　　　　｜ 
　　　｜　　　 ／＼ 　　　｜ 
　　　└──┘　└──┘

666:名無しさん＠お腹いっぱい。
 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 ); 
}

次ページ