Macro/投稿/170
をテンプレートにして作成
Land.to
[
ホーム
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
]
開始行:
* 指定の単語を検索して連番付与 [#e4100264]
-ページ: [[Macro/投稿]]
-作者: [[666@FC8]]
-カテゴリー: js
-投稿日: 2007-05-02 (水) 18:19:26
** メッセージ [#h0141d3c]
*** 658 :名無しさん@お腹いっぱい。:2007/04/29(日) 08:4...
秀丸で指定の文字を見つけたら順にナンバリングしていく
マクロがあるのですが、それをサクラエディタでもやりたいの...
そういったマクロを公開している場所はありませんでしょうか?
*** 660 :名無しさん@お腹いっぱい。:2007/04/29(日) 12:2...
~>>658
もうちょっと詳細に仕様を書くか
その秀丸マクロをダウソできるURLを書いて欲しい
*** 666 :名無しさん@お腹いっぱい。:2007/04/29(日) 17:0...
~>>658
どんな書式でナンバリングしたいのか明記してないので、適当...
下記を、拡張子 .js で保存
#code(javascript){{
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 Functi...
return vbs.Run( 'InputBox2', prompt,title,defval );
}
}}
*** 667 :名無しさん@お腹いっぱい。:2007/04/29(日) 18:0...
~>>666
すばらしいです!これに桁数を指定する事は可能でしょうか?
001、002、みたいな感じにです。
*** 668 :名無しさん@お腹いっぱい。:2007/04/29(日) 18:1...
~>>667
ary[i] = "(" + i + ":" + pat + ")" + ary[i];
の行を
ary[i] = "(" + ("0000000000"+i).replace(/^.*(.{3})$/,"$1...
にする。
*** 669 :名無しさん@お腹いっぱい。:2007/04/30(月) 06:3...
~>>668
ありがとうございます。想定していた通りの物になりました。
こういうのを自分で作れるのっていいですね。
----
- 使わせて頂きました。ありがとうございました! -- &new{2...
- 使わせていただきました。ありがとうございます。 -- &new...
#comment
終了行:
* 指定の単語を検索して連番付与 [#e4100264]
-ページ: [[Macro/投稿]]
-作者: [[666@FC8]]
-カテゴリー: js
-投稿日: 2007-05-02 (水) 18:19:26
** メッセージ [#h0141d3c]
*** 658 :名無しさん@お腹いっぱい。:2007/04/29(日) 08:4...
秀丸で指定の文字を見つけたら順にナンバリングしていく
マクロがあるのですが、それをサクラエディタでもやりたいの...
そういったマクロを公開している場所はありませんでしょうか?
*** 660 :名無しさん@お腹いっぱい。:2007/04/29(日) 12:2...
~>>658
もうちょっと詳細に仕様を書くか
その秀丸マクロをダウソできるURLを書いて欲しい
*** 666 :名無しさん@お腹いっぱい。:2007/04/29(日) 17:0...
~>>658
どんな書式でナンバリングしたいのか明記してないので、適当...
下記を、拡張子 .js で保存
#code(javascript){{
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 Functi...
return vbs.Run( 'InputBox2', prompt,title,defval );
}
}}
*** 667 :名無しさん@お腹いっぱい。:2007/04/29(日) 18:0...
~>>666
すばらしいです!これに桁数を指定する事は可能でしょうか?
001、002、みたいな感じにです。
*** 668 :名無しさん@お腹いっぱい。:2007/04/29(日) 18:1...
~>>667
ary[i] = "(" + i + ":" + pat + ")" + ary[i];
の行を
ary[i] = "(" + ("0000000000"+i).replace(/^.*(.{3})$/,"$1...
にする。
*** 669 :名無しさん@お腹いっぱい。:2007/04/30(月) 06:3...
~>>668
ありがとうございます。想定していた通りの物になりました。
こういうのを自分で作れるのっていいですね。
----
- 使わせて頂きました。ありがとうございました! -- &new{2...
- 使わせていただきました。ありがとうございます。 -- &new...
#comment
ページ名: