如何使用AutoHotkey刪除當前行？

Question

使用AutoHotkey腳本我想設置鍵盤命令Ctrl+D刪除任何活動的Windows應用程序中的當前行。

怎麼樣？

Answer 1

HaveSpacesuit的答案有效，但使用它一段時間後，我意識到它會刪除活動行，有時會重新定位下面行的間距。

這使我重新思考他的解決方案。我不是從前線走到後面，而是試着從後向前走。這解決了重新定位問題。

SendInput {End} 
SendInput +{Home} 
SendInput ^+{Left} 
SendInput {Delete} 

雖然還有一個小問題。如果光標位於空行上，並且上面有更多空行，則所有空行都會被刪除。

我不知道一個關鍵組合，以取代^+{Left}沒有這種行爲，所以我不得不寫一個更全面的解決方案。

^d:: DeleteCurrentLine() 

DeleteCurrentLine() { 
    SendInput {End} 
    SendInput +{Home} 
    If get_SelectedText() = "" { 
     ; On an empty line. 
     SendInput {Delete} 
    } Else { 
     SendInput ^+{Left} 
     SendInput {Delete} 
    } 
} 

get_SelectedText() { 

    ; See if selection can be captured without using the clipboard. 
    WinActive("A") 
    ControlGetFocus ctrl 
    ControlGet selectedText, Selected,, %ctrl% 

    ;If not, use the clipboard as a fallback. 
    If (selectedText = "") { 
     originalClipboard := ClipboardAll ; Store current clipboard. 
     Clipboard := "" 
     SendInput ^c 
     ClipWait .2 
     selectedText := ClipBoard 
     ClipBoard := originalClipboard 
    } 

    Return selectedText 
} 

據我所知，這不會產生意外的行爲。

不過，如果您使用的是剪貼板管理，因爲這腳本使用剪貼板，如果必要的話，作爲中介，以獲得選定的文本要小心。這將影響剪貼板管理器歷史記錄。

SetTitleMatchMode, 2 ; Makes the #IfWinActive name searching flexible 
^d::Send {Home}{ShiftDown}{End}{Right}{ShiftUp}{Del} ; Generic response to ^d. 

#IfWinActive, Gmail ; Gmail specific response 
    ^d::Send {Home}{ShiftDown}{End}{Right}{ShiftUp}{Del} ; adapt this line for gmail 
#IfWinActive ; End of Gmail's specific response to ^d 

#IfWinActive, Excel ; Excel specific response. 
    ^d::Send {Home}{ShiftDown}{End}{Right}{ShiftUp}{Del} ; adapt this line for Excel 
#IfWinActive ; End of Excel's specific response to ^d 

這樣你的^ d命令的工作方式不同：

Answer 2

^d::Send {Home}{ShiftDown}{End}{Right}{ShiftUp}{Del} 

可能並非在所有情況下，邊工作，但通過在記事本中一些非常基本測試。 =〜）

Answer 3

萬一你碰上，你需要不同的行爲不同程序的問題，您可以像這樣的具體方案「複製」你的^ d命令在Excel和Gmail中。