AutoHotkey: Inplace rename facilities

Set of small AHK scripts allowing to perform different tasks (uppercase, lowercase, add or remove underscore ... from the highlighted file in 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