Windowsでコピー(Ctrl-C)したときに改行を削除してクリップボードに入れる
AutoHotKeyを使う
Ctrl-Cで無条件に改行を削除
code:remove_newline.ahk
#Persistent
OnClipboardChange("ClipChanged")
return
ClipChanged(Type) {
if (Type = 1) {
StringReplace, clipboard, clipboard, rn, %A_Space%, All
}
}
キー(Alt-C)に割り当てる
code:remove_newline.ahk
!c::
Send, ^c
ClipWait, 2
StringReplace, clipboard, clipboard, rn, %A_Space%, All
Return
ダッシュ,クオートも変換
code:sample.ahk
!c::
Send, ^c
ClipWait, 2
; Single Quote
Clipboard := RegExReplace(Clipboard, "Chr(0x2019) "", "'")
; Double Quote(LaTeX)
; Clipboard := RegExReplace(Clipboard, "Chr(0x201C) "", "")
; Clipboard := RegExReplace(Clipboard, "Chr(0x201D) "", "''")
; Double Quote(")
Clipboard := RegExReplace(Clipboard, "Chr(0x201C) "", Chr(0x22))
Clipboard := RegExReplace(Clipboard, "Chr(0x201D) "", Chr(0x22))
; Dash
Clipboard := RegExReplace(Clipboard, "Chr(0x2010) Chr(0x2011) Chr(0x2212) Chr(0xAD) "", "-")
Clipboard := RegExReplace(Clipboard, "Chr(0xFFD0) "", "--")
Clipboard := RegExReplace(Clipboard, "Chr(0x2013) Chr(0x2014) Chr(0x2015) "", "---")
Clipboard := RegExReplace(Clipboard, "-\r\n", "-")
StringReplace, Clipboard, Clipboard, rn, %A_Space%, All
Loop
{
StringReplace, Clipboard, Clipboard, %A_Space%%A_Space%, %A_Space%, UseErrorLevel
If ErrorLevel = 0
Break
}
Return
参考
AutoHotkeyでPDFの英文テキストを最速で整形→翻訳する - Qiita
AutoHotKey OnClipboardChange()関数でクリップボード監視 - Qiita
#AHK