Macro/Åê¹Æ/128

http://sakura.qp.land.to/?Macro%2F%C5%EA%B9%C6%2F128


Top > Macro > Åê¹Æ > 128

Âгç¸Ì¤ÎÆâÉô¤Î¤ß¤òÁªÂò¾õÂ֤ˤ¹¤ë

  • ¥Ú¡¼¥¸: Macro/Åê¹Æ
  • ºî¼Ô: ¤¹¤¤?
  • ¥«¥Æ¥´¥ê¡¼: ppa
  • Åê¹ÆÆü: 2002-12-21 (ÅÚ) 17:46:10

¥á¥Ã¥»¡¼¥¸

fileSBRACKET.PPA
  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;
 


URL B I U SIZE Black Maroon Green Olive Navy Purple Teal Gray Silver Red Lime Yellow Blue Fuchsia Aqua White

źÉÕ¥Õ¥¡¥¤¥ë: fileSBRACKET.PPA 477·ï [¾ÜºÙ]

¥ê¥í¡¼¥É   ¿·µ¬ ÊÔ½¸ Åà·ë º¹Ê¬ źÉÕ Ê£À½ ̾Á°Êѹ¹   ¥Û¡¼¥à °ìÍ÷ ñ¸ì¸¡º÷ ºÇ½ª¹¹¿· ¥Ð¥Ã¥¯¥¢¥Ã¥× ¥ê¥ó¥¯¸µ   ¥Ø¥ë¥×   ºÇ½ª¹¹¿·¤ÎRSS
Last-modified: 2006-07-30 (Æü) 04:03:56 (6442d)