Macro/投稿/170

http://sakura.qp.land.to/?Macro%2F%C5%EA%B9%C6%2F170


Top > Macro > 投稿 > 170

指定の単語を検索して連番付与

  • ページ: Macro/投稿
  • 作者: 666@FC8?
  • カテゴリー: js
  • 投稿日: 2007-05-02 (水) 18:19:26

メッセージ

658 :名無しさん@お腹いっぱい。:2007/04/29(日) 08:48:13 ID:ET4AsPec0

秀丸で指定の文字を見つけたら順にナンバリングしていく マクロがあるのですが、それをサクラエディタでもやりたいのです。 そういったマクロを公開している場所はありませんでしょうか?

660 :名無しさん@お腹いっぱい。:2007/04/29(日) 12:26:32 ID:sQAS68XH0

>>658 もうちょっと詳細に仕様を書くか その秀丸マクロをダウソできるURLを書いて欲しい

666 :名無しさん@お腹いっぱい。:2007/04/29(日) 17:03:31 ID:Bcai5wiB0

>>658 どんな書式でナンバリングしたいのか明記してないので、適当にしたよ。 下記を、拡張子 .js で保存

  0
  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
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)\n'
        + 'InputBox2=InputBox(prompt,title,default)\nEnd Function\n' );
    return vbs.Run( 'InputBox2', prompt,title,defval );
}

667 :名無しさん@お腹いっぱい。:2007/04/29(日) 18:08:51 ID:ET4AsPec0

>>666 すばらしいです!これに桁数を指定する事は可能でしょうか? 001、002、みたいな感じにです。

668 :名無しさん@お腹いっぱい。:2007/04/29(日) 18:19:18 ID:Bcai5wiB0

>>667

ary[i] = "(" + i + ":" + pat + ")" + ary[i];

の行を

ary[i] = "(" + ("0000000000"+i).replace(/^.*(.{3})$/,"$1") + ":" + pat + ")" + ary[i];

にする。

669 :名無しさん@お腹いっぱい。:2007/04/30(月) 06:39:04 ID:bWFPNx8m0

>>668 ありがとうございます。想定していた通りの物になりました。 こういうのを自分で作れるのっていいですね。


  • 使わせて頂きました。ありがとうございました! -- 2007-06-21 (木) 00:47:45
  • 使わせていただきました。ありがとうございます。 -- 2010-04-06 (火) 13:15:20

URL B I U SIZE Black Maroon Green Olive Navy Purple Teal Gray Silver Red Lime Yellow Blue Fuchsia Aqua White

リロード   新規 編集 凍結 差分 添付 複製 名前変更   ホーム 一覧 単語検索 最終更新 バックアップ リンク元   ヘルプ   最終更新のRSS
Last-modified: 2010-04-06 (火) 13:15:20 (3117d)