Macro/投稿/216
をテンプレートにして作成
Land.to
[
ホーム
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
]
開始行:
* 選択行行頭へ任意文字列を追加 [#m49a3d50]
-ページ: [[Macro/投稿]]
-作者:
-カテゴリー: js
-投稿日: 2011-04-06 (水) 19:29:03
** メッセージ [#i3d76bcb]
デフォルトではinputboxを表示して、追加したい文字列を入力...
#code(javascript){{
var WSHShell=new ActiveXObject("WScript.Shell");
var mypf="";//追加する文字列用
//mypf="> "; //決めうちしたい場合はこれをアンコメントして...
var es=""; //結果用
//入力ボックスから接頭辞を入力
//JScriptからVBSのInputBox関数を実行
var oSC = new ActiveXObject("ScriptControl");
oSC.Language = "VBScript";
var sFunc = 'Function InBox(prompt, title, default)\n';
sFunc += 'InBox = InputBox(prompt, title, default)\n';
sFunc += 'End Function\n';
oSC.AddCode(sFunc);
mypf = oSC.Run ("InBox", "追加する文字列", "行頭へ文字列...
//キャンセルした場合(=mypfがundefinedの場合)ではない場合...
if(typeof(mypf) !="undefined"){
// 選択範囲がなければ全選択
if(Editor.IsTextSelected() == 0){
Editor.SelectAll();
}
// 通常の選択範囲が存在する場合のみ処理 (矩形選択のときは...
if(Editor.IsTextSelected() == 1){
var bln=Editor.GetSelectLineFrom(); // 選択開始行番号
var eln=Editor.GetSelectLineTo(); // 選択終了行番号
var sln=eln-bln; // 選択されている行数
for (var i=0; i < sln; i++){
var contl=Editor.GetLineStr(bln + i); // 行内容を...
es+=mypf+contl;
}
}
InsText(es); //選択範囲をesで上書き
}
}}
----
#comment
終了行:
* 選択行行頭へ任意文字列を追加 [#m49a3d50]
-ページ: [[Macro/投稿]]
-作者:
-カテゴリー: js
-投稿日: 2011-04-06 (水) 19:29:03
** メッセージ [#i3d76bcb]
デフォルトではinputboxを表示して、追加したい文字列を入力...
#code(javascript){{
var WSHShell=new ActiveXObject("WScript.Shell");
var mypf="";//追加する文字列用
//mypf="> "; //決めうちしたい場合はこれをアンコメントして...
var es=""; //結果用
//入力ボックスから接頭辞を入力
//JScriptからVBSのInputBox関数を実行
var oSC = new ActiveXObject("ScriptControl");
oSC.Language = "VBScript";
var sFunc = 'Function InBox(prompt, title, default)\n';
sFunc += 'InBox = InputBox(prompt, title, default)\n';
sFunc += 'End Function\n';
oSC.AddCode(sFunc);
mypf = oSC.Run ("InBox", "追加する文字列", "行頭へ文字列...
//キャンセルした場合(=mypfがundefinedの場合)ではない場合...
if(typeof(mypf) !="undefined"){
// 選択範囲がなければ全選択
if(Editor.IsTextSelected() == 0){
Editor.SelectAll();
}
// 通常の選択範囲が存在する場合のみ処理 (矩形選択のときは...
if(Editor.IsTextSelected() == 1){
var bln=Editor.GetSelectLineFrom(); // 選択開始行番号
var eln=Editor.GetSelectLineTo(); // 選択終了行番号
var sln=eln-bln; // 選択されている行数
for (var i=0; i < sln; i++){
var contl=Editor.GetLineStr(bln + i); // 行内容を...
es+=mypf+contl;
}
}
InsText(es); //選択範囲をesで上書き
}
}}
----
#comment
ページ名: