AutoHotkey Community

:*:btw::by the way

/*
[Config]
*/
#Hotstring =EndChars `n `t
/*
[Script]
This is only necessary to make below not belong to [Config]
*/
AutoTrim,Off
SetWorkingDir % A_ScriptDir
IniRead,EndChars,% A_ScriptFullPath,Config,#HotString
StringReplace,EndChars,EndChars,% "EndChars "s,,
Return
#s::
InputBox,EndChars,EndChars,Enter EndChars,,200,130,,,,,%EndChars%
If (!ErrorLevel && EndChars!=""){
    IniWrite,% "EndChars " EndChars,% A_ScriptFullPath,Config,#HotString
    Reload
}
Return
#h::  ; Win+H hotkey
; Get the text currently selected. The clipboard is used instead of
; "ControlGet Selected" because it works in a greater variety of editors
; (namely word processors).  Save the current clipboard contents to be
; restored later. Although this handles only plain text, it seems better
; than nothing:
AutoTrim Off  ; Retain any leading and trailing whitespace on the clipboard.
ClipboardOld = %ClipboardAll%
Clipboard =  ; Must start off blank for detection to work.
Send ^c
ClipWait 1
if ErrorLevel  ; ClipWait timed out.
    return
; Replace CRLF and/or LF with `n for use in a "send-raw" hotstring:
; The same is done for any other characters that might otherwise
; be a problem in raw mode:
StringReplace, Hotstring, Clipboard, ``, ````, All  ; Do this replacement first to avoid interfering with the others below.
StringReplace, Hotstring, Hotstring, `r`n, ``r, All  ; Using `r works better than `n in MS Word, etc.
StringReplace, Hotstring, Hotstring, `n, ``r, All
StringReplace, Hotstring, Hotstring, %A_Tab%, ``t, All
StringReplace, Hotstring, Hotstring, `;, ```;, All
Clipboard = %ClipboardOld%  ; Restore previous contents of clipboard.
; This will move the InputBox's caret to a more friendly position:
SetTimer, MoveCaret, 10
; Show the InputBox, providing the default hotstring:
InputBox, Hotstring, New Hotstring, Type your abreviation at the indicated insertion point. You can also edit the replacement text if you wish.`n`nExample entry: :R:btw`::by the way,,,,,,,, :R:`::%Hotstring%
if ErrorLevel  ; The user pressed Cancel.
    return
IfInString, Hotstring, :R`:::
{
    MsgBox You didn't provide an abbreviation. The hotstring has not been added.
    return
}
; Otherwise, add the hotstring and reload the script:
FileAppend, `n%Hotstring%, %A_ScriptFullPath%  ; Put a `n at the beginning in case file lacks a blank line at its end.
Reload
Sleep 200 ; If successful, the reload will close this instance during the Sleep, so the line below will never be reached.
MsgBox, 4,, The hotstring just added appears to be improperly formatted.  Would you like to open the script for editing? Note that the bad hotstring is at the bottom of the script.
IfMsgBox, Yes, Edit
return

MoveCaret:
IfWinNotActive, New Hotstring
    return
; Otherwise, move the InputBox's insertion point to where the user will type the abbreviation.
Send {Home}{Right 3}
SetTimer, MoveCaret, Off
return

SetWorkingDir % A_ScriptDir
a:=AhkDllObject("AutoHotkey.dll")
Loop {
   a.ahktextdll("#Persistent`n::btw::by the way this hotstring was created at " A_Hour ":" A_Min ":" A_Sec)
   InputBox,v,Enter btw,Enter btw followed by a Space or Tab,,400,130
}
Escape::ExitApp

#Include, %A_ScriptDir%\GetKeyword.ahk
#SingleInstance, Force
SetKeyDelay, -1
SetWorkingDir, %A_ScriptDir%

endChars = {BS}{Enter}{Space}{Esc}{Tab}{Home}{End}{PGUP}{PGDN}{Up}{Down}{Left}{Right}{RShift}
specChars = .,`,,¿,?,¡,!,;,``,~,`%,$,&,*,-,+,=,\,/,>,<,|,@,#,:,_,(,),[,],{,}

GetKeyword()
Return

^!h::
GetKeyword()
Return

^!f::
exitFlag := 1
Return

GetKeyword()
{
   global exitFlag, endChars, specChars
   oldCaretX := A_CaretX
   oldCaretY := A_CaretY
   keyword := ""
   Loop
   {
      If exitFlag
         Break
      Input, char, L1 V I, %endChars%
      Error := ErrorLevel
      If (oldCaretY<>A_CaretY || (A_CaretX<oldCaretX && Error<>"EndKey:BackSpace"))
      {
         keyword := ""
         oldCaretX := A_CaretX
         oldCaretY := A_CaretY
      }
      If InStr(Error, "EndKey")
      {
         If (Error="EndKey:Space")
         {
            IniRead, fullstring, %A_ScriptDir%\Hotstrings.ini, List, %keyword%, 0
            If fullstring
               SendFullstring(keyword)
            keyword := "", char := ""
         }
         Else If (Error="EndKey:BackSpace")
            StringTrimRight, keyword, keyword, 1
         Else
            keyword := "", char := ""
      }
      Else If char in %specChars%
         keyword := "", char := ""
      Else
         keyword .= char
      oldCaretX := A_CaretX , oldCaretY := A_CaretY
      GuiControl,, keywordText, <%keyword%>
   }
   exitFlag := 0
}

^!f::
exitFlag := 1
Input ; will cancel Input command and set ErrorLevel to NewInput
Return