AutoHotkey: CopyNamesToClipWithoutExt: Difference between revisions

From TotalcmdWiki
Jump to navigation Jump to search
mNo edit summary
(Added category AutoHotkey scripts)
 
(3 intermediate revisions by 2 users not shown)
Line 1: Line 1:
This script copies the filenames to the clipboard using the internal command cm_CopyNamesToClip, then removes the extension parts from the clipboard.
/*
'''''Ctrl+Alt+Shift+C''''' copies the filenames to the clipboard using the internal command cm_CopyNamesToClip,
then removes the extension parts from the clipboard.
*/


  ; Activates with Ctrl-Alt-Shift-C
  #IfWinActive, ahk_class TTOTAL_CMD
  $^!+c::
  ^!+c::                             ;*** Adjust hotkey when needed
  IfWinActive, ahk_class TTOTAL_CMD
  Clipboard := ""
  {
  PostMessage, 1075, 2017
PostMessage, 1075, 2017
ClipWait, 1
Loop, Parse, Clipboard, `n, `r
Clipboard := RegExReplace(Clipboard, "(.+)\..+", "$1")
{
StringGetPos, DotPos, A_LoopField, ., R
StringLeft, TempString, A_LoopField, %DotPos%
TempClip = %TempClip%%TempString%`r`n
}
Clipboard = %TempClip%
Return
}
Send, ^!+c
  Return
  Return


Back to [[AutoHotkey]]
{{translated|AutoHotkey: Kopiere Dateinamen ohne Erweiterung in die Zwischenablage|AutoHotkey}}
[[Category:AutoHotkey scripts|CopyNamesToClipWithoutExt]]

Latest revision as of 19:01, 1 June 2008

/*
Ctrl+Alt+Shift+C copies the filenames to the clipboard using the internal command cm_CopyNamesToClip,
then removes the extension parts from the clipboard.
*/

#IfWinActive, ahk_class TTOTAL_CMD
^!+c::                              ;*** Adjust hotkey when needed
Clipboard := ""
PostMessage, 1075, 2017
ClipWait, 1
Clipboard := RegExReplace(Clipboard, "(.+)\..+", "$1")
Return

Back to AutoHotkey

Retrieved from "http://www.ghisler.ch/wiki/index.php?title=AutoHotkey:_CopyNamesToClipWithoutExt&oldid=6139"