-
Notifications
You must be signed in to change notification settings - Fork 84
/
Copy pathprintable.ahk
37 lines (33 loc) · 1.29 KB
/
printable.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
#SingleInstance,Force
#NoEnv
SetWorkingDir, "%A_ScriptDir%"
FileRead, EnterKeys, %A_WorkingDir%\bank\enter.csv
FileRead, TabKeys, %A_WorkingDir%\bank\tab.csv
FileRead, SpaceKeys, %A_WorkingDir%\bank\space.csv
Gosub,PrintableList
return
PrintableList:
FileDelete,%A_WorkingDir%\resources\Texter Replacement Guide.html
MsgBox,Delete %A_WorkingDir%\resources\Texter Replacement Guide.html
List = <html><head><title>Texter Hotstrings and Replacement Text Cheatsheet</title></head></body><h2>Texter Hostrings and Replacement Text Cheatsheet</h2><table border="1"><th>Hotstring</th><th>Replacement Text</th><th>Trigger(s)</th>
Loop, %A_WorkingDir%\replacements\*.txt
{
trig =
hs = %A_LoopFileName%
StringReplace, hs, hs, .txt
FileRead, rp, %A_WorkingDir%\replacements\%hs%.txt
If hs in %EnterKeys%
trig = Enter
If hs in %TabKeys%
trig = %trig% Tab
If hs in %SpaceKeys%
trig = %trig% Space
StringReplace, rp, rp, <,<,All
StringReplace, rp, rp, >,>,All
List = %List%<tr><td>%hs%</td><td>%rp%</td><td>%trig%</td></tr>
}
List = %List%</table></body></html>
FileAppend,%List%, %A_WorkingDir%\resources\Texter Replacement Guide.html
MsgBox,Append %A_WorkingDir%\resources\Texter Replacement Guide.html
Run,%A_WorkingDir%\resources\Texter Replacement Guide.html
return