[添付ファイル一覧]
[全ページの添付ファイル一覧]
- CopyLines.js (backup No.2)
- 格納ファイル名:attach/4D6163726F2FC5EAB9C62F323434_436F70794C696E65732E6A73.2
- ページ:Macro/投稿/244
- 格納ファイル名:attach/4D6163726F2FC5EAB9C62F323434_436F70794C696E65732E6A73.2
- MD5ハッシュ値:2859ad3f2f546f08452990a97a694d63
- サイズ:1.7KB (1734 bytes)
- Content-type:application/octet-stream
- 登録日時:2017/06/18 13:01:55
- アクセス数:22
- MD5ハッシュ値:2859ad3f2f546f08452990a97a694d63
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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
| | main();
function main() {
var a1;
var a2;
var a3;
var loop = 0;
var inp = ExpandParameter("$C"); var tex = ""; var line = ExpandParameter("$y"); var WshShell = new ActiveXObject("WScript.Shell");
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);
var tex = oSC.Run ( "InBox" , "文字を指定" , "指定した文字を含む行をコピー" , inp );
if(tex=="") return;
if(typeof tex =="undefined") return;
GoFileTop(); SearchNext ( tex , 16 );
if ( GetSelectedString() != tex ) { WshShell.Popup( "\'" + tex + "\'" + "は一つも見つかりませんでした。" , 0 , "Sakura"); }
else { SelectLine(); a1 = GetSelectedString();
while ( loop == 0 ) { SearchNext ( tex , 16 );
if ( GetSelectedString() == tex ) { SelectLine(); a2 = GetSelectedString(); a3 = a1 + a2; a1 = a3;
}
else { SetClipboard ( 0 , a1 ); break; }
}
Jump ( line , 1 ); SearchClearMark(); ReDraw(); }
}
|
|