作者luke93 (不廢江河萬古流)
看板EzHotKey
標題[AHK-] 練習分享 多重剪貼簿
時間Sat Jul 18 00:01:19 2009
/*
按下^1到^4可貼上最近4筆剪貼簿內容
非常希望有人能提供些意見或反映
謝謝
*/
_false := 0
_true := 1
; Clear Clipboard
Clipboard := ""
; MyClipboard1 to MyClipboard5
g_nClipboardCount := 5
g_bMyClipboardIsWorking := _false
OnClipboardChange:
If( g_bMyClipboardIsWorking == _true )
{
Return
}
; Shift old clipboards right in MyClipboard array
Loop %g_nClipboardCount%
{
; A_Index begins from 1
nIndex := g_nClipboardCount - A_Index + 1
nPrevIndex := nIndex - 1
MyClipboard%nIndex% := MyClipboard%nPrevIndex%
If( A_Index == 4 )
{
break
}
}
; Save current clipboard
MyClipboard1 := ClipboardAll
; Content test, print out my clipboards
/*
s := ""
Loop %g_nClipboardCount%
{
s := s . "`n" . A_Index . ": " . MyClipboard%A_Index%
}
ToolTip My Clipboards:%s%
Sleep 1000
ToolTip ; Turn off the tip.
*/
Return
PasteMyClipboard( i_nIndex )
{
global
g_bMyClipboardIsWorking := _true
oldClipboard := ClipboardAll
Clipboard := MyClipboard%i_nIndex%
Send ^v
Clipboard := oldClipboard
; Delay for avoiding triggering OnClipboardChange
Sleep 100
oldClipboard = ; Clear
g_bMyClipboardIsWorking := _false
Return
}
^1::
PasteMyClipboard( 2 )
Return
^2::
PasteMyClipboard( 3 )
Return
^3::
PasteMyClipboard( 4 )
Return
^4::
PasteMyClipboard( 5 )
Return
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 61.231.50.43