Copy the context of a highlighted word and save it to a file

; TODO: ADAPT FILEPATH BELOW

#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
; #Warn  ; Enable warnings to assist with detecting common errors.
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.


^3::
tmp := clipboard
clipboard := ""
Send, ^c
ClipWait, 2
word := RegExReplace(RegExReplace(clipboard, "\r?\n"," "), "(^\s+|\s+$)")
clipboard := ""
bLength := StrLen(clipboard)
rRegex := "[\.!?]"
rReplaceRegex := "(.+[\.!?]+)[^\.!?]*"
lRegex := "[:\.!?]"
lReplaceRegex := ".*[:\.!?]\s*(.+)"
Send, +{End}
Loop
{
    Send, ^c
    ClipWait, 2
    aLength := StrLen(clipboard)
    if ( RegExMatch( clipboard, rRegex ) or bLength == aLength )
        break
    else {
        Send, +{Right}
        clipboard := ""
        bLength := aLength
        continue
    }
}
rContext := RegExReplace(clipboard, rReplaceRegex, "$1" )
clipboard := ""
Sleep, 200
bLength := StrLen(clipboard)
Send, +{Up}
Loop
{
    Send, ^c
    ClipWait, 2
    if ( RegExMatch( clipboard, lRegex ) or bLength == aLength )
        break
    else {
        Send, +{Up}
        clipboard := ""
        bLength := aLength
        continue
    }
}
context := RegExReplace(clipboard, lReplaceRegex, "$1" ) rContext
context := RegExReplace(RegExReplace( context, "\r?\n"," "), "(^\s+|\s+$)")
clipboard := ""
Sleep, 200
IfWinActive ahk_exe firefox.exe
Send, ^l
Sleep, 100
Send, ^c
ClipWait, 2
link := RegExReplace(RegExReplace(clipboard, "\r?\n"," "), "(^\s+|\s+$)")
clipboard := tmp ; restores original clipboard
Sleep, 100
ClipWait
Sleep, 100
ClipWait
FileAppend, %word%;%context%;%link%;`n, C:\Users\TODO\Documents\Anki.csv
return