AutoHotKeyで変数代入を自動インデント | Codetter（こーどったー）

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
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
Pause::
    cb_bk = %ClipboardAll%
    
    Clipboard =
    Send, ^c
    ClipWait, 2
    
    Sleep, 50
    tmp = %Clipboard%
    tmp2 = `r`n
    
    ; 改行しかなかったら終了
    if tmp = %tmp2%
    {
        content =
    } else if ErrorLevel <> 0
    {
        ; Error
        content =
    } else {
        ; 改行記号で分割。\r\nで分割出来ないみたいなので\nで分割。\rは残る。あとで\n付け足す。
        AutoTrim, off
        content = %Clipboard%
        StringSplit, OutputArray, content, `n
        
        ; 30行以上だったら中止
        if (OutputArray0 > 29) {
            Clipboard = %cb_bk%
            MsgBox, ごめん30行くらいまでしか無理
            exit
        }
        
        ; 全部の行の【=】記号の位置を取得
        cnt := 1
        Loop 30 {
            StringGetPos, EQPos%cnt%, OutputArray%cnt%, =
            cnt := cnt + 1
            if ( OutputArray0 < cnt ) {
                break
            }
        }
        
        ; 一番右側にある【=】記号の位置を取得
        cnt := 1
        max := 0
        Loop 30 {
            if (EQPos%cnt% > max) {
                max := EQPos%cnt%
            }
            cnt := cnt + 1
            if ( OutputArray0 < cnt ) {
                break
            }
        }
        
        ; 一番右側にある【=】記号の位置に合わせて他の行でも右に移動
        cnt := 1
        Loop 30 {
            i := max - EQPos%cnt%
            Loop %i% {
            
                StringReplace, OutputArray%cnt%, OutputArray%cnt%, =, %A_Space%=
            }
            cnt := cnt + 1
            if ( OutputArray0 < cnt ) {
                break
            }
        }
        
        ; 全部の行をバッファにまとめてクリップボードに貼り付け
        buff = 
        cnt := 1
        Loop 30 {
            
            ; 最後の行に【\r】記号があったら【\n】をつけたす。なかったら付けない。
            if (OutputArray0 == cnt) {
                StringGetPos, Decision, OutputArray%OutputArray0%, `r
                if ( Decision = -1 ) {
                    buff := buff . OutputArray%cnt%
                } else {
                    buff := buff . OutputArray%cnt% . "`n"
                }
            } else {
                buff := buff . OutputArray%cnt% . "`n"
            }
            
            cnt := cnt + 1
            if ( OutputArray0 < cnt ) {
                break
            }
        }
        
        
        Clipboard = %buff%
        
        Send, ^v
        Sleep, 20
        
    }
Sleep, 200
Clipboard = %cb_bk%
return
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX