It's not the only way, it's just a merge with the original script and your example.
Code:
hotstrings("Ø([A-z])", "line1{enter}line2")
; We use an extented ascii character, this key doesn't exist (example: alt+157)
; in other word, "Ø" is the key "escape"
; So, esc+letter give the text line1`nline2
hotstrings(k, a = "")
{
static z, m = "*~$", s, t, w = 2000
global $
If z = ; init
{
Loop, 94
{
c := Chr(A_Index + 32)
If A_Index not between 33 and 58
Hotkey, %m%%c%, __hs
}
e = BS|Space|Enter|Return|Tab|Escape ; we add key "escape" to the hook
Loop, Parse, e, |
Hotkey, %m%%A_LoopField%, __hs
z = 1
}
If (a == "" and k == "") ; poll
{
StringTrimLeft, q, A_ThisHotkey, StrLen(m)
If q = BS
{
If (SubStr(s, 0) != "}")
StringTrimRight, s, s, 1
}
Else
{
If q = Space
q := " "
Else If q = Escape ; we transform key escape in a character for the matchlist
q := "Ø"
Else If q = Tab
q := "`t"
Else If q in Enter,Return
q := "`n"
Else If (StrLen(q) != 1)
q = {%q%}
Else If (GetKeyState("Shift") ^ GetKeyState("CapsLock", "T"))
StringUpper, q, q
s .= q
}
Loop, Parse, t, `n ; check
{
StringSplit, x, A_LoopField, `r
If (RegExMatch(s, x1 . "$", $)) ; match
{
StringLen, l, $
StringTrimRight, s, s, l
l := InStr($, "Ø")>0 ? l-1 : l ; we need to change the count of del char, because esc is not printable
SendInput, {BS %l%}
If (IsLabel(x2))
Gosub, %x2%
Else
{
Transform, x0, Deref, %x2%
SendInput, %x0%
}
}
}
If (StrLen(s) > w)
StringTrimLeft, s, s, w // 2
}
Else ; assert
{
StringReplace, k, k, `n, \n, All ; normalize
StringReplace, k, k, `r, \r, All
Loop, Parse, t, `n
{
l = %A_LoopField%
If (SubStr(l, 1, InStr(l, "`r") - 1) == k)
StringReplace, t, t, `n%l%
}
If a !=
t = %t%`n%k%`r%a%
}
Return
__hs: ; event
hotstrings("", "")
Return
}
Login
Register
FAQ
Search
