-
Notifications
You must be signed in to change notification settings - Fork 0
/
month-converter-slashes.ahk
98 lines (84 loc) · 3.85 KB
/
month-converter-slashes.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
/*
* A find-and-replace autohotkey script
* converts month numbers into month names and vice versa
* developed by Armagan Tekdoner
* from Accessibility, Accommodation and Adaptive Computer Technology (AAACT) of SSC (Shared Services Canada)
* email: Armagan.Tekdoner@canada.ca
* website: grifare.net
* launch date: May 2018
* Using regex, vulnerabilities and false matches of the previous version have been fixed
*/
; declaration of variables for directives
title := "Converts month numbers into month names and vice versa"
firstSentence := "Holding control key,"
directive1 := "press 1 to convert month numbers into their respective names"
directive2 := "press 2 to convert month names into their respective numbers"
note := "French pages and other possible formats are automatically handled"
; Initial message box
MsgBox, 1, %title%, %firstSentence%`n`n%directive1%`n%directive2%`n`n%note%
; empties the clipboard each time the script is activated
Clipboard =
; Places Unicode text onto the clipboard.
Transform, Clipboard, Unicode, %MyUTF_String%
; creates an array that defines which month number corresponds to which abbreviation
monthArray := {JAN: "01", FEB: "02", FEV: "02", FÉV: "02", MAR: "03", APR: "04", AVR: "04", MAY: "05", MAI: "05", JUN: "06", JUL: "07", AUG: "08", AOU: "08", AOÛ: "08", SEP: "09", OCT: "10", NOV: "11", DEC: "12", DÉC: "12"}
; ctrl+1 ---------------------------------------------------------------------------
; defines the hotkey
^1::
MsgBox, 1, ctrl+1 01/07/2018 becomes 01 JUL 2018 or 2018/07/01 becomes 2018 JUL 01, Converts month numbers into month names handling various formats:`n`n01.07.2018 or 01 /07/ 2018 or 01/07/2018 or 01 07 2018 or 01-07-2018`nbecomes 01 JUL 2018
; empties the clipboard
Clipboard =
Clipboard := ""
; emulates select all
Send ^a
; copies selected
Send ^c
; 2 miliseconds wait to increase performance
Sleep, 2
; Loop through the array
for key, value in monthArray {
; regex find-and-replace cases defined both for EN and FR (accented or not)
Clipboard := RegExReplace( Clipboard, "(\d)(?:\s|\/|\s\/|\.|\-)" value "(?:\s|\/|\/\s|\.|\-)(\d)", "$1 " key " $2" )
}
Sleep, 2
; stores French characters in a variable
frenchChars := "i)(ù|û|ü|ÿ|«|»|à|â|æ|ç|é|è|ê|ë|ï|î|ô|œ)"
; counts French characters in the page
FoundPos := RegExMatch(Clipboard, frenchChars)
; if there are one or more French characters, page is presumed to be in French
If (FoundPos > 0){
Clipboard := StrReplace(Clipboard, " FEB ", " FÉV ")
Clipboard := StrReplace(Clipboard, " APR ", " AVR ")
Clipboard := StrReplace(Clipboard, " AOU ", " AOÛ ")
Clipboard := StrReplace(Clipboard, " DEC ", " DÉC ")
}
Else{
Clipboard := StrReplace(Clipboard, " AOU ", " AUG ")
Clipboard := StrReplace(Clipboard, " MAI ", " MAY ")
}
; pastes the changes made in the selected text
Send ^v
; ends the mission of control+1
Return
; ctrl+2 ---------------------------------------------------------------------------
; defines the hotkey
^2::
MsgBox, 1, ctrl+2 01/JUL/2018 becomes 01/07/2018 or 2018 JUL 01 becomes 2018/07/01, Converts month names into month numbers handling various formats:`n`n01.JUL.2018 or 01 /JUL/ 2018 or 01/JUL/2018 or 01 JUL 2018 or 01-JUL-2018`nbecomes 01/07/2018
; empties the clipboard
Clipboard =
Clipboard := ""
; emulates select all
Send ^a
; copies selected
Send ^c
; 2 miliseconds wait to increase performance
Sleep, 2
; Loop through the array
for key, value in monthArray {
; regex find-and-replace cases defined both for EN and FR (accented or not)
Clipboard := RegExReplace( Clipboard, "(\d)(?:\s|\/|\s\/|\.|\-)" key "(?:\s|\/|\/\s|\.|\-)(\d)", "$1/" value "/$2" )
}
; pastes the changes made in the selected text
Send ^v
; ends the mission of control+2
Return