選択行行頭へ任意文字列を追加
- ページ: Macro/投稿
- 作者:
- カテゴリー: js
- 投稿日: 2011-04-06 (水) 19:29:03
メッセージ
デフォルトではinputboxを表示して、追加したい文字列を入力する
0
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
| | var WSHShell=new ActiveXObject("WScript.Shell");
var mypf="";var es="";
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", "追加する文字列", "行頭へ文字列を追加", "");
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);
}
|