Difference between revisions of "AutoHotkey: Inplace rename facilities"

From TotalcmdWiki
Jump to: navigation, search
Line 1: Line 1:
Set of small AHK scripts allowing to perform different tasks in Inplace rename field (or any other place).  
+
Set of small AHK scripts allowing to perform different tasks (uppercase, lowercase, underscore the highlighted Inplace rename field). It can also be used anywhere else just highlight the text you want to modify and press WinKey+1 or WinKey+2 ...  
  
;UPPERCASE LOWERCASE UNDERSCORE FACILITIES
 
 
;All lowercase  
 
;All lowercase  
 
  ;#1 -> Win Key + 1
 
  ;#1 -> Win Key + 1

Revision as of 10:15, 2 May 2006

Set of small AHK scripts allowing to perform different tasks (uppercase, lowercase, underscore the highlighted Inplace rename field). It can also be used anywhere else just highlight the text you want to modify and press WinKey+1 or WinKey+2 ...

All lowercase
;#1 -> Win Key + 1
#1::
  ControlGetFocus, ActiveControl, A
  Send, ^c
  StringLower, lowercase_string, clipboard
  Send, %lowercase_string%
Return 
First letter uppercase
#2::
  ControlGetFocus, ActiveControl, A
  Send, ^c
  StringLower, lowercase_string, clipboard
  StringLeft, first_letter_of_string, lowercase_string, 1
  StringUpper, first_letter_of_string_uppercase, first_letter_of_string
  StringTrimLeft, rest_of_string, lowercase_string, 1
  Send, %first_letter_of_string_uppercase%%rest_of_string%
Return 
First Of Each Word Uppercase
#3::
  ControlGetFocus, ActiveControl, A
  Send, ^c
  ;StringUpper, OutputVar, InputVar [, T] 
  ;StringLower, OutputVar, InputVar [, T] 
  ;[, T] = If the parameter is the letter T, the string will be converted to title case.
  StringLower, first_each_word_uppercase_string, clipboard, T
  Send, %first_each_word_uppercase_string%
Return 
ALL UPPERCASE
#4::
  ControlGetFocus, ActiveControl, A
  Send, ^c
  StringUpper, uppercase_string, clipboard
  Send, %uppercase_string%
Return 
Replace Space by Underscore
#5::
  ControlGetFocus, ActiveControl, A
  Send, ^c
  ;StringReplace, OutputVar, InputVar, SearchText [, ReplaceText, ReplaceAll?]  
  StringReplace, string_space2underscore, clipboard, %A_SPACE%, _, All
  Send, %string_space2underscore%
Return 
Replace Underscore by Space (Remove Underscore)
#6::
  ControlGetFocus, ActiveControl, A
  Send, ^c
  ;StringReplace, OutputVar, InputVar, SearchText [, ReplaceText, ReplaceAll?]  
  StringReplace, string_underscore2space, clipboard, _, %A_SPACE%, All
  Send, %string_underscore2space%
Return
Replace Dot by Space (Remove Underscore)
#7::
  ControlGetFocus, ActiveControl, A
  Send, ^c
  ;StringReplace, OutputVar, InputVar, SearchText [, ReplaceText, ReplaceAll?]  
  StringReplace, string_underscore2space, clipboard, ., %A_SPACE%, All
  Send, %string_underscore2space%
Return
Replace \ by /
#8::  
  ControlGetFocus, ActiveControl, A
  Send, ^c
  ;StringReplace, OutputVar, InputVar, SearchText [, ReplaceText, ReplaceAll?]  
  StringReplace, string_underscore2space, clipboard, \, /, All
  Send, %string_underscore2space%
Return

Back to AutoHotkey