Code: Select all
; 2021-04-21 21:00
; D:\ahk\en-clean1.ahk
; english 1st text cleaning
; alt+. clean text
!.::
critical, on
clipboard:=""
autotrim, on
send, ^a^c
; quotations and accents
in_put = chr(0x1000B4) ; U+00B4 ACUTE ACCENT
out_put = chr(0x100022)
clipwait, 4
clipboard := strreplace(clipboard, in_put, out_put)
clipwait, 4
in_put = chr(0x1002BB) ; MODIFIER LETTER TURNED COMMA
out_put = chr(0x100022)
clipwait, 4
clipboard := strreplace(clipboard, in_put, out_put)
clipwait, 4
in_put = chr(0x1002CA) ; MODIFIER LETTER ACUTE ACCENT
out_put = chr(0x100022)
clipwait, 4
clipboard := strreplace(clipboard, in_put, out_put)
clipwait, 4
in_put = chr(0x1002CB) ; MODIFIER LETTER GRAVE ACCENT
out_put = chr(0x100022)
clipwait, 4
clipboard := strreplace(clipboard, in_put, out_put)
clipwait, 4
in_put = chr(0x1002DD) ; DOUBLE ACUTE ACCENT
out_put = chr(0x100022)
clipwait, 4
clipboard := strreplace(clipboard, in_put, out_put)
clipwait, 4
in_put = chr(0x100300) ; COMBINING GRAVE ACCENT : Greek varia
out_put = chr(0x100022)
clipwait, 4
clipboard := strreplace(clipboard, in_put, out_put)
clipwait, 4
in_put = chr(0x100301) ; COMBINING ACUTE ACCENT : stress mark, Greek oxia, tonos
out_put = chr(0x100022)
clipwait, 4
clipboard := strreplace(clipboard, in_put, out_put)
clipwait, 4
in_put = chr(0x10030B) ; COMBINING DOUBLE ACUTE ACCENT
out_put = chr(0x100022)
clipwait, 4
clipboard := strreplace(clipboard, in_put, out_put)
clipwait, 4
in_put = chr(0x10030F) ; COMBINING DOUBLE GRAVE ACCENT
out_put = chr(0x100022)
clipwait, 4
clipboard := strreplace(clipboard, in_put, out_put)
clipwait, 4
in_put = chr(0x102018) ; LEFT SINGLE QUOTATION MARK : single turned comma quotation mark
out_put = chr(0x100022)
clipwait, 4
clipboard := strreplace(clipboard, in_put, out_put)
clipwait, 4
in_put = chr(0x102019) ; RIGHT SINGLE QUOTATION MARK : single comma quotation mark
out_put = chr(0x100022)
clipwait, 4
clipboard := strreplace(clipboard, in_put, out_put)
clipwait, 4
in_put = chr(0x10201B) ; SINGLE HIGH-REVERSED-9 QUOTATION MARK : single reversed comma quotation mark
out_put = chr(0x100022)
clipwait, 4
clipboard := strreplace(clipboard, in_put, out_put)
clipwait, 4
in_put = chr(0x10201C) ; LEFT DOUBLE QUOTATION MARK : double turned comma quotation mark
out_put = chr(0x100022)
clipwait, 4
clipboard := strreplace(clipboard, in_put, out_put)
clipwait, 4
in_put = chr(0x10201D) ; RIGHT DOUBLE QUOTATION MARK : double comma quotation mark
out_put = chr(0x100022)
clipwait, 4
clipboard := strreplace(clipboard, in_put, out_put)
clipwait, 4
in_put = chr(0x10002A) . chr(0x10002A) ** ASTERISK : star (on phone keypads)
out_put = chr(0x100022)
clipwait, 4
clipboard := strreplace(clipboard, in_put, out_put)
clipwait, 4
sendinput, ^v
sendinput, ^{Home}
return