|
Âгç¸Ì¤ÎÆâÉô¤Î¤ß¤òÁªÂò¾õÂ֤ˤ¹¤ë
- ¥Ú¡¼¥¸: Macro/Åê¹Æ
- ºî¼Ô: ¤¹¤¤?
- ¥«¥Æ¥´¥ê¡¼: ppa
- Åê¹ÆÆü: 2002-12-21 (ÅÚ) 17:46:10
¥á¥Ã¥»¡¼¥¸
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
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
| | // TAB=4
// ¼Â¹Ô¤Ë¤Ï PPA.DLL ¤¬É¬¿Ü¤Ç¤¹¡£sakura.exe ¤ÈƱ¤¸¥Õ¥©¥ë¥À¤Ë PPA.DLL ¤òÆþ¤ì¤Æ¤ª¤¤¤Æ¤¯¤À¤µ¤¤¡£
// ¥Þ¥¯¥í¥Õ¥¡¥¤¥ë¤Î³ÈÄ¥»Ò¤Ï .PPA ¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤ê¤Þ¤»¤ó¡£
// Âгç¸Ì¤ÎÆâÉô¤Î¤ß¤òÁªÂò¾õÂ֤ˤ¹¤ë¡£
// ¥µ¥¯¥é¥¨¥Ç¥£¥¿¤ÎÂгç¸Ì¸¡º÷¤Î¸½ºß¤Î»ÅÍͤǤ¢¤ë
// ¡Ö¥«¡¼¥½¥ë¤Î±¦¤¬³ç¸Ì¤Ê¤é¡¢¤½¤Î³ç¸Ì¤ËÂФ·¤ÆÂгç¸Ì¸¡º÷¤¹¤ë¡£
// ¡¡¥«¡¼¥½¥ë¤Î±¦¤¬³ç¸Ì¤Ç¤Ê¤¤¾ì¹ç¡¢º¸¤¬³ç¸Ì¤Ê¤é¤½¤Î³ç¸Ì¤ËÂФ·¤Æ
// ¡¡Âгç¸Ì¸¡º÷¤¹¤ë¡£¡×
// ¤È¤¤¤¦Æ°ºî¤Ë¹ç¤ï¤»¤Æºî¤Ã¤Æ¤¢¤ê¤Þ¤¹¡£
var
chr:String; // ʸ»úÎóÊÑ¿ô¤òÍÑ°Õ
begin
S_CancelMode(0); // ³Æ¼ï¥â¡¼¥É¤Î¼è¤ê¾Ã¤· - Ç°¤Î¤¿¤áÁªÂò¾õÂÖ¤ò¥¥ã¥ó¥»¥ë¤·¤Æ¤ª¤¯
// ¥«¡¼¥½¥ë°ÌÃ֤α¦¤Î£±Ê¸»ú¤ò chr ¤Ë¼èÆÀ¤¹¤ë¡£
S_MoveHistSet(0); // ¸½ºß°ÌÃÖ¤ò°ÜÆ°ÍúÎò¤ËÅÐÏ¿
S_Right_Sel(0); // (ÁªÂò)¥«¡¼¥½¥ë±¦°ÜÆ°
chr := S_GetSelectedString(0); // ÁªÂòÉôʬ¤Îʸ»úÎó¤ò¼èÆÀ
S_CancelMode(0); // ³Æ¼ï¥â¡¼¥É¤Î¼è¤ê¾Ã¤· - ÁªÂò¾õÂÖ¤ò¥¥ã¥ó¥»¥ë
S_MoveHistPrev(0); // °ÜÆ°ÍúÎò: Á°¤Ø
if (
(chr = '(' )or(chr = '[' )or(chr = '{' )or(chr = '<' )or(chr = 'Ž¢' )or
(chr = '¡Ú')or(chr = '¡Ø')or(chr = '¡Ö')or(chr = '¡ã')or(chr = '¢ã')or
(chr = '¡Ô')or(chr = '¡Ê')or(chr = '¡Ò')or(chr = '¡Ð')or(chr = '¡Ì')or
(chr = '¡Î')or(chr = '¡È')or(chr = 'à')
) then
begin // ¥«¡¼¥½¥ë¤Î±¦¤¬³ç¸Ì¤À¤Ã¤¿¡£
S_Right(0); // ¥«¡¼¥½¥ë±¦°ÜÆ° - ³ç¸ÌÆâ¤Ø°ÜÆ°
S_BeginSelect(0); // ÈÏ°ÏÁªÂò³«»Ï
S_Left(0); // ¥«¡¼¥½¥ëº¸°ÜÆ° - ¸µ¤Î°ÌÃÖ¤ØÌá¤Ã¤Æ¤«¤éÂгç¸Ì¸¡º÷¤·¤Ê¤¤¤È¡¢¡Ö |((xx)xx) ¡×¡Ê |¤¬¥«¡¼¥½¥ë¤Í¡Ë¤È¤«¤Î¾ì¹ç¤Ë´Ö°ã¤Ã¤Æ£²¸ÄÌܤγç¸Ì¤ÇÂгç¸Ì¸¡º÷¤·¤Æ¤·¤Þ¤¦¤Î¤Ç¡¥
S_BracketPair(0); // Âгç¸Ì¤Î¸¡º÷
S_Right(0); // ¥«¡¼¥½¥ë±¦°ÜÆ°
S_Left(0); // ¥«¡¼¥½¥ëº¸°ÜÆ°
exit; // ¥Þ¥¯¥í½ªÎ»
end;
if (
(chr = ')' )or(chr = ']' )or(chr = '}' )or(chr = '>' )or(chr = 'Ž£' )or
(chr = '¡Û')or(chr = '¡Ù')or(chr = '¡×')or(chr = '¡ä')or(chr = '¢ä')or
(chr = '¡Õ')or(chr = '¡Ë')or(chr = '¡Ó')or(chr = '¡Ñ')or(chr = '¡Í')or
(chr = '¡Ï')or(chr = '¡É')or(chr = 'á')
) then // ¥«¡¼¥½¥ë¤Î±¦¤¬ÊĤ¸³ç¸Ì¤À¤Ã¤¿¡£
begin
S_BeginSelect(0); // ÈÏ°ÏÁªÂò³«»Ï
S_BracketPair(0); // Âгç¸Ì¤Î¸¡º÷
S_Right(0); // ¥«¡¼¥½¥ë±¦°ÜÆ°
exit; // ¥Þ¥¯¥í½ªÎ»
end;
// ¥«¡¼¥½¥ë°ÌÃ֤κ¸¤Î£±Ê¸»ú¤ò chr ¤Ë¼èÆÀ¤¹¤ë¡£
S_MoveHistSet(0); // ¸½ºß°ÌÃÖ¤ò°ÜÆ°ÍúÎò¤ËÅÐÏ¿
S_Left_Sel(0); // (ÁªÂò)¥«¡¼¥½¥ëº¸°ÜÆ°
chr := S_GetSelectedString(0); // ÁªÂòÉôʬ¤Îʸ»úÎó¤ò¼èÆÀ
S_CancelMode(0); // ³Æ¼ï¥â¡¼¥É¤Î¼è¤ê¾Ã¤· - ÁªÂò¾õÂÖ¤ò¥¥ã¥ó¥»¥ë
S_MoveHistPrev(0); // °ÜÆ°ÍúÎò: Á°¤Ø
if (
(chr = '(' )or(chr = '[' )or(chr = '{' )or(chr = '<' )or(chr = 'Ž¢' )or
(chr = '¡Ú')or(chr = '¡Ø')or(chr = '¡Ö')or(chr = '¡ã')or(chr = '¢ã')or
(chr = '¡Ô')or(chr = '¡Ê')or(chr = '¡Ò')or(chr = '¡Ð')or(chr = '¡Ì')or
(chr = '¡Î')or(chr = '¡È')or(chr = 'à')
) then
begin // ¥«¡¼¥½¥ë¤Îº¸¤¬³ç¸Ì¤À¤Ã¤¿¡£
S_BeginSelect(0); // ÈÏ°ÏÁªÂò³«»Ï
S_BracketPair(0); // Âгç¸Ì¤Î¸¡º÷
S_Right(0); // ¥«¡¼¥½¥ë±¦°ÜÆ°
S_Left(0); // ¥«¡¼¥½¥ëº¸°ÜÆ°
exit; // ¥Þ¥¯¥í½ªÎ»
end;
if (
(chr = ')' )or(chr = ']' )or(chr = '}' )or(chr = '>' )or(chr = 'Ž£' )or
(chr = '¡Û')or(chr = '¡Ù')or(chr = '¡×')or(chr = '¡ä')or(chr = '¢ä')or
(chr = '¡Õ')or(chr = '¡Ë')or(chr = '¡Ó')or(chr = '¡Ñ')or(chr = '¡Í')or
(chr = '¡Ï')or(chr = '¡É')or(chr = 'á')
) then // ¥«¡¼¥½¥ë¤Îº¸¤¬ÊĤ¸³ç¸Ì¤À¤Ã¤¿¡£
begin
S_Left(0); // ¥«¡¼¥½¥ëº¸°ÜÆ°
S_BeginSelect(0); // ÈÏ°ÏÁªÂò³«»Ï
S_BracketPair(0); // Âгç¸Ì¤Î¸¡º÷
S_Right(0); // ¥«¡¼¥½¥ë±¦°ÜÆ°
exit; // ¥Þ¥¯¥í½ªÎ»
end;
end;
|
|
|