Neat use for HotKeySet

[CyberSlug 3]

Note: HotKeySet should be available in AutoIt 3.0.85

Works if the application supports Ctrl+C copy and Ctrl+V paste...

EDIT: Microsoft Word does not like the Ctrl+Alt shortcut, so you may want to use "#v" (Winkey+V) instead.

;-------------------------------------------
; Clipboard "Replace" Utility
; Swap higlighted text with clipboard text
;-------------------------------------------

HotKeySet("^!v", "replace");Ctrl+Alt+V keyboard shortcut  
While (1)
    sleep(500);to prevent maxing-out the CPU
WEnd

Func replace()
    $itemOne = ClipGet()

    Send("^c")
    $itemTwo = ClipGet()

    ClipPut($itemOne)
    Send("^v")

    ClipPut($itemTwo)
EndFunc

Edited January 8, 2004 by CyberSlug

[scriptkitty 0]

Yea, this new feature will provide many uses. Like your own stored clipboard.

;-------------------------------------------
; Clipboard "Multi" Utility
; Place several items into clipboard for future use.
$x=1
dim $clip[100]
HotKeySet("^!c", "add");Ctrl+Alt+C keyboard shortcut  
HotKeySet("^!v", "place");Ctrl+Alt+V keyboard shortcut  

While (1)
sleep(500);to prevent maxing-out the CPU
WEnd

Func add()
Send("^c")
$x=$x+1
$clip[$x]= ClipGet()
EndFunc

Func place()
$title = WinGetTitle("", "")
$test= InputBox("Stored Clipboard activated.", "Which memory location out of "&$x-1, "", "", -1, -1, 0, 0)+1
winactivate($title)
if int($test)>1 and int($test)<=$x then 
Clipput($clip[$test])
send("^v")
;msgbox(1,"Info", "Clipboard "&$test &" loaded into memory")
endif
EndFunc