Pdf text copy

^c::     ; CTRL(^) AND C
    old := ClipboardAll
    clipboard := ""
    send ^c
    clipwait 0.1
    if clipboard =
        clipboard := old
    else {
        tmp1 := RegExReplace(clipboard, "(\S.*?)\-\R(.*?\S)", "$1$2") ; strip line breaks with hyphen
        tmp2 := RegExReplace(tmp1, "(\S.*?)\- \R(.*?\S)", "$1$2") ; Добавил эту операцию, потому что иногда после дефиса-переноса ставится еще и пробел (так делает файнридер)
        tmp := RegExReplace(tmp2, "(\S.*?)\R(.*?\S)", "$1 $2") ; strip line breaks and replace them with spaces
        clipboard := tmp
        StringReplace clipboard, clipboard, % "  ", % " ", A  ; replace double spaces with single spaces
        clipboard := StrReplace(clipboard, Chr(173), "  ") ; 173    00AD    ­SOFT HYPHEN  Находим мягкие переносы и заменям их двойным пробелом (потому что после мягкого переноса образуется еще одни пробел, теперь их, пробела, будет три и их можно будет опознать и удалить следующей командой). Да, костыль. Мягкие переносы делаются FineReader'ом после распознавания. Если скопировать и вставить такой мягкий перенос в текстовый редактор, то это может отображаться как красный круг или <0xad> (не везде)
        clipboard := StrReplace(clipboard, "   ", "") ; Удаляем тройные пробелы, на месте которых был мягкий перенос.
        clipwait 0.1­
        }
    old := ""
    tmp := ""
return