AutoHotkey Community

Code: Select all

Var := Clip() ; will store any selected text in %Var%

Code: Select all

; The two are analogous. Use of the clipboard is generally preferable for larger amounts of text
Clip("Some text")
SendInput {Raw}Some text ; {Raw} avoids sending keyboard combinations like ^v as ctrl+v

Code: Select all

; Displays the selected text
MsgBox, % "The selected text is: " Clip()

; Sends "long text string" using ctrl-v
Clip("long text string")

; Sends "long text string" and then re-selects it
Clip("long text string", True)

; Puts quotes around the selected text.
; Despite calling Clip() twice, the clipboard is only backed up & restored once
Clip("""" Clip() """")

Code: Select all

; The below hotkeys add some of the features of SciTE to notepad.

#IfWinActive ahk_class Notepad ; makes the hotkeys context-sensitive

; Duplicate the above line
^d::
	SendInput {End}+{Home}
	@ := Clip()
	SendInput {End}{Enter}
	Clip(@)
	Return

; Swap with the above line
^t::
	SendInput {End}+{Home}
	@ := Clip()
	SendInput {Del 2}{Up}{Enter}{Up}
	Clip(@)
	Return

; Indent a block of text. (This introduces a small delay for typing a normal tab; to avoid this you can use ^Tab / ^+Tab as a hotkey instead.)
$Tab::
$+Tab::
	TabChar := A_Tab ; this could be something else, say, 4 spaces
	NewLine := "`r`n"
	If ("" <> Text := Clip()) {
		@ := ""
		Loop, Parse, Text, `n, `r
			@ .= NewLine (InStr(A_ThisHotkey, "+") ? SubStr(A_LoopField, (InStr(A_LoopField, TabChar) = 1) * StrLen(TabChar) + 1) : TabChar A_LoopField)
		Clip(SubStr(@, StrLen(NewLine) + 1), 2)
	} Else
		Send % (InStr(A_ThisHotkey, "+") ? "+" : "") "{Tab}"
	Return

#IfWinActive

Code: Select all

MsgBox % Get()
MsgBox % Get("L")
MsgBox % Get("R")
MsgBox % Get("L") "`n`n" Get("R",false)
Put("Hello World")


Put(string){		;as an alternative to send,to instantly place a string
	ClipSaved := ClipboardAll, clipboard := "", clipboard := string
	clipwait
	BlockInput, on
	Send ^v
	BlockInput, off
	Clipboard := ClipSaved
}


Get(whichSideOfCaret:="",deselect:=true){		;gets everything to left or right of cursor	---> set param to 'L' or 'R', blank param gets selection...
	ClipSaved := ClipboardAll, clipboard := ""
	BlockInput, on
	( whichSideOfCaret = "R" ? Send("{Shift down}{end}{Shift up}{Ctrl down}{c}{Ctrl up}") & (deselect?Send("{Left}")) : (whichSideOfCaret = "L" ? Send("{Shift down}{home}{Shift up}{Ctrl down}{c}{Ctrl up}") & (deselect?Send("{Right}"):"") : (!whichSideOfCaret ? Send("{Ctrl down}{c}{Ctrl up}") : "")) )
	BlockInput, off
	clipwait, 1
	string := clipboard, Clipboard := ClipSaved
	Return string
}


Send(keys){
	Send % keys
}

Code: Select all

:X:a::Clip("aaaaaaaaaaaaaaaaaaaaa" . A_EndChar)

Code: Select all

:X:a::Clip("aaaaaaaaaaaaaaaaaaaaa" . A_EndChar)

Code: Select all

F3::Clip(Format("{:" GetNextCaseFormat() "}", Clip()), true)

GetNextCaseFormat() {
   static i := 0, Formats := ["U", "L", "T"]
   return Formats[++i > 3 ? i := 1 : i]
}

Code: Select all

#Include Clip.ahk

F3::Clip(Format("{:" GetNextCaseFormat() "}", Clip()), true)

GetNextCaseFormat() {
   static i := 0, Formats := ["U", "L", "T"]
   return Formats[++i > 3 ? i := 1 : i]
}

Code: Select all

F3::Clip(Format("{:" GetNextCaseFormat() "}", Clip()), true)

GetNextCaseFormat() {
   static i := 0, Formats := ["U", "L", "T"]
   return Formats[++i > 3 ? i := 1 : i]
}

; Clip() - Send and Retrieve Text Using the Clipboard
; by berban - updated February 18, 2019
; https://www.autohotkey.com/boards/viewtopic.php?f=6&t=62156
Clip(Text="", Reselect="")
{
	Static BackUpClip, Stored, LastClip
	If (A_ThisLabel = A_ThisFunc) {
		If (Clipboard == LastClip)
			Clipboard := BackUpClip
		BackUpClip := LastClip := Stored := ""
	} Else {
		If !Stored {
			Stored := True
			BackUpClip := ClipboardAll ; ClipboardAll must be on its own line
		} Else
			SetTimer, %A_ThisFunc%, Off
		LongCopy := A_TickCount, Clipboard := "", LongCopy -= A_TickCount ; LongCopy gauges the amount of time it takes to empty the clipboard which can predict how long the subsequent clipwait will need
		If (Text = "") {
			SendInput, ^c
			ClipWait, LongCopy ? 0.6 : 0.2, True
		} Else {
			Clipboard := LastClip := Text
			ClipWait, 10
			SendInput, ^v
		}
		SetTimer, %A_ThisFunc%, -700
		Sleep 20 ; Short sleep in case Clip() is followed by more keystrokes such as {Enter}
		If (Text = "")
			Return LastClip := Clipboard
		Else If ReSelect and ((ReSelect = True) or (StrLen(Text) < 3000))
			SendInput, % "{Shift Down}{Left " StrLen(StrReplace(Text, "`r")) "}{Shift Up}"
	}
	Return
	Clip:
	Return Clip()
}