-
Notifications
You must be signed in to change notification settings - Fork 0
/
faster_coding.ahk
181 lines (146 loc) · 4.24 KB
/
faster_coding.ahk
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
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
; faster coding refactored
#NoEnv ; Recommended for performance and compatibility with future AutoHotkey releases.
; #Warn ; Enable warnings to assist with detecting common errors.
SendMode Input ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir% ; Ensures a consistent starting directory.
; Coding schema
; Add coding schema to the array. Ensure use of numbering system as parsing for generating GUI checks for change in first string to signal new column. For example, all beginning "1" will be the first column, all beginning "2" the second column, etc.
coding := ["1 First example", "1a example", "1b example", "1c example", "1d example", "1e example", "1f example", "1g example", "1h example", "1i example", "1j example", "1k example", "2 Second example", "2a example", "2b example", "2c example", "2d example", "2d1 example", "2e example", "2f example", "2g example", "2h example", "2i example", "2j example", "2k example", "2l example", "2m example", "2n example", "2x example", "3 Third example", "3a example", "3b example", "3c example", "3d example", "3e example", "3f example", "3g example", "3h example", "3i example"]
; GUI
space = y+5
columnspace = y+25
Gui, -caption ; removes Window from around GUI
Gui, Color, B
Gui, Font, S20 CWhite Bold, Verdana
Gui, Add, Text,, What to code selection at?
Gui, Font, S10 CWhite Bold, Verdana
Gui, Add, Text,%space%,
StringGetPos, EndofCode, % coding[1], %A_Space%
StringLeft, StartCode, % coding[1], EndofCode
Counter := 1
Loop % coding.Length()
{
StringLeft, CurrentCode, % coding[A_Index], EndofCode
if (StartCode = CurrentCode)
{
Gui, Add, Text, %space%, % coding[A_Index]
Counter := Counter + 1
}
else
{
if (Counter > 25)
{
Gui, Font, S20 CWhite Bold, Verdana
Gui, Add, Text,ys, %A_Space%
Gui, Font, S10 CWhite Bold, Verdana
Gui, Add, Text, %columnspace%, % coding[A_Index]
StringGetPos, EndofCode, % coding[A_Index], %A_Space%
StringLeft, StartCode, % coding[A_Index], EndofCode
Counter := 1
}
else
{
Gui, Add, Text,, % coding[A_Index]
StringGetPos, EndofCode, % coding[A_Index], %A_Space%
StringLeft, StartCode, % coding[A_Index], EndofCode
Counter := Counter + 1
}
}
}
Gui, Font, S20 CDefault Bold, Verdana
Gui, Add, Edit, r1 vInput,
; Coding
mode=0
#if (mode=0)
#NumpadEnter::
mode=1
MsgBox, Faster coding mode active, press Windows key plus NumPad Enter to exit.
SetNumLockState, Off
Return
#If
; SELECTION MODE
#if (mode=1)
NumpadLeft::^NumpadLeft
NumpadRight::^NumpadRight
NumpadPgUp::Send {NumpadUp 10}
NumpadPgDn::Send {NumpadDown 10}
;single code
NumpadEnter::
Send ^q
Gui, Show, x129 y141, Select code
mode=2
SetNumLockState, On
Return
;multi code
Enter::
Send ^q
Gui, Show, x129 y141, Select code
mode=3
SetNumLockState, On
Return
;Exit faster coding mode
#NumpadEnter::
mode=0
MsgBox, Exited faster coding mode.
Return
;Code at currently selected node
NumpadAdd::
Send ^{F9}
Return
#if
; handling input
#if (mode=2 or mode=3)
Escape::
Gui, Cancel
mode=1
WinActivate, OFFICEVD
send ^q
SetNumLockState, Off
Return
NumpadEnter::
Gui, Submit
Send +{end}{delete}
; Included above Send for situations of coding at multiple nodes as NVivo tends to lose the selection of full node name after switching focus to the select code GUI and back, this therefore ensures the box is clear for entering a new node.
InputLen := StrLen(Input)
IsMatched := 0
Loop % coding.Length()
{
StringLeft, ToMatch, % coding[A_Index], InputLen
if (ToMatch = Input)
{
StringLeft, Output, % coding[A_Index], 8
IsMatched :=1
Send %Output%
;Sleep 200
Send {down}{enter}
; MsgBox, %Output%
break
}
}
if IsMatched = 0
{
Send ^q
MsgBox, Invalid selection - please try again.
mode=1
Input:=""
GuiControl,,Input,%Input%
WinActivate, OFFICEVD
SetNumLockState, Off
}
Input:=""
GuiControl,,Input,%Input%
WinActivate, OFFICEVD
if (mode=2)
{
Sleep, 1000
Send ^q
mode := 1
SetNumLockState, Off
}
if (mode=3)
{
Gui, Show, x129 y141, Select code
}
Return
#if
PrintScreen::ExitApp